summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2011-07-18 10:24:55 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2011-07-18 10:24:55 +0200
commit8855f319683e6b3f81c485ab02c229e3415de7f0 (patch)
treee5a3069cab30bf574fc3f9c50879771f14540c8d
parentd8c214a8ac04c7a56902155f2c394e7a3d27942d (diff)
downloadfpGUI-8855f319683e6b3f81c485ab02c229e3415de7f0.tar.xz
ide: improved default values for TextEdit component at IDE startup
-rw-r--r--examples/apps/ide/src/frm_main.pas6
1 files changed, 6 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas
index 150a6ecc..a106d57a 100644
--- a/examples/apps/ide/src/frm_main.pas
+++ b/examples/apps/ide/src/frm_main.pas
@@ -756,6 +756,9 @@ begin
pcEditor.TabPosition := TfpgTabPosition(gINI.ReadInteger(cEditor, 'TabPosition', 0));
FRegex := TRegExpr.Create;
FRegex.Expression := cKeywords;
+
+ TextEditor.Clear;
+ TextEditor.SetFocus;
end;
procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -1120,6 +1123,9 @@ begin
Name := 'TextEditor';
SetPosition(0, 0, 130, 200);
Align := alClient;
+ GutterVisible := True;
+ GutterShowLineNumbers := True;
+ FontDesc := '#Edit2';
end;
mnuFile := TfpgPopupMenu.Create(self);