forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

renamed field

This commit is contained in:
Basile Burg 2015-02-19 06:07:38 +01:00
parent c99f30434f
commit b562324894
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ce_synmemo.pas
View File

@ -83,7 +83,7 @@ type
fIdentifier: string; fIdentifier: string;
fTempFileName: string; fTempFileName: string;
fMultiDocSubject: TCECustomSubject; fMultiDocSubject: TCECustomSubject;
fStoredFontSize: Integer; fDefaultFontSize: Integer;
fPositions: TCESynMemoPositions; fPositions: TCESynMemoPositions;
fMousePos: TPoint; fMousePos: TPoint;
function getMouseStart: Integer; function getMouseStart: Integer;
@ -91,6 +91,7 @@ type
procedure identifierToD2Syn; procedure identifierToD2Syn;
procedure saveCache; procedure saveCache;
procedure loadCache; procedure loadCache;
procedure setDefaultFontSize(aValue: Integer);
protected protected
procedure SetVisible(Value: Boolean); override; procedure SetVisible(Value: Boolean); override;
procedure SetHighlighter(const Value: TSynCustomHighlighter); override; procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
@ -99,6 +100,8 @@ type
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override; procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override; procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
published
property defaultFontSize: Integer read fDefaultFontSize write setDefaultFontSize;
public public
constructor Create(aOwner: TComponent); override; constructor Create(aOwner: TComponent); override;
destructor destroy; override; destructor destroy; override;
@ -317,7 +320,7 @@ constructor TCESynMemo.Create(aOwner: TComponent);
begin begin
inherited; inherited;
SetDefaultKeystrokes; // not called in inherited if owner = nil ! SetDefaultKeystrokes; // not called in inherited if owner = nil !
fStoredFontSize := 10; fDefaultFontSize := 10;
Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5; Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5;
Gutter.LineNumberPart.MarkupInfo.Foreground := clGray; Gutter.LineNumberPart.MarkupInfo.Foreground := clGray;
Gutter.SeparatorPart.LineOffset := 1; Gutter.SeparatorPart.LineOffset := 1;
@ -360,6 +363,17 @@ begin
inherited; inherited;
end; end;
procedure TCESynMemo.setDefaultFontSize(aValue: Integer);
var
old: Integer;
begin
old := Font.Size;
if aValue < 5 then aValue := 5;
fDefaultFontSize:= aValue;
if Font.Size = old then
Font.Size := fDefaultFontSize;
end;
procedure TCESynMemo.setFocus; procedure TCESynMemo.setFocus;
begin begin
inherited; inherited;
@ -499,7 +513,7 @@ begin
case Key of case Key of
VK_ADD: if Font.Size < 50 then Font.Size := Font.Size + 1; VK_ADD: if Font.Size < 50 then Font.Size := Font.Size + 1;
VK_SUBTRACT: if Font.Size > 3 then Font.Size := Font.Size - 1; VK_SUBTRACT: if Font.Size > 3 then Font.Size := Font.Size - 1;
VK_DECIMAL: Font.Size := fStoredFontSize; VK_DECIMAL: Font.Size := fDefaultFontSize;
end; end;
TCEEditorHintWindow.FontSize := Font.Size; TCEEditorHintWindow.FontSize := Font.Size;
end; end;
@ -544,7 +558,7 @@ procedure TCESynMemo.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Inte
begin begin
inherited; inherited;
if (Button = mbMiddle) and (Shift = [ssCtrl]) then if (Button = mbMiddle) and (Shift = [ssCtrl]) then
Font.Size := fStoredFontSize Font.Size := fDefaultFontSize
//TODO-cLCL&LAZ-specific: test this feature under gtk2/linux on next release, should work //TODO-cLCL&LAZ-specific: test this feature under gtk2/linux on next release, should work
else if Button = mbExtra1 then else if Button = mbExtra1 then
fPositions.back fPositions.back