PC Toledo

... 58 ] -> _RESERVED_
* _HMG_SYSDATA [ 59 ] -> _RESERVED_
* _HMG_SYSDATA [ 60 ] -> Custom Event Procedures Array
* _HMG_SYSDATA [ 61 ] -> Custom Properties Procedures Array
* _HMG_SYSDATA [ 62 ] -> Custom Methods Procedures Array
* _HMG_SYSDATA [ 63 ] -> User Component Process Flag
* _HMG_SYSDATA ...

... handle events
DO WHILE.T.
local event := HB_GenerateEvent()
tb:handleEvent( event )
ENDDO



This code creates a TextBox class with properties for text, x, y, width, and height. It also has methods for initializing the textbox, setting and getting the text, and handling events.

In the ...

... e mostra 3
If oPrinter:StartDoc("Impressao pelo sistema") //DENTRO COLOCO O NOME DO ARQUIVO ! oPrinter:startDoc( "win_Prn(Doc name in Printer Properties)" )
If cPrModel=="MATRICIAL"
If aNF=.F. // se nao for nota fiscal, se for passa reto usando a configuraçãoo da nota fiscal
Prn_HANDLE:=FOpen ...

... documentation for the version you are using for detailed information on configuration options.


same as previous question, about methods and properties


To set up ctags configuration for Programmer's Notepad to recognize methods and properties in Harbour classes, you need to extend the ctags ...

... a PLanilha
If ".XLSX" $ Upper(mArq_)
oConexao:ConnectionString := ;
[Provider=Microsoft.ACE.OLEDB.12.0;Data Source=] + mArq_ +;
[;Extended Properties="Excel 12.0 Xml; HDR=Yes";] //IMEX=1";]
Else
oConexao:ConnectionString := ;
[Provider=Microsoft.Jet.OLEDB.4.0;Data Source=] + mArq ...

... is copied into
this variable when the TBrowse object is created.

Note: The colors available to a DOS application are more limited
than those for a Windows application. The only colors available to
you here are listed in the drop-down list box of the Properties
Workbench window for that item.

... Connection" )

If ".XLSX" $ Upper(mArq_)
oConexao:ConnectionString := ;
[Provider=Microsoft.ACE.OLEDB.12.0;Data Source=] + mArq_ + [;Extended Properties="Excel 12.0 Xml; HDR=Yes";] //IMEX=1";]
Else
oConexao:ConnectionString := ;
[Provider=Microsoft.Jet.OLEDB.4.0;Data Source=] + mArq ...

... CreateObject( "ADODB.Connection" )
oConexao:ConnectionString := [Provider=Microsoft.ACE.OLEDB.12.0;Data Source=] + mArq_ + [;Extended Properties="Excel 12.0 Xml; HDR=Yes";] //IMEX=1";]
oConexao:Open()
rs := oConexao:Execute( "SELECT * FROM [report1$]" )
...
...
Do While ...

... ADODB.Connection" )
oConexao:ConnectionString := ;
[Provider=Microsoft.ACE.OLEDB.12.0;Data Source=] + cFileName + ;
[;Extended Properties="Excel ] + cVersion + [;HDR=YES";]

RETURN oConexao


Uso com MySQL


FUNCTION MySQLConnection( cServer, cDatabase, cUser, cPassword, nPort ...

Olá!
Este método está em \source\winapi\drawidg.prg

*
Returns an array with font properties (for creating a copy of a font entry)
Copy sample
apffrarr := oFont1:Props2Arr()
oFont2 := HFont():Add( apffrarr[1], apffrarr[2], apffrarr[3], apffrarr[4], apffrarr[5], ;
apffrarr[6], apffrarr[7 ...

... ADODB.Connection" )
oConexao:ConnectionString := ;
[Provider=Microsoft.ACE.OLEDB.12.0;Data Source=] + cFileName + ;
[;Extended Properties="Excel ] + cVersion + [;HDR=YES";]

RETURN oConexao

FUNCTION MySQLConnection( cServer, cDatabase, cUser, cPassword )

LOCAL cnConnection ...

... ADODB.Connection" )
oConexao:ConnectionString := ;
[Provider=Microsoft.ACE.OLEDB.12.0;Data Source=] + cFileName + ;
[;Extended Properties="Excel ] + cVersion + [;HDR=NO;IMEX=1";]

/* // sem cabecario
oConexao:ConnectionString := ;
[Provider=Microsoft.ACE.OLEDB.12.0;Data Source ...

Ola amigos,

O segredo e aqui, deve-se usar IMEX=1 para dados mistos...



oConexao := win_OleCreateObject( "ADODB.Connection" )
oConexao:ConnectionString := ;
[Provider=Microsoft.ACE.OLEDB.12.0;Data Source=] + cFileName + ;
[;Extended Properties="Excel ] + cVersion + [;HDR=YES;IMEX=1";]

... 5.0" // 95
OTHERWISE ; cVersion := "8.0" // 97/2000/XP
ENDCASE
oConexao := win_OleCreateObject( "ADODB.Connection" )
oConexao:ConnectionString := ;
[Provider=Microsoft.ACE.OLEDB.12.0;Data Source=] + cFileName + ;
[;Extended Properties="Excel ] + cVersion + [;HDR=YES";]

RETURN oConexao

... CTRL+"Y" clear the current value


Getbox support also all typical clipboard operations ( CUT (Ctrl+X), COPY (Ctrl+C) and PASTE (Ctrl+V) )




PROPERTIES:

· Value Set / Gets GetBox value.
Note: Getbox always return unformatted value which archive initial valuetype. Programmer must take a care to ...