paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 06:59:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: less hints

Browse Source 
git-svn-id: trunk@46700 -
This commit is contained in:
mattias 2014-10-30 10:25:07 +00:00
parent c4771eb74b
commit 9d1210247e
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/dbgridcolumnspropeditform.pas
View File

@ -50,7 +50,7 @@ type
protected
procedure UpdateCaption;
procedure UpdateButtons;
procedure PersistentAdded(APersistent: TPersistent; Select: boolean);
procedure PersistentAdded({%H-}APersistent: TPersistent; {%H-}Select: boolean);
procedure ComponentRenamed(AComponent: TComponent);
procedure PersistentDeleting(APersistent: TPersistent);
procedure RefreshPropertyValues;
@ -81,8 +81,6 @@ type
end;
procedure TDBGridColumnsPropertyEditorForm.FormCreate(Sender: TObject);
var
s: string;
begin
ToolBar1.Images := IDEImages.Images_16;
actAdd.Caption := oiColEditAdd;

4
components/ideintf/objectinspector.pp
View File

@ -391,8 +391,8 @@ type
ARect: TRect; State: TOwnerDrawState);
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure SetIdleEvent(Enable: boolean);
procedure OnGridMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure OnGridMouseWheel(Sender: TObject; {%H-}Shift: TShiftState;
WheelDelta: Integer; {%H-}MousePos: TPoint; var Handled: Boolean);
procedure WMVScroll(var Msg: TLMScroll); message LM_VSCROLL;
procedure SetBackgroundColor(const AValue: TColor);