#include "FiveWin.ch"
function Main()
local oDlg, oBrw, aData := { "one", "two", "three" }
DEFINE DIALOG oDlg RESOURCE 1001
REDEFINE XBROWSE oBrw ID 4001 ARRAY aData OF oDlg
ACTIVATE DIALOG oDlg CENTERED
return nil
#include <windows.h>
#include <commctrl.h>
#include <richedit.h>
LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US
1001 DIALOGEX DISCARDABLE 6, 18, 314, 174
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "Tahoma", 0, 0
{
CONTROL "OK", IDOK, "Button", WS_TABSTOP, 264, 8, 45, 15
CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 264, 28, 45, 15
CONTROL "Custom control", 4001, "TXBrowse", WS_VSCROLL | WS_HSCROLL, 8, 8, 248, 156
}
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Cgallegoa, Google [Bot] and 78 guests