* Moved the UI Designer from the examples/apps directory to the root directory.

* Updated some build scripts

1 files changed, 453 insertions, 0 deletions

diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas
new file mode 100644
index 00000000..099cf4c5
--- /dev/null
+++ b/uidesigner/vfdwidgets.pas
@@ -0,0 +1,453 @@
+{
+    fpGUI  -  Free Pascal GUI Toolkit
+
+    Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+    distribution, for details of the copyright.
+
+    See the file COPYING.modifiedLGPL, included in this distribution,
+    for details about redistributing fpGUI.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+    Description:
+      Setting up of widgets, properties and images.
+}
+
+unit vfdwidgets;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  SysUtils,
+  Classes,
+  contnrs,
+  vfdwidgetclass,
+  vfdprops,
+  typinfo;
+
+procedure RegisterWidgets;
+procedure RegisterVFDWidget(awc: TVFDWidgetClass);
+function  VFDWidgetCount: integer;
+function  VFDWidget(ind: integer): TVFDWidgetClass;
+function  VFDFormWidget: TVFDWidgetClass;
+
+var
+  VFDOtherWidget: TVFDWidgetClass;
+
+implementation
+
+uses
+  fpgfx,
+  vfddesigner,
+  gui_form,
+  gui_label,
+  gui_edit,
+  gui_button,
+  gui_listbox,
+  gui_memo,
+  gui_combobox,
+  gui_grid,
+  gui_checkbox,
+  gui_panel,
+  gui_tree,
+  gui_radiobutton,
+  gui_listview,
+  gui_trackbar,
+  gui_menu,
+  gui_progressbar,
+  gui_tab,
+  gui_popupcalendar,
+  gui_gauge,
+  vfdpropeditgrid;
+
+var
+  FVFDFormWidget: TVFDWidgetClass;
+  FVFDWidgets: TObjectList;
+
+function VFDFormWidget: TVFDWidgetClass;
+begin
+  Result := FVFDFormWidget;
+end;
+
+function VFDWidgetCount: integer;
+begin
+  Result := FVFDWidgets.Count;
+end;
+
+function VFDWidget(ind: integer): TVFDWidgetClass;
+begin
+  Result := TVFDWidgetClass(FVFDWidgets[ind]);
+end;
+
+procedure RegisterVFDWidget(awc: TVFDWidgetClass);
+begin
+  FVFDWidgets.Add(awc);
+end;
+
+{$I icons.inc}
+
+procedure LoadIcons;
+begin
+  fpgImages.AddMaskedBMP(
+    'vfd.arrow', @stdimg_vfd_arrow,
+    sizeof(stdimg_vfd_arrow),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.label', @stdimg_vfd_label,
+    sizeof(stdimg_vfd_label),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.edit', @stdimg_vfd_edit,
+    sizeof(stdimg_vfd_edit),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.memo', @stdimg_vfd_memo,
+    sizeof(stdimg_vfd_memo),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.button', @stdimg_vfd_button,
+    sizeof(stdimg_vfd_button),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.checkbox', @stdimg_vfd_checkbox,
+    sizeof(stdimg_vfd_checkbox),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.listbox', @stdimg_vfd_listbox,
+    sizeof(stdimg_vfd_listbox),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.combobox', @stdimg_vfd_combobox,
+    sizeof(stdimg_vfd_combobox),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.panel', @stdimg_vfd_panel,
+    sizeof(stdimg_vfd_panel),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.other', @stdimg_vfd_other,
+    sizeof(stdimg_vfd_other),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.dbgrid', @stdimg_vfd_dbgrid,
+    sizeof(stdimg_vfd_dbgrid),
+    15,0 );
+
+  fpgImages.AddMaskedBMP(
+    'vfd.progressbar', @stdimg_vfd_progressbar,
+    sizeof(stdimg_vfd_progressbar),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.trackbar', @stdimg_vfd_trackbar,
+    sizeof(stdimg_vfd_trackbar),
+    0, 0);
+    
+  fpgImages.AddMaskedBMP(
+    'vfd.gauge', @stdimg_vfd_gauge,
+    sizeof(stdimg_vfd_gauge),
+    0, 0);
+    
+  fpgImages.AddMaskedBMP(
+    'vfd.menubar', @stdimg_vfd_menubar,
+    sizeof(stdimg_vfd_menubar),
+    0, 0);
+    
+  fpgImages.AddMaskedBMP(
+    'vfd.listview', @stdimg_vfd_listview,
+    sizeof(stdimg_vfd_listview),
+    0, 0);
+    
+  fpgImages.AddMaskedBMP(
+    'vfd.stringgrid', @stdimg_vfd_stringgrid,
+    sizeof(stdimg_vfd_stringgrid),
+    0, 0);
+    
+  fpgImages.AddMaskedBMP(
+    'vfd.radiobutton', @stdimg_vfd_radiobutton,
+    sizeof(stdimg_vfd_radiobutton),
+    0, 0);
+    
+  fpgImages.AddMaskedBMP(
+    'vfd.pagecontrol', @stdimg_vfd_pagecontrol,
+    sizeof(stdimg_vfd_pagecontrol),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.treeview', @stdimg_vfd_treeview,
+    sizeof(stdimg_vfd_treeview),
+    0, 0);
+
+  fpgImages.AddMaskedBMP(
+    'vfd.newform', @stdimg_vfd_newform,
+    sizeof(stdimg_vfd_newform),
+    0, 0);
+    
+  fpgImages.AddMaskedBMP(
+    'vfd.combodateedit', @stdimg_vfd_dateedit,
+    sizeof(stdimg_vfd_dateedit),
+    0, 0);
+    
+  fpgImages.AddMaskedBMP(
+    'vfd.bevel', @stdimg_vfd_bevel,
+    sizeof(stdimg_vfd_bevel),
+    0, 0);
+
+end;
+
+procedure AddWidgetPosProps(wgc: TVFDWidgetClass);
+begin
+  wgc.AddProperty('Left', TPropertyInteger, '');
+  wgc.AddProperty('Top', TPropertyInteger, '');
+  wgc.AddProperty('Width', TPropertyInteger, '');
+  wgc.AddProperty('Height', TPropertyInteger, '');
+end;
+
+procedure RegisterWidgets;
+var
+  wc: TVFDWidgetClass;
+begin
+  LoadIcons;
+
+  wc          := TVFDWidgetClass.Create(TfpgForm);
+  wc.NameBase := 'frm';
+  wc.AddProperty('WindowTitle', TPropertyString, '');
+//  wc.AddProperty('WindowPosition', TPropertyEnum, '');
+  FVFDFormWidget := wc;
+
+  // Label
+  wc          := TVFDWidgetClass.Create(TfpgLabel);
+  wc.NameBase := 'lblName';
+  wc.AddProperty('Alignment', TPropertyEnum, 'Horizontal text alignment');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the label text');
+  wc.AddProperty('Layout', TPropertyEnum, 'Vertical text layout');
+  wc.AddProperty('Text', TPropertyString, 'Label text');
+  wc.AddProperty('WrapText', TPropertyBoolean, 'If True text will wrap when it doesn''t fit the width');
+  wc.WidgetIconName := 'vfd.label';
+  RegisterVFDWidget(wc);
+
+  // Edit
+  wc          := TVFDWidgetClass.Create(TfpgEdit);
+  wc.NameBase := 'edtName';
+//  wc.AddProperty('Color', TPropertyColor, 'Text color');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('Text', TPropertyString, 'Initial text');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.WidgetIconName := 'vfd.edit';
+  RegisterVFDWidget(wc);
+
+  // Memo
+  wc          := TVFDWidgetClass.Create(TfpgMemo);
+  wc.NameBase := 'memName';
+  wc.AddProperty('Lines', TPropertyStringList, '');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.memo';
+  RegisterVFDWidget(wc);
+
+  // Button
+  wc          := TVFDWidgetClass.Create(TfpgButton);
+  wc.NameBase := 'btnName';
+  wc.AddProperty('Text', TPropertyString, 'Initial text');
+  wc.AddProperty('AllowAllUp', TPropertyBoolean, '');
+  wc.AddProperty('Embedded', TPropertyBoolean, 'No focus rectangle will be drawn. eg: Toolbar buttons');
+  wc.AddProperty('Flat', TPropertyBoolean, 'Only draw button borders when mouse hovers over button');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('GroupIndex', TPropertyInteger, '');
+  wc.AddProperty('ImageLayout', TPropertyEnum, 'Which side of the button contains the image');
+  wc.AddProperty('ImageMargin', TPropertyInteger, 'Space between image and border, -1 centers image/text');
+  wc.AddProperty('ImageName', TPropertyString, '');
+  wc.AddProperty('ImageSpacing', TPropertyInteger, 'Space between image and text, -1 centers text');
+  wc.AddProperty('ModalResult', TPropertyInteger, '');
+  wc.AddProperty('ShowImage', TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.button';
+  RegisterVFDWidget(wc);
+
+  // CheckBox
+  wc          := TVFDWidgetClass.Create(TfpgCheckBox);
+  wc.NameBase := 'cbName';
+  wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('Text', TPropertyString, 'Initial text');
+  wc.WidgetIconName := 'vfd.checkbox';
+  RegisterVFDWidget(wc);
+
+  // RadioButton
+  wc          := TVFDWidgetClass.Create(TfpgRadioButton);
+  wc.NameBase := 'rbName';
+  wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('GroupIndex', TPropertyInteger, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('Text', TPropertyString, 'Initial text');
+  wc.WidgetIconName := 'vfd.radiobutton';
+  RegisterVFDWidget(wc);
+
+  // ComboBox
+  wc          := TVFDWidgetClass.Create(TfpgComboBox);
+  wc.NameBase := 'cbName';
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('Items', TPropertyStringList, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.combobox';
+  RegisterVFDWidget(wc);
+
+  // Calendar ComboBox
+  wc          := TVFDWidgetClass.Create(TfpgCalendarCombo);
+  wc.NameBase := 'calName';
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.combodateedit';
+  RegisterVFDWidget(wc);
+
+  // ListBox
+  wc          := TVFDWidgetClass.Create(TfpgListBox);
+  wc.NameBase := 'lstName';
+  wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
+  wc.AddProperty('HotTrack', TPropertyBoolean, '');
+  wc.AddProperty('Items', TPropertyStringList, '');
+  wc.AddProperty('PopupFrame', TPropertyBoolean, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.listbox';
+  RegisterVFDWidget(wc);
+
+  // StringGrid
+  wc := TVFDWidgetClass.Create(TfpgStringGrid);
+  wc.NameBase := 'grdName';
+  wc.AddProperty('Columns', TPropertyDBColumns, '');
+  wc.AddProperty('FontDesc', TPropertyFontDesc, '');
+  wc.AddProperty('HeaderFontDesc', TPropertyFontDesc, '');
+  wc.AddProperty('RowCount', TPropertyInteger, '');
+  wc.AddProperty('RowSelect', TPropertyBoolean, '');
+  wc.AddProperty('ShowHeader', TPropertyBoolean, '');
+  wc.AddProperty('ShowGrid', TPropertyBoolean, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.stringgrid';
+  RegisterVFDWidget(wc);
+
+  // Bevel
+  wc           := TVFDWidgetClass.Create(TfpgBevel);
+  wc.NameBase  := 'bvlName';
+  wc.AddProperty('BorderStyle', TPropertyEnum, 'Single or Double');
+  wc.AddProperty('Style', TPropertyEnum, 'Raised or Lower look');
+  wc.AddProperty('Shape', TPropertyEnum, 'Box, Frame, TopLine, Spacer etc..');
+  wc.WidgetIconName := 'vfd.bevel';
+  wc.Container := True;
+  RegisterVFDWidget(wc);
+
+  // Panel
+  wc           := TVFDWidgetClass.Create(TfpgPanel);
+  wc.NameBase  := 'pnlName';
+  wc.AddProperty('Alignment', TPropertyEnum, 'Text alignment');
+  wc.AddProperty('Layout', TPropertyEnum, 'Layout of the caption');
+  wc.AddProperty('LineSpace', TPropertyInteger, 'Line spacing between wrapped caption');
+  wc.AddProperty('Margin', TPropertyInteger, 'Margin of text');
+  wc.AddProperty('Style', TPropertyEnum, '');
+  wc.AddProperty('Text', TPropertyString, 'The panel caption');
+  wc.AddProperty('WrapText', TPropertyBoolean, 'Should the panel text be wrapped');
+  wc.WidgetIconName := 'vfd.panel';
+  wc.Container := True;
+  RegisterVFDWidget(wc);
+  
+  // ProgressBar
+  wc          := TVFDWidgetClass.Create(TfpgProgressBar);
+  wc.NameBase := 'pbName';
+  wc.AddProperty('Min', TPropertyInteger, '');
+  wc.AddProperty('Max', TPropertyInteger, '');
+  wc.AddProperty('Position', TPropertyInteger, '');
+  wc.AddProperty('ShowCaption', TPropertyBoolean, '');
+  wc.WidgetIconName := 'vfd.progressbar';
+  RegisterVFDWidget(wc);
+
+  // TrackBar
+  wc          := TVFDWidgetClass.Create(TfpgTrackBar);
+  wc.NameBase := 'tbName';
+  wc.AddProperty('Max', TPropertyInteger, '');
+  wc.AddProperty('Min', TPropertyInteger, '');
+  wc.AddProperty('Orientation', TPropertyEnum, '');
+  wc.AddProperty('Position', TPropertyInteger, '');
+  wc.AddProperty('ShowPosition', TPropertyBoolean, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.trackbar';
+  RegisterVFDWidget(wc);
+
+  // ListView
+  wc := TVFDWidgetClass.Create(TfpgListView);
+  wc.NameBase := 'lvName';
+  wc.AddProperty('MultiSelect', TPropertyBoolean, '');
+  wc.AddProperty('ShowHeaders', TPropertyBoolean, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.WidgetIconName := 'vfd.listview';
+  RegisterVFDWidget(wc);
+
+  // Treeview
+  wc := TVFDWidgetClass.Create(TfpgTreeView);
+  wc.NameBase := 'tvName';
+  wc.AddProperty('DefaultColumnWidth',TPropertyInteger, '');
+  wc.AddProperty('FontDesc',TPropertyFontDesc, '');
+  wc.AddProperty('ScrollWheelDelta', TPropertyInteger, 'Scroll amount with mouse wheel');
+  wc.AddProperty('ShowColumns',TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('ShowImages',TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TreeLineStyle', TPropertyEnum, '');
+  wc.WidgetIconName := 'vfd.treeview';
+  RegisterVFDWidget(wc);
+  
+  // PageControl
+  wc          := TVFDWidgetClass.Create(TfpgPageControl);
+  wc.NameBase := 'pcName';
+  wc.AddProperty('FixedTabWidth', TPropertyInteger, '');
+  wc.AddProperty('SortPages', TPropertyBoolean, 'Boolean value');
+  wc.AddProperty('Style', TPropertyEnum, '');
+  wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
+  wc.AddProperty('TabPosition', TPropertyEnum, '');
+  wc.WidgetIconName := 'vfd.pagecontrol';
+  RegisterVFDWidget(wc);
+
+  // Gauge
+  wc          := TVFDWidgetClass.Create(TfpgGauge);
+  wc.NameBase := 'gauName';
+  wc.AddProperty('Kind', TPropertyEnum, '');
+  wc.AddProperty('MinValue', TPropertyInteger, '');
+  wc.AddProperty('MaxValue', TPropertyInteger, '');
+  wc.AddProperty('Progress', TPropertyInteger, '');
+  wc.AddProperty('ShowText', TPropertyBoolean, 'Boolean value');
+  wc.WidgetIconName := 'vfd.gauge';
+  RegisterVFDWidget(wc);
+
+
+  // Other - do not delete!!! this should be the last...
+  wc          := TVFDWidgetClass.Create(TOtherWidget);
+  wc.NameBase := 'Custom';
+  wc.WidgetIconName := 'vfd.other';
+  wc.Container := True;
+  RegisterVFDWidget(wc);
+  VFDOtherWidget := wc;
+end;
+
+
+initialization
+    FVFDWidgets := TObjectList.Create;
+
+finalization
+    FVFDWidgets.Free;
+    FVFDFormWidget.Free;
+    
+end.
+