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

synedit: fixed uninitialized variables

Browse Source 
git-svn-id: trunk@36049 -
This commit is contained in:
mattias 2012-03-15 22:59:28 +00:00
parent 48ffc83655
commit c370aa5db5
6 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/lazsyntextarea.pp
View File

@ -525,7 +525,7 @@ begin
if (AClip.Top < FTextBounds.Top) then begin if (AClip.Top < FTextBounds.Top) then begin
PadRect2 := Bounds; PadRect2 := Bounds;
PadRect2.Bottom := FTextBounds.Top; PadRect2.Bottom := FTextBounds.Top;
IntersectRect(PadRect, AClip, PadRect2); IntersectRect(PadRect{%H-}, AClip, PadRect2);
InternalFillRect(dc, PadRect); InternalFillRect(dc, PadRect);
end; end;
if (AClip.Bottom > FTextBounds.Bottom) then begin if (AClip.Bottom > FTextBounds.Bottom) then begin

4
components/synedit/syneditfoldedview.pp
View File

@ -952,9 +952,9 @@ procedure TSynEditFoldExportStream.Compress;
[NNXX[ (more then 21 bytes, from up to 64*64 back) [NNXX[ (more then 21 bytes, from up to 64*64 back)
]X (3 bytes from max 64 back) ]X (3 bytes from max 64 back)
]nx ( reocurring space,x times, ever n pos) ]nx ( reocurring space,x times, ever n pos)
*)
const const
max_single_len = 22 - 1; max_single_len = 22 - 1;
*)
var var
CurPos, EndPos, SearchPos: Integer; CurPos, EndPos, SearchPos: Integer;
FndLen, FndPos, FndPos2: Integer; FndLen, FndPos, FndPos2: Integer;
@ -4574,7 +4574,7 @@ end;
function dbgs(AClassification: TFoldNodeClassification): String; function dbgs(AClassification: TFoldNodeClassification): String;
begin begin
WriteStr(Result, AClassification); WriteStr(Result{%H-}, AClassification);
end; end;
{$IFDEF SynDebug} {$IFDEF SynDebug}

6
components/synedit/synedithighlighterfoldbase.pas
View File

@ -150,7 +150,7 @@ type
protected protected
function DefaultGroup: Integer; virtual; function DefaultGroup: Integer; virtual;
function MinCapacity: Integer; virtual; function MinCapacity: Integer; virtual;
procedure InvalidateNode(var AnInfo: TSynFoldNodeInfo); procedure InvalidateNode(out AnInfo: TSynFoldNodeInfo);
function Match(const AnInfo: TSynFoldNodeInfo; function Match(const AnInfo: TSynFoldNodeInfo;
AnActionFilter: TSynFoldActions; AGroupFilter: Integer = 0): Boolean; virtual; AnActionFilter: TSynFoldActions; AGroupFilter: Integer = 0): Boolean; virtual;
public public
@ -437,7 +437,7 @@ begin
Result:=''; Result:='';
for i := low(TSynFoldAction) to high(TSynFoldAction) do for i := low(TSynFoldAction) to high(TSynFoldAction) do
if i in AFoldActions then begin if i in AFoldActions then begin
WriteStr(s, i); WriteStr(s{%H-}, i);
Result := Result + s + ','; Result := Result + s + ',';
end; end;
if Result <> '' then Result := '[' + copy(Result, 1, Length(Result)-1) + ']'; if Result <> '' then Result := '[' + copy(Result, 1, Length(Result)-1) + ']';
@ -549,7 +549,7 @@ begin
Result := 8; Result := 8;
end; end;
procedure TLazSynFoldNodeInfoList.InvalidateNode(var AnInfo: TSynFoldNodeInfo); procedure TLazSynFoldNodeInfoList.InvalidateNode(out AnInfo: TSynFoldNodeInfo);
begin begin
AnInfo.FoldAction := [sfaInvalid]; AnInfo.FoldAction := [sfaInvalid];
AnInfo.LineIndex := Line; AnInfo.LineIndex := Line;

1
components/synedit/syneditkeycmds.pp
View File

@ -1101,6 +1101,7 @@ procedure TSynEditKeyStrokes.LoadFromStream(AStream: TStream);
var var
Num: integer; Num: integer;
begin begin
Num := 0;
AStream.Read(Num, SizeOf(Num)); AStream.Read(Num, SizeOf(Num));
while Num > 0 do begin while Num > 0 do begin
with Add do with Add do

2
components/synedit/syneditmousecmds.pp
View File

@ -415,11 +415,13 @@ end;
function SynMouseCmdToIdent(SynMouseCmd: Longint; out Ident: String): Boolean; function SynMouseCmdToIdent(SynMouseCmd: Longint; out Ident: String): Boolean;
begin begin
Ident := '';
Result := IntToIdent(SynMouseCmd, Ident, SynMouseCommandNames); Result := IntToIdent(SynMouseCmd, Ident, SynMouseCommandNames);
end; end;
function IdentToSynMouseCmd(const Ident: string; out SynMouseCmd: Longint): Boolean; function IdentToSynMouseCmd(const Ident: string; out SynMouseCmd: Longint): Boolean;
begin begin
SynMouseCmd := 0;
Result := IdentToInt(Ident, SynMouseCmd, SynMouseCommandNames); Result := IdentToInt(Ident, SynMouseCmd, SynMouseCommandNames);
end; end;

2
components/synedit/synpluginsyncronizededitbase.pp
View File

@ -26,7 +26,7 @@ unit SynPluginSyncronizedEditBase;
interface interface
uses uses
Classes, SysUtils, Graphics, LCLProc, SynEditTextBase, Classes, SysUtils, Graphics, LCLProc,
SynEditMiscClasses, SynEdit, SynEditMarkup, SynEditMiscProcs, LazSynEditText, SynEditMiscClasses, SynEdit, SynEditMarkup, SynEditMiscProcs, LazSynEditText,
SynEditTextTrimmer, SynEditKeyCmds; SynEditTextTrimmer, SynEditKeyCmds;