paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-30 16:47:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: less hints

Browse Source 
git-svn-id: trunk@57286 -
This commit is contained in:
mattias 2018-02-12 14:47:30 +00:00
parent 9914d0ef99
commit a10e37e072
11 changed files with 16 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/checkgroupeditordlg.pas
View File

@ -44,7 +44,7 @@ type
procedure ColumnsEditChange(Sender: TObject);
procedure CreateItems(Sender: TObject);
procedure DeleteItem(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ItemClick(Sender: TObject; Index: integer);
procedure ModifyItem(Sender: TObject);

2
components/ideintf/collectionpropeditform.pas
View File

@ -32,7 +32,7 @@ type
procedure actDelExecute(Sender: TObject);
procedure actMoveUpDownExecute(Sender: TObject);
procedure CollectionListBoxClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private

4
components/ideintf/fieldslist.pas
View File

@ -25,7 +25,7 @@
}
unit fieldslist;
unit FieldsList;
{$mode objfpc}{$H+}
@ -47,7 +47,7 @@ type
BitBtnCancel: TBitBtn;
ListBox1: TListBox;
procedure BitBtnOkClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
private
FDesigner: TComponentEditorDesigner;

2
components/ideintf/filefilterpropeditor.pas
View File

@ -20,7 +20,7 @@ type
MoveDownBtn: TSpeedButton;
MoveUpBtn: TSpeedButton;
StringGrid1: TStringGrid;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure MoveUpBtnClick(Sender: TObject);
procedure MoveDownBtnClick(Sender: TObject);

2
components/ideintf/graphicpropedit.pas
View File

@ -49,7 +49,7 @@ type
ScrollBox: TScrollBox;
procedure CopyActionExecute(Sender: TObject);
procedure CopyActionUpdate(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure ImagePreviewPaintBackground({%H-}ASender: TObject; ACanvas: TCanvas;
ARect: TRect);
procedure PasteActionExecute(Sender: TObject);

16
components/ideintf/imagelisteditor.pp
View File

@ -83,14 +83,14 @@ type
procedure btnSaveAllClick(Sender: TObject);
procedure BtnSaveClick(Sender: TObject);
procedure ColorBoxTransparentClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure btnApplyClick(Sender: TObject);
procedure ImageListBoxDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
ARect: TRect; {%H-}State: TOwnerDrawState);
procedure btnAddNewResolutionClick(Sender: TObject);
procedure btnDeleteResolutionClick(Sender: TObject);
procedure ImageListBoxSelectionChange(Sender: TObject; User: boolean);
procedure ImageListBoxSelectionChange(Sender: TObject; {%H-}User: boolean);
procedure FormResize(Sender: TObject);
private
FImageList: TImageList;
@ -106,7 +106,7 @@ type
procedure RecreatePreviewImages(const aForce: Boolean = False);
procedure UpdatePreviewImage;
procedure UpdateImagesGroupBoxWidth;
procedure UpdateImagesGroupBoxWidthQueue(Data: PtrInt);
procedure UpdateImagesGroupBoxWidthQueue({%H-}Data: PtrInt);
class function ResolutionToString(const ARes: TCustomImageListResolution): string;
protected
procedure DoDestroy; override;
@ -358,11 +358,10 @@ procedure TImageListEditorDlg.btnDeleteResolutionClick(Sender: TObject);
var
TD: LCLTaskDialog.TTaskDialog;
R: TCustomImageListResolution;
TDRes: Integer;
RA: array of Integer;
ResItem: string;
begin
FillChar(TD, SizeOf(LCLTaskDialog.TTaskDialog), 0);
FillChar(TD{%H-}, SizeOf(LCLTaskDialog.TTaskDialog), 0);
SetLength(RA, 0);
for R in ImageList.Resolutions do
begin
@ -752,12 +751,7 @@ procedure TImageListEditorDlg.AddImageToList(const FileName: String;
var
SrcBmp, DestBmp: TBitmap;
Picture: TPicture;
Node: TTreeNode;
P: TGlyphInfo;
ImagesPerColumn: Integer;
ImagesPerRow: Integer;
iRow: Integer;
iCol: Integer;
begin
SaveDialog.InitialDir := ExtractFileDir(FileName);
SrcBmp := nil;

2
components/ideintf/keyvalpropeditdlg.pas
View File

@ -30,7 +30,7 @@ type
StatusLabel: TLabel;
SortButton: TButton;
TextGroupBox: TGroupBox;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure SortButtonClick(Sender: TObject);
public

2
components/ideintf/lazstringgridedit.pas
View File

@ -44,7 +44,7 @@ type
procedure BtnCleanClick(Sender: TObject);
procedure BtnLoadClick(Sender: TObject);
procedure BtnSaveClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure StringGridPrepareCanvas({%H-}sender: TObject; Col, Row: Integer;
{%H-}aState: TGridDrawState);

2
components/ideintf/listviewpropedit.pp
View File

@ -52,7 +52,7 @@ type
TreeView1: TTreeView;
procedure BtnNewItemClick(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TreeView1SelectionChanged(Sender: TObject);
procedure btnApplyClick(Sender: TObject);

2
components/ideintf/newfield.pas
View File

@ -54,7 +54,7 @@ type
procedure DataSetsComboChange(Sender: TObject);
procedure EditCompNameChange(Sender: TObject);
procedure EditNameChange(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure OKBtnClick(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure SelectKeyFieldsChange(Sender: TObject);

2
components/ideintf/treeviewpropedit.pas
View File

@ -55,7 +55,7 @@ type
TreeView1: TTreeView;
procedure BtnNewItemClick(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure MoveUpBtnClick(Sender: TObject);
procedure MoveDownBtnClick(Sender: TObject);