From 483eda5909cf21a06f3011857a12f47ae676ffef Mon Sep 17 00:00:00 2001 From: graemeg Date: Tue, 26 Aug 2008 16:47:53 +0000 Subject: * Moved the UI Designer from the examples/apps directory to the root directory. * Updated some build scripts --- uidesigner/vfdwidgets.pas | 453 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 453 insertions(+) create mode 100644 uidesigner/vfdwidgets.pas (limited to 'uidesigner/vfdwidgets.pas') 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. + -- cgit v1.2.3-70-g09d2