#include "Fivewin.ch"
#include "constant.ch"
Function test()
Local oDlg
Local oBtn[3],aGet[1]
Local cCursorBtn:= TCursor():New(,'HAND')
Local nBottom := 33
Local nRight := 62
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H
DEFINE DIALOG oDlg ;
SIZE nWidth, nHeight ;
COLOR CLR_BLACK,CLR_WHITE ;
STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, 4 )
@ 80,10 GET aGet[1] SIZE 80,15 PIXEL OF oDlg
@ 80,90 BTNBMP oBtn2 FILENAME "DLG_SEL.bmp" ;
SIZE 15,15 PIXEL OF oDlg ;
COLOR CLR_BLACK,CLR_WHITE
@ 222, 10 BTNBMP oBtn1 FILENAME "DLG_ALLEGO.bmp" ;
PROMPT "Allegati..." SIZE 45,18 LEFT PIXEL OF oDlg ;
ACTION Dummy()
@ 222, 112 BTNBMP oBtn2 FILENAME "DLG_OK.bmp" ;
PROMPT "Conferma..." SIZE 45,18 LEFT PIXEL OF oDlg ;
ACTION ( oDlg:end( IDOK ) )
@ 222, 185 BTNBMP oBtn3 FILENAME "DLG_NO.bmp" ;
PROMPT "Annulla..." SIZE 45,18 LEFT PIXEL OF oDlg ;
ACTION ( oDlg:end( IDCANCEL ) )
Activate dialog oDlg ;
on init ( oBtn1:SetThemed( .t. ),;
oBtn2:SetThemed( .t. ),;
oBtn3:SetThemed( .t. ),;
oBtn2:SetThemed( .t. ))
Return nil
//-----------------------------------------------//
Function Dummy()
RETURN NI
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 44 guests