Code: Select all | Expand
#include "FIVEWIN.CH"STATIC oDlg, oSay, oSay2, oBr FUNCTION MAIN() local oFld1, oBtn, oCheck local lCheck := .f. DEFINE BRUSH oBr COLOR CLR_GREEN DEFINE DIALOG oDlg RESOURCE "DIALOG0" REDEFINE FOLDEREX oFld1 ID 110 OF oDlg; PROMPT "&Clipper", "&Windows" DIALOGS "Sub1", "Sub2" oFld1:aDialogs[1]:lTransparent := .F. REDEFINE SAY oSay ID 1001 OF oFld1:aDialogs[1]
Code: Select all | Expand
DIALOG0 DIALOGEX 44,23,315,171FONT 8,"MS Sans Serif"LANGUAGE 7,1STYLE WS_POPUP|WS_VISIBLE|WS_CAPTION|WS_SYSMENU|DS_MODALFRAME|DS_3DLOOKBEGIN CONTROL "",110,"TFOLDEREX",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,4,5,305,163ENDsub1 DIALOGEX 18,18,264,159FONT 8,"MS Sans Serif"LANGUAGE 7,1STYLE WS_CHILDWINDOW|WS_VISIBLE|DS_3DLOOKBEGIN CONTROL "Text",101,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_GROUP|WS_TABSTOP|BS_AUTORADIOBUTTON,24,33,28,12 CONTROL "this is a Label 1 with Information",1001,"Static",WS_CHILDWINDOW|WS_VISIBLE,24,60,165,9 CONTROL "Click me",1002,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP,57,102,54,15 CONTROL "Checkbox",1003,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP|BS_AUTOCHECKBOX,27,15,54,9 CONTROL "this is a Label 2 with Information",1004,"Static",WS_CHILDWINDOW|WS_VISIBLE,24,75,168,9ENDsub2 DIALOGEX 18,18,273,150FONT 8,"MS Sans Serif"LANGUAGE 7,1STYLE WS_CHILDWINDOW|WS_VISIBLE|DS_3DLOOKBEGIN CONTROL "Text",102,"Button",WS_CHILDWINDOW|WS_VISIBLE|WS_GROUP|WS_TABSTOP|BS_AUTORADIOBUTTON,37,30,28,12 CONTROL "Label 2",1001,"Static",WS_CHILDWINDOW|WS_VISIBLE,39,60,54,9END