diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-07 22:52:27 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-07 22:52:27 +0000 |
| commit | 77f68d38a6dc24ec0679f7fd23bf42869e795313 (patch) | |
| tree | 875e8d65bddd8470aff8026e634738804d59df84 /examples/gui/tabtest | |
| parent | 0fed18d37c6348ec91790f7e3fab843b2efaceda (diff) | |
| download | fpGUI-77f68d38a6dc24ec0679f7fd23bf42869e795313.tar.xz | |
* Published more events and properties for EditInteger and EditFload components.
* Now the Min/Max Size is actually applied, the Message Dialogs needed minor attention.
* Updated all the example projects to use the newer all-in-one fpgui_toolkit lazarus package.
* Did some minor bug fixing in some of the examples. 1-based indexing instead of 0-based indexing etc.
Diffstat (limited to 'examples/gui/tabtest')
| -rw-r--r-- | examples/gui/tabtest/tabtest.lpi | 3 | ||||
| -rw-r--r-- | examples/gui/tabtest/tabtest.lpr | 8 |
2 files changed, 6 insertions, 5 deletions
diff --git a/examples/gui/tabtest/tabtest.lpi b/examples/gui/tabtest/tabtest.lpi index ffd8d2dc..5695f0ca 100644 --- a/examples/gui/tabtest/tabtest.lpi +++ b/examples/gui/tabtest/tabtest.lpi @@ -28,8 +28,7 @@ </RunParams> <RequiredPackages Count="1"> <Item1> - <PackageName Value="fpgui_package"/> - <MinVersion Minor="5" Valid="True"/> + <PackageName Value="fpgui_toolkit"/> </Item1> </RequiredPackages> <Units Count="1"> diff --git a/examples/gui/tabtest/tabtest.lpr b/examples/gui/tabtest/tabtest.lpr index 23feb0cc..db1c6388 100644 --- a/examples/gui/tabtest/tabtest.lpr +++ b/examples/gui/tabtest/tabtest.lpr @@ -7,7 +7,7 @@ uses cthreads, {$ENDIF}{$ENDIF} Classes, fpgfx, gfx_widget, gfxbase, gui_form, gui_tab, gui_button, - gui_label, gui_edit, gui_checkbox, gui_combobox; + gui_label, gui_edit, gui_checkbox, gui_combobox, fpgui_toolkit; type TMainForm = class(TfpgForm) @@ -61,7 +61,7 @@ end; procedure TMainForm.cbTabPosChanged(Sender: TObject); begin - if cbTabPos.FocusItem = 1 then + if cbTabPos.FocusItem = 0 then pcMain.TabPosition := tpTop else pcMain.TabPosition := tpBottom; @@ -117,12 +117,14 @@ begin btn3.Anchors := [anLeft, anBottom]; chkSort := CreateCheckBox(self, 190, 320, 'Sort Tabs'); + chkSort.Anchors := [anBottom, anLeft]; chkSort.OnChange := @chkSortChange; cbTabPos := CreateComboBox(self, 300, 320, 80, nil); cbTabPos.Items.Add('tpTop'); cbTabPos.Items.Add('tpBottom'); - cbTabPos.FocusItem := 1; + cbTabPos.FocusItem := 0; + cbTabPos.Anchors := [anBottom, anLeft]; cbTabPos.OnChange := @cbTabPosChanged; end; |