paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 15:39:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix default values for streaming of TSynScrollOnEditLeftOptions and TSynScrollOnEditRightOptions

Browse Source 
git-svn-id: trunk@64456 -
This commit is contained in:
ondrej 2021-02-02 11:07:58 +00:00
parent 504af3561f
commit 1e38e0210b
1 changed files with 32 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
components/synedit/synedit.pp
View File

@ -504,27 +504,39 @@ type
{ TSynScrollOnEditLeftOptions } { TSynScrollOnEditLeftOptions }
TSynScrollOnEditLeftOptions = class(TSynScrollOnEditOptions) TSynScrollOnEditLeftOptions = class(TSynScrollOnEditOptions)
private const
CKeepBorderDistance = 2;
CKeepBorderDistancePercent = 0;
CScrollExtraColumns = 5;
CScrollExtraPercent = 20;
CScrollExtraMax = 10;
public public
procedure SetDefaults; override; procedure SetDefaults; override;
published published
property KeepBorderDistance default 2; property KeepBorderDistance default CKeepBorderDistance;
property KeepBorderDistancePercent default 0; property KeepBorderDistancePercent default CKeepBorderDistancePercent;
property ScrollExtraColumns default 5; property ScrollExtraColumns default CScrollExtraColumns;
property ScrollExtraPercent default 10; property ScrollExtraPercent default CScrollExtraPercent;
property ScrollExtraMax default 20; property ScrollExtraMax default CScrollExtraMax;
end; end;
{ TSynScrollOnEditRightOptions } { TSynScrollOnEditRightOptions }
TSynScrollOnEditRightOptions = class(TSynScrollOnEditOptions) TSynScrollOnEditRightOptions = class(TSynScrollOnEditOptions)
private const
CKeepBorderDistance = 0;
CKeepBorderDistancePercent = 0;
CScrollExtraColumns = 10;
CScrollExtraPercent = 30;
CScrollExtraMax = 25;
public public
procedure SetDefaults; override; procedure SetDefaults; override;
published published
property KeepBorderDistance default 0; property KeepBorderDistance default CKeepBorderDistance;
property KeepBorderDistancePercent default 0; property KeepBorderDistancePercent default CKeepBorderDistancePercent;
property ScrollExtraColumns default 10; property ScrollExtraColumns default CScrollExtraColumns;
property ScrollExtraPercent default 25; property ScrollExtraPercent default CScrollExtraPercent;
property ScrollExtraMax default 20; property ScrollExtraMax default CScrollExtraMax;
end; end;
{ TCustomSynEdit } { TCustomSynEdit }
@ -1919,22 +1931,22 @@ end;
procedure TSynScrollOnEditLeftOptions.SetDefaults; procedure TSynScrollOnEditLeftOptions.SetDefaults;
begin begin
inherited SetDefaults; inherited SetDefaults;
FKeepBorderDistance := 2; FKeepBorderDistance := CKeepBorderDistance;
FKeepBorderDistancePercent := 0; FKeepBorderDistancePercent := CKeepBorderDistancePercent;
FScrollExtraColumns := 5; FScrollExtraColumns := CScrollExtraColumns;
FScrollExtraMax := 10; FScrollExtraMax := CScrollExtraMax;
FScrollExtraPercent := 20; FScrollExtraPercent := CScrollExtraPercent;
end; end;
{ TSynScrollOnEditRightOptions } { TSynScrollOnEditRightOptions }
procedure TSynScrollOnEditRightOptions.SetDefaults; procedure TSynScrollOnEditRightOptions.SetDefaults;
begin begin
FKeepBorderDistance := 0; FKeepBorderDistance := CKeepBorderDistance;
FKeepBorderDistancePercent := 0; FKeepBorderDistancePercent := CKeepBorderDistancePercent;
FScrollExtraColumns := 10; FScrollExtraColumns := CScrollExtraColumns;
FScrollExtraMax := 25; FScrollExtraMax := CScrollExtraMax;
FScrollExtraPercent := 30; FScrollExtraPercent := CScrollExtraPercent;
end; end;
{ TCustomSynEdit } { TCustomSynEdit }