diff options
Diffstat (limited to 'examples/apps/uidesigner/vfdforms.pas')
-rw-r--r-- | examples/apps/uidesigner/vfdforms.pas | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/examples/apps/uidesigner/vfdforms.pas b/examples/apps/uidesigner/vfdforms.pas index 8c19104a..5748dfd7 100644 --- a/examples/apps/uidesigner/vfdforms.pas +++ b/examples/apps/uidesigner/vfdforms.pas @@ -99,14 +99,6 @@ type procedure AfterCreate; override; procedure OnButtonClick(Sender: TObject); end; - - - TPaletteForm = class(TfpgForm) - public - clab: TfpgLabel; - clist: TfpgListBox; - procedure AfterCreate; override; - end; TfrmVFDSetup = class(TfpgForm) @@ -132,8 +124,6 @@ type end; -var - PaletteForm: TPaletteForm; implementation @@ -144,28 +134,6 @@ uses gfx_constants; -{ TPaletteForm } - -procedure TPaletteForm.AfterCreate; -begin - inherited AfterCreate; - WindowPosition := wpUser; - WindowTitle := 'Palette'; - SetPosition(10, 450, 110, 220); - - clab := CreateLabel(self, 3, 3, 'Widget Palette:'); - - clist := TfpgListBox.Create(self); - clist.Left := 1; - clist.Width := Width - 2; - clist.Top := 22; - clist.Height := Height - clist.top - 2; - clist.Anchors := [anLeft, anRight, anTop, anBottom]; - clist.Items.Add('-'); - clist.OnChange := @(maindsgn.OnPaletteChange); -end; - - { TInsertCustomForm } procedure TInsertCustomForm.AfterCreate; |