int WINAPI
WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
#ifdef _WIN32_WCE
LPWSTR lpCmdLine,
#else
LPSTR lpCmdLine2,
#endif
int nCmdShow)
#endif
{
const unsigned screen_width = 640, screen_height = 480;
ScreenGlobalInit screen_init;
Layout::Initialize(screen_width, screen_height);
InitialiseFonts();
DialogLook *dialog_look = new DialogLook();
dialog_look->Initialise(bold_font, normal_font, bold_font, bold_font);
SingleWindow main_window;
main_window.set(_T("STATIC"), _T("RunListControl"),
0, 0, screen_width, screen_height);
main_window.show();
WndForm form(main_window, *dialog_look, 0, 0,
main_window.get_width(), main_window.get_height(),
_T("RunListControl"));
ContainerWindow &client_area = form.GetClientAreaWindow();
WindowStyle style;
style.tab_stop();
WndListFrame list(client_area, *dialog_look, 2, 2,
client_area.get_width() - 4,
client_area.get_height() - 4,
style, normal_font.get_height() + 4);
list.SetPaintItemCallback(PaintItemCallback);
list.SetLength(64);
list.set_focus();
form.ShowModal();
delete dialog_look;
DeinitialiseFonts();
return 0;
}
/**
* Creates a control from the given XMLNode as a child of the given
* parent.
*
* @param form the WndForm object
* @param LookUpTable The parent CallBackTable
* @param node The XMLNode that represents the control
* @param eDialogStyle The parent's dialog style
*/
static Window *
LoadChild(WndForm &form, ContainerWindow &parent, Color background_color,
CallBackTableEntry *LookUpTable,
XMLNode node, const DialogStyle eDialogStyle,
int bottom_most=0)
{
Window *window = NULL;
// Determine name, coordinates, width, height
// and caption of the control
const TCHAR* Name = GetName(node);
const TCHAR* Caption = GetCaption(node);
RECT rc = parent.get_client_rect();
ControlPosition pos = GetPosition(node, rc, bottom_most);
if (!pos.no_scaling)
pos.x = ScaleWidth(pos.x, eDialogStyle);
ControlSize size = GetSize(node, rc, pos);
if (!size.no_scaling)
size.cx = ScaleWidth(size.cx, eDialogStyle);
WindowStyle style;
if (!StringToIntDflt(node.getAttribute(_T("Visible")), 1))
style.hide();
if (StringToIntDflt(node.getAttribute(_T("Border")), 0))
style.border();
bool advanced = _tcschr(Caption, _T('*')) != NULL;
// PropertyControl (WndProperty)
if (_tcscmp(node.getName(), _T("Edit")) == 0) {
WndProperty *W;
int CaptionWidth;
bool ReadOnly;
bool MultiLine;
// Determine the width of the caption field
CaptionWidth = StringToIntDflt(node.getAttribute(_T("CaptionWidth")), 0);
if (Layout::ScaleSupported())
CaptionWidth = Layout::Scale(CaptionWidth);
CaptionWidth = ScaleWidth(CaptionWidth, eDialogStyle);
// Determine whether the control is multiline or readonly
MultiLine = StringToIntDflt(node.getAttribute(_T("MultiLine")), 0);
ReadOnly = StringToIntDflt(node.getAttribute(_T("ReadOnly")), 0);
// Load the event callback properties
WndProperty::DataChangeCallback_t DataNotifyCallback =
(WndProperty::DataChangeCallback_t)
GetCallBack(LookUpTable, node, _T("OnDataNotify"));
WindowControl::OnHelpCallback_t OnHelpCallback =
(WindowControl::OnHelpCallback_t)
GetCallBack(LookUpTable, node, _T("OnHelp"));
// Create the Property Control
style.control_parent();
EditWindowStyle edit_style;
if (ReadOnly)
edit_style.read_only();
else
edit_style.tab_stop();
if (is_embedded() || Layout::scale_1024 < 2048)
/* sunken edge doesn't fit well on the tiny screen of an
embedded device */
edit_style.border();
else
edit_style.sunken_edge();
if (MultiLine) {
edit_style.multiline();
edit_style.vscroll();
}
window = W = new WndProperty(parent, Caption,
pos.x, pos.y, size.cx, size.cy,
CaptionWidth, background_color,
style, edit_style,
DataNotifyCallback);
// Set the fore- and background color
LoadColors(*W, node);
// Set the help function event callback
W->SetOnHelpCallback(OnHelpCallback);
// Load the help text
W->SetHelpText(StringToStringDflt(node.getAttribute(_T("Help")), _T("")));
// If the control has (at least) one DataField child control
if (node.nChildNode(_T("DataField")) > 0){
// -> Load the first DataField control
DataField *data_field =
LoadDataField(node.getChildNode(_T("DataField"), 0),
LookUpTable, eDialogStyle);
if (data_field != NULL)
// Tell the Property control about the DataField control
W->SetDataField(data_field);
}
// ButtonControl (WndButton)
} else if (_tcscmp(node.getName(), _T("Button")) == 0) {
// Determine ClickCallback function
WndButton::ClickNotifyCallback_t ClickCallback =
(WndButton::ClickNotifyCallback_t)
GetCallBack(LookUpTable, node, _T("OnClick"));
// Create the ButtonControl
ButtonWindowStyle bstyle(style);
bstyle.tab_stop();
bstyle.multiline();
window = new WndButton(parent, Caption,
pos.x, pos.y, size.cx, size.cy,
bstyle, ClickCallback);
} else if (_tcscmp(node.getName(), _T("CheckBox")) == 0) {
// Determine ClickCallback function
CheckBoxControl::ClickNotifyCallback_t ClickCallback =
(CheckBoxControl::ClickNotifyCallback_t)
GetCallBack(LookUpTable, node, _T("OnClick"));
// Create the CheckBoxControl
style.tab_stop();
window = new CheckBoxControl(parent, Caption,
pos.x, pos.y, size.cx, size.cy,
style,
ClickCallback);
// SymbolButtonControl (WndSymbolButton) not used yet
} else if (_tcscmp(node.getName(), _T("SymbolButton")) == 0) {
// Determine ClickCallback function
WndButton::ClickNotifyCallback_t ClickCallback =
(WndButton::ClickNotifyCallback_t)
GetCallBack(LookUpTable, node, _T("OnClick"));
// Create the SymbolButtonControl
style.tab_stop();
window = new WndSymbolButton(parent, Caption,
pos.x, pos.y, size.cx, size.cy,
style, background_color,
ClickCallback);
// PanelControl (WndPanel)
} else if (_tcscmp(node.getName(), _T("Panel")) == 0) {
// Create the PanelControl
style.control_parent();
PanelControl *frame = new PanelControl(parent,
pos.x, pos.y, size.cx, size.cy,
background_color, style);
window = frame;
// Load children controls from the XMLNode
LoadChildrenFromXML(form, *frame, background_color,
LookUpTable, &node, eDialogStyle);
// KeyboardControl
} else if (_tcscmp(node.getName(), _T("Keyboard")) == 0) {
KeyboardControl::OnCharacterCallback_t CharacterCallback =
(KeyboardControl::OnCharacterCallback_t)
GetCallBack(LookUpTable, node, _T("OnCharacter"));
// Create the KeyboardControl
KeyboardControl *kb =
new KeyboardControl(parent,
pos.x, pos.y, size.cx, size.cy, background_color,
CharacterCallback, style);
window = kb;
// DrawControl (WndOwnerDrawFrame)
} else if (_tcscmp(node.getName(), _T("Canvas")) == 0) {
// Determine DrawCallback function
WndOwnerDrawFrame::OnPaintCallback_t PaintCallback =
(WndOwnerDrawFrame::OnPaintCallback_t)
GetCallBack(LookUpTable, node, _T("OnPaint"));
// Create the DrawControl
WndOwnerDrawFrame* canvas =
new WndOwnerDrawFrame(parent,
pos.x, pos.y, size.cx, size.cy,
style, PaintCallback);
window = canvas;
// FrameControl (WndFrame)
} else if (_tcscmp(node.getName(), _T("Label")) == 0){
// Create the FrameControl
WndFrame* frame = new WndFrame(parent,
pos.x, pos.y, size.cx, size.cy,
background_color, style);
// Set the caption
frame->SetCaption(Caption);
window = frame;
// ListBoxControl (WndListFrame)
} else if (_tcscmp(node.getName(), _T("List")) == 0){
// Determine ItemHeight of the list items
unsigned item_height =
Layout::Scale(StringToIntDflt(node.getAttribute(_T("ItemHeight")), 18));
// Create the ListBoxControl
style.tab_stop();
if (is_embedded() || Layout::scale_1024 < 2048)
/* sunken edge doesn't fit well on the tiny screen of an
embedded device */
style.border();
else
style.sunken_edge();
window = new WndListFrame(parent,
pos.x, pos.y, size.cx, size.cy,
style,
item_height);
// TabControl (Tabbed)
} else if (_tcscmp(node.getName(), _T("Tabbed")) == 0) {
// Create the TabControl
style.control_parent();
TabbedControl *tabbed = new TabbedControl(parent,
pos.x, pos.y, size.cx, size.cy,
style);
window = tabbed;
const unsigned n = node.nChildNode();
for (unsigned i = 0; i < n; ++i) {
// Load each child control from the child nodes
Window *child = LoadChild(form, *tabbed, background_color,
LookUpTable,
node.getChildNode(i), eDialogStyle);
if (child != NULL)
tabbed->AddClient(child);
continue;
}
} else if (_tcscmp(node.getName(), _T("Custom")) == 0) {
// Create a custom Window object with a callback
CreateWindowCallback_t create =
(CreateWindowCallback_t)GetCallBack(LookUpTable, node, _T("OnCreate"));
if (create == NULL)
return NULL;
window = create(parent,
pos.x, pos.y, size.cx, size.cy, style);
}
if (window != NULL) {
if (!string_is_empty(Name))
form.AddNamed(Name, window);
if (advanced)
form.AddAdvanced(window);
form.AddDestruct(window);
}
return window;
}