diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-23 15:11:00 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-23 15:11:00 +0000 |
| commit | 5dadde45ad809f1bdbac8d31b0901f88cae70a6c (patch) | |
| tree | cea50b36f1ec849f0b8aa5d4941218b96d4e1c9b /prototypes | |
| parent | aa3047498c3f9ac846b175e2f44ddbebafac86bc (diff) | |
| download | fpGUI-5dadde45ad809f1bdbac8d31b0901f88cae70a6c.tar.xz | |
* Did more work on the TfpgComboBox. It's starting to look good.
Diffstat (limited to 'prototypes')
| -rw-r--r-- | prototypes/fpgui2/tests/edittest.dpr | 8 | ||||
| -rw-r--r-- | prototypes/fpgui2/tests/edittest.lpi | 7 |
2 files changed, 7 insertions, 8 deletions
diff --git a/prototypes/fpgui2/tests/edittest.dpr b/prototypes/fpgui2/tests/edittest.dpr index 500be048..9440f7b8 100644 --- a/prototypes/fpgui2/tests/edittest.dpr +++ b/prototypes/fpgui2/tests/edittest.dpr @@ -14,7 +14,6 @@ uses gui_edit, gui_combobox, gui_scrollbar, - uhelpers, gui_memo, gui_dialogs, gui_listbox; @@ -64,6 +63,7 @@ type memo: TfpgMemo; listbox: TfpgListBox; combo1: TfpgComboBox; + combo2: TfpgComboBox; sbar: TfpgScrollBar; xpluna: TXPButton; xp2: TXPButton; @@ -253,7 +253,6 @@ end; procedure TMainForm.btnDisplayBMP(Sender: TObject); var bmp: TfpgImage; - i: integer; begin bmp := LoadImage_BMP(SetDirSeparators('../../../images/themes/luna/button.bmp')); bmp.CreateMaskFromSample(0, 0); @@ -318,6 +317,11 @@ end; btn.ShowImage := True; combo1 := CreateComboBox(self, 10, 160, 120, nil); + for i := 1 to 5 do + combo1.Items.Add(Format('Items %.2d', [i])); + combo2 := CreateComboBox(self, 10, 190, 120, nil); + for i := 1 to 20 do + combo2.Items.Add(Format('Items %.2d', [i])); memo := TfpgMemo.Create(self); memo.Top := 10; diff --git a/prototypes/fpgui2/tests/edittest.lpi b/prototypes/fpgui2/tests/edittest.lpi index c96925dd..1ecb384f 100644 --- a/prototypes/fpgui2/tests/edittest.lpi +++ b/prototypes/fpgui2/tests/edittest.lpi @@ -32,17 +32,12 @@ <MinVersion Minor="5" Valid="True"/> </Item1> </RequiredPackages> - <Units Count="2"> + <Units Count="1"> <Unit0> <Filename Value="edittest.dpr"/> <IsPartOfProject Value="True"/> <UnitName Value="edittest"/> </Unit0> - <Unit1> - <Filename Value="uhelpers.pas"/> - <IsPartOfProject Value="True"/> - <UnitName Value="uhelpers"/> - </Unit1> </Units> </ProjectOptions> <CompilerOptions> |