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

SynEdit: Change TSynMacroEvent.RepeatCount from Byte to Integer. Issue #24733

Browse Source 
git-svn-id: trunk@42068 -
This commit is contained in:
juha 2013-07-12 14:57:57 +00:00
parent ebf3655d31
commit f8dbff1216
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synmacrorecorder.pas
View File

@ -83,7 +83,7 @@ type
TSynMacroEvent = class(TObject) TSynMacroEvent = class(TObject)
protected protected
fRepeatCount: Byte; fRepeatCount: Integer;
function GetAsString : string; virtual; abstract; function GetAsString : string; virtual; abstract;
procedure InitEventParameters(aStr : string); virtual; abstract; procedure InitEventParameters(aStr : string); virtual; abstract;
public public
@ -100,7 +100,7 @@ type
procedure SaveToWriter(aWriter: TSynMacroEventWriter); virtual; abstract; procedure SaveToWriter(aWriter: TSynMacroEventWriter); virtual; abstract;
procedure Playback(aEditor: TCustomSynEdit); virtual; abstract; procedure Playback(aEditor: TCustomSynEdit); virtual; abstract;
property AsString : string read GetAsString; property AsString : string read GetAsString;
property RepeatCount : Byte read fRepeatCount write fRepeatCount; property RepeatCount : Integer read fRepeatCount write fRepeatCount;
end; end;
TSynMacroEventClass = class of TSynMacroEvent; TSynMacroEventClass = class of TSynMacroEvent;
@ -973,7 +973,7 @@ end;
procedure TSynBasicEvent.InitEventParameters(aStr: string); procedure TSynBasicEvent.InitEventParameters(aStr: string);
begin begin
// basic events have no parameters but can contain an optional repeat count // basic events have no parameters but can contain an optional repeat count
RepeatCount := Byte(StrToIntDef(Trim(aStr), 1)); RepeatCount := StrToIntDef(Trim(aStr), 1);
end; end;
procedure TSynBasicEvent.Initialize(aCmd: TSynEditorCommand; const aChar: TUTF8Char; procedure TSynBasicEvent.Initialize(aCmd: TSynEditorCommand; const aChar: TUTF8Char;
@ -1047,7 +1047,7 @@ begin
else else
Key := ' '; Key := ' ';
Delete(aStr, 1, 1); // if possible delete the first character Delete(aStr, 1, 1); // if possible delete the first character
RepeatCount := Byte(StrToIntDef(Trim(aStr), 1)); RepeatCount := StrToIntDef(Trim(aStr), 1);
end; end;
procedure TSynCharEvent.Initialize(aCmd: TSynEditorCommand; const aChar: TUTF8Char; procedure TSynCharEvent.Initialize(aCmd: TSynEditorCommand; const aChar: TUTF8Char;
@ -1138,7 +1138,7 @@ begin
Position := Point(x, y); Position := Point(x, y);
Delete(aStr, 1, c); Delete(aStr, 1, c);
aStr := Trim(aStr); aStr := Trim(aStr);
RepeatCount := Byte(StrToIntDef(aStr, 1)); RepeatCount := StrToIntDef(aStr, 1);
end; end;
end; end;
@ -1230,7 +1230,7 @@ begin
valStr := Copy(aStr, o+1, c-o-1); valStr := Copy(aStr, o+1, c-o-1);
Value := StringReplace(valStr, '''''', '''', [rfReplaceAll]); Value := StringReplace(valStr, '''''', '''', [rfReplaceAll]);
Delete(aStr, 1, c); Delete(aStr, 1, c);
RepeatCount := Byte(StrToIntDef(Trim(aStr), 1)); RepeatCount := StrToIntDef(Trim(aStr), 1);
end; end;
procedure TSynStringEvent.Initialize(aCmd: TSynEditorCommand; const aChar: TUTF8Char; procedure TSynStringEvent.Initialize(aCmd: TSynEditorCommand; const aChar: TUTF8Char;