paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:28:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: using default synedit fonts

Browse Source 
git-svn-id: trunk@16542 -
This commit is contained in:
mattias 2008-09-11 11:10:13 +00:00
parent ee444718d7
commit b793cfac02
6 changed files with 26 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/codetoolsdefines.pas
View File

@ -50,7 +50,7 @@ uses
CodeToolManager, DefineTemplates,
IDEWindowIntf,
LazarusIDEStrConsts, CodeToolsOptions, CodeToolsDefPreview, TransferMacros,
InputFileDialog, IDEOptionDefs, LazConf, IDEProcs;
EditorOptions, InputFileDialog, IDEOptionDefs, LazConf, IDEProcs;
type
@ -1483,6 +1483,11 @@ begin
Max(20,Min(ClientHeight-100,CodeToolsOpts.DefinesEditMainSplitterTop)));
FDefineTree:=TDefineTree.Create;
EditorOpts.GetSynEditSettings(ValueAsTextSynEdit);
ValueAsTextSynEdit.Gutter.Visible:=false;
EditorOpts.GetSynEditSettings(ValueAsFilePathsSynEdit);
ValueAsFilePathsSynEdit.Gutter.Visible:=false;
end;
destructor TCodeToolsDefinesEditor.Destroy;

7
ide/codetoolsdefpreview.pas
View File

@ -8,8 +8,8 @@ uses
Classes, SysUtils, Math,
LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, ComCtrls, ExtCtrls, FileUtil, AVGLvlTree,
SynEdit, DefineTemplates, ExprEval,
LazarusIDEStrConsts, InputHistory, IDEWindowIntf, CodeToolsOptions;
SynEdit, DefineTemplates, ExprEval, IDEWindowIntf, EditorOptions,
LazarusIDEStrConsts, InputHistory, CodeToolsOptions;
type
TCodeToolsDefinesNodeValues = class
@ -394,6 +394,9 @@ begin
TemplatesSplitter.SetSplitterPosition(
Max(20,Min(TemplatesGroupBox.ClientHeight-50,
CodeToolsOpts.DefinesPreviewTemplSplitterPos)));
EditorOpts.GetSynEditSettings(ValueSynedit);
ValueSynedit.Gutter.Visible:=false;
end;
procedure TCodeToolsDefinesDialog.CodeToolsDefinesDialogCLOSE(Sender: TObject;

3
ide/diffdialog.pas
View File

@ -273,6 +273,9 @@ begin
+'|'+lisLazarusProjectSource+' (*.lpr)|*.lpr';
dlgSave.Title:=lisSaveFileAs;
dlgSave.Filter:=dlgAllFiles+' ('+GetAllFilesMask+')|'+GetAllFilesMask;
// diff
EditorOpts.GetSynEditSettings(DiffSynEdit);
end;
procedure TDiffDlg.UpdateDiff;

4
ide/diskdiffsdialog.pas
View File

@ -36,7 +36,8 @@ uses
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, StdCtrls,
LResources, SynEdit, LCLType, ComCtrls, ExtCtrls,
FileProcs, CodeToolManager, CodeCache, Laz_XMLCfg, Laz_XMLWrite,
Project, DiffPatch, LazarusIDEStrConsts, EnvironmentOpts, PackageDefs;
Project, DiffPatch, LazarusIDEStrConsts, EnvironmentOpts, EditorOptions,
PackageDefs;
type
PDiffItem = ^TDiffItem;
@ -332,6 +333,7 @@ begin
inherited Create(TheOwner);
Caption:=lisDiskDiffSomeFilesHaveChangedOnDisk;
EditorOpts.GetSynEditSettings(DiffSynEdit);
DiffSynEdit.Lines.Text:=lisDiskDiffClickOnOneOfTheAboveItemsToSeeTheDiff;
RevertAllButton.Caption:=lisDiskDiffRevertAll;
IgnoreDiskChangesButton.Caption:=lisDiskDiffIgnoreDiskChanges;

5
ide/emptymethodsdlg.pas
View File

@ -37,8 +37,7 @@ uses
CodeToolsStructs, CodeAtom, CodeCache, CodeToolManager, PascalParserTool,
CodeTree,
SrcEditorIntf, LazIDEIntf, PropEdits,
Project,
LazarusIDEStrConsts;
Project, LazarusIDEStrConsts, EditorOptions;
type
@ -159,6 +158,8 @@ begin
ButtonPanel1.OKButton.OnClick:=@OKButtonClick;
ButtonPanel1.OKButton.Caption:=lisEMDRemoveMethods;
EditorOpts.GetSynEditSettings(MethodsSynEdit);
end;
procedure TEmptyMethodsDialog.OKButtonClick(Sender: TObject);

6
ide/patheditordlg.pas
View File

@ -154,6 +154,12 @@ begin
OKBitBtn.Caption:=lisOkBtn;
CancelBitBtn.Caption:=dlgCancel;
PathEdit.Font.BeginUpdate;
PathEdit.Font.Name:=SynDefaultFontName;
PathEdit.Font.Height:=SynDefaultFontHeight;
PathEdit.Font.Pitch:=SynDefaultFontPitch;
PathEdit.Font.EndUpdate;
end;
procedure TPathEditorDialog.FormResize(Sender: TObject);