paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 11:19:24 +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
PadRect2 := Bounds;
PadRect2.Bottom := FTextBounds.Top;
IntersectRect(PadRect, AClip, PadRect2);
IntersectRect(PadRect{%H-}, AClip, PadRect2);
InternalFillRect(dc, PadRect);
end;
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)
]X (3 bytes from max 64 back)
]nx ( reocurring space,x times, ever n pos)
*)
const
max_single_len = 22 - 1;
*)
var
CurPos, EndPos, SearchPos: Integer;
FndLen, FndPos, FndPos2: Integer;
@ -4574,7 +4574,7 @@ end;
function dbgs(AClassification: TFoldNodeClassification): String;
begin
WriteStr(Result, AClassification);
WriteStr(Result{%H-}, AClassification);
end;
{$IFDEF SynDebug}

6
components/synedit/synedithighlighterfoldbase.pas
View File

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

1
components/synedit/syneditkeycmds.pp
View File

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

2
components/synedit/syneditmousecmds.pp
View File

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

2
components/synedit/synpluginsyncronizededitbase.pp
View File

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