fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jacek Kubica
2005-11-13 21:22:41 +00:00
parent d3cfc26074
commit ae77dfc376
2 changed files with 20 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -7,6 +7,11 @@
For example:
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2005-11-13 21:21 UTC+0100 Jacek Kubica (kubica/at/wssk.wroc.pl)
* harbour/contrib/ole/bldtest.bat
* harbour/contrib/ole/hbtest.prg
! updated files
2005-11-13 20:50 UTC+0100 Jacek Kubica (kubica/at/wssk.wroc.pl)
* harbour/contrib/rdd_ads/makefile.bc
* harbour/contrib/rdd_ads/make_b32.bat

30
harbour/contrib/ole/hbtest.prg
View File

@@ -19,14 +19,14 @@ PROCEDURE MAIN()
CLS
SetColor("W+/R")
@ 6, 25 TO 16, 55 DOUBLE
@ 8, 28 SAY "Probar OLE con..."
@ 8, 28 SAY "Test hbole.lib with ..."
While .t.
@ 10, 32 PROMPT "Excel"
@ 11, 32 PROMPT "Word"
@ 12, 32 PROMPT "Internet Explorer"
@ 13, 32 PROMPT "Outlook"
@ 14, 32 PROMPT "Salir"
@ 14, 32 PROMPT "Quit"
MENU TO nOption
@@ -65,14 +65,14 @@ STATIC PROCEDURE EXCEL97()
oHoja:Cells:Font:Name := "Arial"
oHoja:Cells:Font:Size := 12
oHoja:Cells( 3, 1 ):Value := "Texto:"
oHoja:Cells( 3, 2 ):Value := "Esto es un texto"
oHoja:Cells( 4, 1 ):Value := "Número:"
oHoja:Cells( 3, 1 ):Value := "Text:"
oHoja:Cells( 3, 2 ):Value := "This is sample text"
oHoja:Cells( 4, 1 ):Value := "Numeric:"
oHoja:Cells( 4, 2 ):NumberFormat := "#.##0,00"
oHoja:Cells( 4, 2 ):Value := 1234.50
oHoja:Cells( 5, 1 ):Value := "Lógico:"
oHoja:Cells( 5, 1 ):Value := "Logical:"
oHoja:Cells( 5, 2 ):Value := .T.
oHoja:Cells( 6, 1 ):Value := "Fecha:"
oHoja:Cells( 6, 1 ):Value := "Date:"
oHoja:Cells( 6, 2 ):Value := DATE()
oHoja:Columns( 1 ):Font:Bold := .T.
@@ -81,7 +81,7 @@ STATIC PROCEDURE EXCEL97()
oHoja:Columns( 1 ):AutoFit()
oHoja:Columns( 2 ):AutoFit()
oHoja:Cells( 1, 1 ):Value := "OLE desde FW"
oHoja:Cells( 1, 1 ):Value := "OLE in Harbour"
oHoja:Cells( 1, 1 ):Font:Size := 16
oHoja:Range( "A1:B1" ):HorizontalAlignment := 7
@@ -105,13 +105,13 @@ STATIC PROCEDURE WORD97()
oTexto := oWord:Selection()
oTexto:Text := "OLE desde FW"+CRLF
oTexto:Text := "Harbour hbOLE.lib"+CRLF+"Word Sample"+CRLF
oTexto:Font:Name := "Arial"
oTexto:Font:Size := 48
oTexto:Font:Bold := .T.
oWord:Visible := .T.
oWord:WindowState := 1 // Maximizado
oWord:WindowState := 1 // Maximize
oTexto:End()
oWord:End()
@@ -128,7 +128,7 @@ STATIC PROCEDURE IEXPLORER()
oIE:Visible := .T.
oIE:Navigate( "http://www.fivetech.com" )
oIE:Navigate( "http://www.harbour-project.org" )
oIE:End()
@@ -144,19 +144,19 @@ STATIC PROCEDURE OUTLOOK()
IF Ole2TxtError() != "S_OK"
Alert("Outlook 2000 no está disponible.", "Error")
Alert("Outlook is not available", "Error")
ELSE
oMail := oOL:CreateItem( 0 ) // olMailItem
FOR i := 1 TO 10
oMail:Recipients:Add( "Contacto" + LTRIM( STR( i, 2 ) ) + ;
"<contacto" + LTRIM( STR( i, 2 ) ) + "@servidor.com>" )
oMail:Recipients:Add( "Contact" + LTRIM( STR( i, 2 ) ) + ;
"<contact" + LTRIM( STR( i, 2 ) ) + "@server.com>" )
NEXT
oLista := oOL:CreateItem( 7 ) // olDistributionListItem
oLista:DLName := "Prueba de lista de distribución"
oLista:DLName := "Test with distribution list"
oLista:Display( .F. )
oLista:AddMembers( oMail:Recipients )
oLista:Save()