diff options
Diffstat (limited to 'examples/gui')
-rw-r--r-- | examples/gui/edits/edittest.lpi | 1 | ||||
-rw-r--r-- | examples/gui/gridtest/gridtest.lpr | 5 |
2 files changed, 4 insertions, 2 deletions
diff --git a/examples/gui/edits/edittest.lpi b/examples/gui/edits/edittest.lpi index 302cd2c1..e9661391 100644 --- a/examples/gui/edits/edittest.lpi +++ b/examples/gui/edits/edittest.lpi @@ -9,6 +9,7 @@ </Flags> <SessionStorage Value="InProjectDir"/> <MainUnit Value="0"/> + <IconPath Value="./"/> <TargetFileExt Value=""/> </General> <VersionInfo> diff --git a/examples/gui/gridtest/gridtest.lpr b/examples/gui/gridtest/gridtest.lpr index 79ad595d..3209911e 100644 --- a/examples/gui/gridtest/gridtest.lpr +++ b/examples/gui/gridtest/gridtest.lpr @@ -11,6 +11,7 @@ uses gfxbase, fpgfx, gui_form, + gui_basegrid, gui_grid, gui_button, gui_checkbox, @@ -39,7 +40,7 @@ type procedure chkShowGridChange(Sender: TObject); procedure btnQuitClick(Sender: TObject); procedure stringgridDrawCell(Sender: TObject; const ARow, ACol: Longword; - const ARect: TfpgRect; AFlags: integer; var ADefaultDrawing: boolean); + const ARect: TfpgRect; const AFlags: TfpgGridDrawState; var ADefaultDrawing: boolean); protected procedure HandleShow; override; public @@ -78,7 +79,7 @@ begin end; procedure TMainForm.stringgridDrawCell(Sender: TObject; const ARow, - ACol: Longword; const ARect: TfpgRect; AFlags: integer; + ACol: Longword; const ARect: TfpgRect; const AFlags: TfpgGridDrawState; var ADefaultDrawing: boolean); begin if (ACol = 1) and (ARow = 3) then |