home *** CD-ROM | disk | FTP | other *** search
- #include "fivewin.ch"
- #include "ch\c5fldac.ch"
- #include "ch\tooltips.ch"
-
- function main()
- Local hLib, oFont
- Public oWnd
-
- * atencion a BWCC.DLL
- hLib := LoadLibrary("bwcc.dll")
-
- DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0,-10
-
- SET RESOURCES TO "PRUEBA3.DLL"
-
-
- DEFINE WINDOW oWnd TITLE "Prueba de folders tipo Access"
-
- DEFINE BUTTONBAR oBar SIZE 28,28 3DLOOK OF oWnd
-
- DEFINE BUTTON oBtn1 NAME "baradj" OF oBar ACTION Crea()
- DEFINE BUTTON oBtn2 NAME "barleft" OF oBar
- DEFINE BUTTON oBtn3 NAME "barright" OF oBar
- DEFINE BUTTON oBtn4 NAME "bartop" OF oBar
-
- oWnd:SetFont( oFont )
- // importante para poder heredar el FONT a la caja de diálogo
-
- SET MESSAGE OF oWnd TO "Prueba de Folders"
-
-
- ACTIVATE WINDOW oWnd MAXIMIZED ;
- ON INIT Crea()
-
-
- DEACTIVATE FONT oFont
-
-
- return nil
-
- Function crea()
- Local oDlg, oFld, oCal, oToolTip
-
- DEFINE DIALOG oDlg NAME "DIALOG_1" FONT oWnd:oFont
-
- REDEFINE FOLDERAC oFld ID 101 OF oDlg ;
- LEFT ;
- PROMPTS "New","Send","Post" ;
- DIALOGS "DIALOG_2","DIALOG_3","DIALOG_4" ;
- BITMAPS "bmps\new.bmp","bmps\letter.bmp","bmps\mailbox.bmp"
-
- DEFINE TOOLTIP oToolTip OF oFld
-
- SET TOOLTIP oToolTip TO TAB 1 PROMPT "Nuevo mensaje"
- SET TOOLTIP oToolTip TO TAB 2 PROMPT "Recibir correo"
- SET TOOLTIP oToolTip TO TAB 3 PROMPT "Enviar correo"
-
- ACTIVATE DIALOG oDlg CENTERED
-
- Return nil
-
-
-
-
-