- Code: Select all Expand view
- // RESOURCE SCRIPT generated by "Pelles C for Windows, version 10.00".
LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US
1 MANIFEST "winxp.man"
EEF3 DIALOG DISCARDABLE 197, 105, 277, 127
STYLE WS_POPUP|DS_MODALFRAME|DS_CENTER|WS_CAPTION|WS_VISIBLE
CAPTION "TEST"
FONT 8, "Microsoft Sans Serif"
{
CONTROL "", 101, "Edit", ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 24, 20, 180, 12
CONTROL "", 102, "ListBox", LBS_NOTIFY|WS_VSCROLL|WS_BORDER|WS_GROUP|WS_TABSTOP, 24, 40, 180, 82
CONTROL "&Izlaz", 103, "Button", WS_TABSTOP, 212, 96, 56, 18
}
This is my Test.prg:
- Code: Select all Expand view
- #include "fivewin.ch"
//----------------------------------------------------------------------------//
function Test()
Local cKrit,oLbx
DEFINE DIALOG oDlg RESOURCE "EEF3"
REDEFINE GET oKrit VAR cKrit ID 101 OF oDlg
REDEFINE LISTBOX oLbx ID 102;
OF oDlg
REDEFINE BUTTON ID 103 OF oDlg ;
ACTION oDlg:end()
ACTIVATE DIALOG oDlg
return nil
if I use FiveWin 12.08. and xHarbour build 1.2.1
Test1
if I use FiveWin 21.11. and xHarbour 1.2.3
Test2
How can I get dialogue to look like Test1 by using Fivewin 21.11 an xHarbour 1.2.3??
Best regards,
Miloš
