diff options
Diffstat (limited to 'examples/apps/uidesigner/vfdeditors.pas')
-rw-r--r-- | examples/apps/uidesigner/vfdeditors.pas | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/examples/apps/uidesigner/vfdeditors.pas b/examples/apps/uidesigner/vfdeditors.pas deleted file mode 100644 index 0c4e081f..00000000 --- a/examples/apps/uidesigner/vfdeditors.pas +++ /dev/null @@ -1,98 +0,0 @@ -{ - 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: - Some property editors. -} - -unit vfdeditors; - -{$mode objfpc}{$H+} - -interface - -uses - Classes, - SysUtils, - gfx_widget, - gui_label, - gui_button, - gui_memo, - vfdforms; - -type - - TItemEditorForm = class(TVFDDialog) - private - procedure btnClearClicked(Sender: TObject); - procedure OnButtonClick(Sender: TObject); - public - l1: TfpgLabel; - edItems: TfpgMemo; - btnOK: TfpgButton; - btnCancel: TfpgButton; - btnClear: TfpgButton; - procedure AfterCreate; override; - end; - - -implementation - -uses - gfxbase, - fpgfx; - -{ TItemEditorForm } - -procedure TItemEditorForm.AfterCreate; -begin - inherited; - WindowTitle := 'Items'; - SetPosition(0, 0, 360, 230); - - l1 := CreateLabel(self, 8, 4, 'Items:'); - - edItems := TfpgMemo.Create(self); - with edItems do - begin - SetPosition(8, 24, 344, 168); - Anchors := AllAnchors; - end; - - btnClear := CreateButton(self, 8, 200, 80, 'Clear', @btnClearClicked); - btnClear.Anchors := [anLeft, anBottom]; - - btnOK := CreateButton(self, btnClear.Right + 4, 200, 80, 'OK', @OnButtonClick); - btnOK.Anchors := [anLeft, anBottom]; - - btnCancel := CreateButton(self, Width-84, 200, 80, 'Cancel', @OnButtonClick); - btnCancel.Anchors := [anRight, anBottom]; - -end; - -procedure TItemEditorForm.btnClearClicked(Sender: TObject); -begin - edItems.Lines.Clear; -end; - -procedure TItemEditorForm.OnButtonClick(Sender: TObject); -begin - if Sender = btnOK then - ModalResult := mrOK - else - ModalResult := mrCancel; -end; - - -end. - |