FiveTech Software tech support forums

... RoUninitialize()

return nil

//---------------------------------------------------------------------------//

DLL FUNCTION RoInitialize( nType AS LONG ) AS LONG PASCAL LIB "combase.dll"

DLL FUNCTION RoUninitialize() AS VOID PASCAL LIB "combase.dll"

DLL FUNCTION WindowsCreateString ...

... Uses default arrow bitmap.
oBrw:SetRecSelBmp( nil ) // Removes the bitmap.
content_copy
download
Use code with caution.
Harbour

6. SetRecSelSl( nType )

Description: Sets the record selector to display either record numbers or key numbers.

Parameters:

nType: NUMERIC - 1 to display record ...

... the `WHEN` clause of the control.

#### **Drag and Drop**
- **`DragBegin(nRow, nCol, nKeyFlags)`**: Begins the drag operation.
- **`MResize(nType, nRow, nCol, oDot)`**: Resizes the control using the mouse.
- **`ShowDots()`**: Shows the resize dots around the control.
- **`HideDots()`**: Hides ...

... box.

51. **`SetDir()`**:
- **Description**: Sets the directory for directory combo boxes.
- **Parameters**:
- `cDir`: Directory path.
- `nType`: Directory style.

52. **`SetFont()`**:
- **Description**: Sets the font for the combo box.
- **Parameters**:
- `oFont`: Font object ...

Now I correct with this

[img] Function SalvaDialog(nType,oDlg)
local cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg"
local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg"
local oRect:= oDlg:GetCliRect()
If nType=1
oDlg:SaveAsImage( cFileJpg1, { oRect:nTop, oRect:nLeft, oRect:nbottom, oRect:nright-100 ...

oDlg:SaveAsImage( cFileJpg, { top, left, bottom, right } )


I made
oBar:AddItem( "Salva", "save_48.bmp", {|| SalvaDialog(nType,oDlg) }, {||.t.}, .f., "" )

Function SalvaDialog(nType,oDlg)
local cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg"
local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg"
If nType ...

... Nuevo: Nueva función nRGB2Array( nRGBColor ). Devuelve una matriz con los valores RGB { nRed, nGreen, nBlue }.

* Nuevo: Nuevo método Image( [nType], [aCropRect] ) --> pImage (puntero de imagen gdi+) en la clase TWindow.
nType (default 1 ): Imagen del área cliente de la ventana.
nType ( 0 ...

... tests using it.

* New: function nRGB2Array( nRGBColor ) return an array with the RGB values { nRed, nGreen, nBlue }

* New: TWindow method Image( [nType], [aCropRect] ) --> pImage (gdi+ image pointer)
nType (default 1 ): Image of the window's client area
nType ( 0 ): Image of the full window ...

... l3d: 3D> ] ;
[ <lxGrid: XGRID> ] ;
[ <lyGrid: YGRID> ] ;
[ <lxVal: XVALUES> ] ;
[ <lyVal: YVALUES> ] ;
[ <lLegends: LEGENDS> ] ;
[ TYPE <nType> ] ;
[ FONT <oFont> ] ;
=> ;
<oGraph> := TGraph():Define( <nWidth>, ;
<nHeight>, <cTitle>, <.l3d.>, <.lxGrid.>, ;
<.lyGrid.>, <.lxVal ...

... cRet
ENDIF

oNode := oXmlDoc:findfirst(cNodo)

If oNode != Nil
If lNodo
xmlNode := oXmlDoc:oRoot:oChild

WHILE xmlNode != NIL
cPath := xmlNode:Path()
If xmlNode:nType=5
cRet :=xmlNode:cData
Exit
EndIf
xmlNode := xmlNode:NextInTree()
ENDDO
Else
cRet := oNode:cData
EndIf
Endif

Return(cRet)

... l3d: 3D> ] ;
[ <lxGrid: XGRID> ] ;
[ <lyGrid: YGRID> ] ;
[ <lxVal: XVALUES> ] ;
[ <lyVal: YVALUES> ] ;
[ <lLegends: LEGENDS> ] ;
[ TYPE <nType> ] ;
[ FONT <oFont> ] ;
=> ;
<oGraph> := TGraph():Define( <nWidth>, ;
<nHeight>, <cTitle>, <.l3d.>, <.lxGrid.>, ;
<.lyGrid.>, <.lxVal ...

... CLASS TCODEBARS //////////////////////

CLASS TCodeBars

DATA aTypes HIDDEN

DATA cCode
DATA nFlags

DATA hCodeBar
DATA hData

DATA nType, nWidth, nHeight, nWidthCode, nHeightCode

METHOD New()
METHOD End() INLINE DeleteObject( ::hCodeBar ), If( ::hData != NIL, hb_zebra_destroy ...

... retomando la clase Tgraph para hacer pruebas con algunos gráficos, tengo dos dudas que ojalá me puedan ayudar:
1.-¿ Como puedo hacer que en la gráfica de puntos, los puntos se unan con una línea ?
oGraph:nType := 3

2.-¿ Como grabo el gráfico para poder insertarlo en un PDF ?

Gracias de antemano.

function FieldTypeAdoToDbf( nType ) fails too, in Access and MYSQL.

... The 1. and 3. one works fine

METHOD NewSolidBrush( nTrans, nRed, nGreen, nBlue )
METHOD NewTextureBrush( oGdiBmp )
( wanted to be used for text )
METHOD NewGradientBrush( nTop, nLeft, nWidth, nHeight, nType,;
nTrans1, nRed1, nGreen1, nBlue1,;
nTrans2, nRed2, nGreen2, nBlue2 )

regards
Uwe