IDE: less hints

git-svn-id: trunk@64291 -

converter/missingpropertiesdlg.pas

@@ -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

debugger/assemblerdlg.pp

@@ -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);

debugger/frames/debugger_class_options.pas

@@ -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;

debugger/registersdlg.pp

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

debugger/watchesdlg.pp

@@ -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

designer/anchoreditor.pas

@@ -764,8 +764,8 @@ begin
           akRight: SelectedControls.Sort(@compareControlRight);
           akBottom: SelectedControls.Sort(@compareControlBottom);
         end;
-        setlength(OldPositions,SelectedControls.Count);
+        setlength(OldPositions{%H-},SelectedControls.Count);
-        setlength(OldPositions2,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

designer/menudesignerbase.pas

@@ -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;

designer/menueditor.pp

@@ -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));

ide/customformeditor.pp

@@ -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);

ide/desktopmanager.pas

@@ -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);

ide/diskdiffsdialog.pas

@@ -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;

ide/sourcefilemanager.pas

@@ -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;