paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source 
git-svn-id: trunk@64291 -
This commit is contained in:
mattias 2020-12-28 16:59:41 +00:00
parent 97b67541f1
commit 5fe35be313
12 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/missingpropertiesdlg.pas
View File

@ -222,7 +222,7 @@ begin
Result:=mrOk;
OutS:='';
aInStream.Position:=0;
SetLength(InS, aInStream.Size);
SetLength(InS{%H-}, aInStream.Size);
aInStream.Read(InS[1],length(InS));
i := 1;
while i <= Length(InS) do begin

2
debugger/assemblerdlg.pp
View File

@ -376,7 +376,7 @@ var
i, w: Integer;
s: String;
begin
SetLength(ALineMap, abs(FSelectionEndLine - FSelectLine)+1);
SetLength(ALineMap{%H-}, abs(FSelectionEndLine - FSelectLine)+1);
UpdateLineDataEx(ALineMap, Min(FSelectionEndLine, FSelectLine),
abs(FSelectionEndLine - FSelectLine)+1,
FLastTopLine, FLastTopLineIdx, FLastTopLineIsSrc, FLastTopLineValid, False, True);

2
debugger/frames/debugger_class_options.pas
View File

@ -168,7 +168,7 @@ begin
OpenDialog.Options:=OpenDialog.Options+[ofPathMustExist];
OpenDialog.Title:=lisChooseDebuggerExecutable;
lDirName := EnvironmentOptions.GetParsedValue(eopDebuggerFilename, lDirText);
lDirName := EnvironmentOptions.GetParsedValue(eopDebuggerFilename, lDirText{%H-});
lExpandedName := CleanAndExpandFilename(lDirName);
lDirName := GetValidDirectory(lDirName, {out} lDirNameF);
OpenDialog.InitialDir := lDirName;

4
debugger/registersdlg.pp
View File

@ -94,8 +94,8 @@ type
procedure actPowerExecute(Sender: TObject);
procedure DispDefaultClick(Sender: TObject);
procedure lvRegistersDrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
procedure lvRegistersSelection(Sender: TObject; aCol, aRow: Integer);
aRect: TRect; {%H-}aState: TGridDrawState);
procedure lvRegistersSelection(Sender: TObject; {%H-}aCol, {%H-}aRow: Integer);
procedure ToolButtonDispTypeClick(Sender: TObject);
function GetCurrentRegisters: TRegisters;
private

2
debugger/watchesdlg.pp
View File

@ -838,7 +838,7 @@ procedure TWatchesDlg.UpdateItem(const AItem: TListItem; const AWatch: TIdeWatch
NewLine: Boolean;
begin
ow:=0;
SetLength(Result,Length(AValue));
SetLength(Result{%H-},Length(AValue));
NewLine:=true;
for j := 1 to Length(AValue) do begin
if (AValue[j]=#13) or (AValue[j]=#10) then begin

4
designer/anchoreditor.pas
View File

@ -764,8 +764,8 @@ begin
akRight: SelectedControls.Sort(@compareControlRight);
akBottom: SelectedControls.Sort(@compareControlBottom);
end;
setlength(OldPositions,SelectedControls.Count);
setlength(OldPositions2,SelectedControls.Count);
setlength(OldPositions{%H-},SelectedControls.Count);
setlength(OldPositions2{%H-},SelectedControls.Count);
for i:=0 to SelectedControls.Count-1 do begin
OldPositions[i]:=NeighbourPosition(TControl(SelectedControls[i]));
case CurNeighbour of

2
designer/menudesignerbase.pas
View File

@ -200,7 +200,7 @@ var
si: TShadowItemBase;
mi: TMenuItem;
begin
SetLength(Result, 0);
SetLength(Result{%H-}, 0);
for si in FShadowList do
begin
mi:=si.RealItem;

2
designer/menueditor.pp
View File

@ -2495,7 +2495,7 @@ var
}
r.Right:=ClientWidth;
r.Left:=r.Right - MenuBar_Height;
SetLength(pts, 4);
SetLength(pts{%H-}, 4);
pts[0]:=Point(r.Left, ScaleY(9, 96));
pts[1]:=Point(r.Left + ScaleX(4, 96), ScaleY(12, 96));
pts[2]:=Point(r.Left, ScaleY(15, 96));

6
ide/customformeditor.pp
View File

@ -291,6 +291,7 @@ type
procedure DefineBinaryProperty(const Name: string;
{%H-}ReadData, {%H-}WriteData: TStreamProc;
{%H-}HasData: Boolean); override;
procedure FlushBuffer; override;
property DefinePropertyNames: TStrings read FDefinePropertyNames;
end;
@ -2638,6 +2639,11 @@ begin
AddPropertyName(Name);
end;
procedure TDefinePropertiesReader.FlushBuffer;
begin
end;
{ TDefinePropertiesPersistent }
constructor TDefinePropertiesPersistent.Create(TargetPersistent: TPersistent);

2
ide/desktopmanager.pas
View File

@ -897,7 +897,7 @@ var
xDesktops: array of TCustomDesktopOpt;
I: Integer;
begin
SetLength(xDesktops, EnvironmentOptions.Desktops.Count);
SetLength(xDesktops{%H-}, EnvironmentOptions.Desktops.Count);
for I := 0 to Length(xDesktops)-1 do
xDesktops[I] := EnvironmentOptions.Desktops[I];
ExportDesktops(xDesktops);

4
ide/diskdiffsdialog.pas
View File

@ -116,7 +116,7 @@ begin
try
fs := TFileStreamUTF8.Create(MemCode.Filename, fmOpenRead or fmShareDenyNone);
try
SetLength(s, fs.Size);
SetLength(s{%H-}, fs.Size);
if s <> '' then
fs.Read(s[1], length(s));
DiskEncoding := '';
@ -169,7 +169,7 @@ begin
try
if fs.Size=length(CurSource) then begin
// size has not changed => load to see difference
SetLength(DiskSource,fs.Size);
SetLength(DiskSource{%H-},fs.Size);
fs.Read(DiskSource[1],length(DiskSource));
if DiskSource=CurSource then
PackageOk:=true;

2
ide/sourcefilemanager.pas
View File

@ -5139,7 +5139,7 @@ begin
,'T'+AnUnitInfo.ComponentName,'FORMDATA');
AnUnitInfo.ComponentLastLRSStreamSize:=MemStream.Size;
MemStream.Position:=0;
SetLength(CompResourceCode,MemStream.Size);
SetLength(CompResourceCode{%H-},MemStream.Size);
MemStream.Read(CompResourceCode[1],length(CompResourceCode));
finally
MemStream.Free;