diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-04-20 10:16:07 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-04-20 10:16:07 +0200 |
| commit | 6a17c6f0655dc36776947276dc8563b8925437fd (patch) | |
| tree | 1172f8c340cd2d476f8a4ed8e37d975a13b4a3f0 /examples/apps | |
| parent | 97e64210f7e4304fc43d9a4a1d08b581b73e7a86 (diff) | |
| download | fpGUI-6a17c6f0655dc36776947276dc8563b8925437fd.tar.xz | |
Define default value for Backward parameter.
Diffstat (limited to 'examples/apps')
| -rw-r--r-- | examples/apps/ide/src/fpg_textedit.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas index 13008b3c..1250839b 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -190,7 +190,7 @@ type procedure DeleteSelection; procedure SaveToFile(const AFileName: TfpgString); procedure LoadFromFile(const AFileName: TfpgString); - procedure FindText(TextToFind: TfpgString; FindOptions: TfpgFindOptions; Backward: Boolean); + procedure FindText(TextToFind: TfpgString; FindOptions: TfpgFindOptions; Backward: Boolean = False); property FontHeight: Integer read FChrH; property FontWidth: Integer read FChrW; property ScrollPos_H: Integer read GetHScrollPos write SetHScrollPos; |