diff options
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; |