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

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48230 -
This commit is contained in:
mattias 2015-03-10 15:41:06 +00:00
parent e5c7c7fcdd
commit a0ac496603
2 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/anchoreditor.pas
View File

@ -152,8 +152,8 @@ type
function AnchorDesignerNoSiblingText: string;
function AnchorDesignerNeighbourText(direction: TAnchorKind): string;
procedure CollectValues(const ASelection: TList;
var TheValues: TAnchorDesignerValues;
var SelectedControlCount: integer);
out TheValues: TAnchorDesignerValues;
out SelectedControlCount: integer);
protected
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure UpdateShowing; override;
@ -964,9 +964,8 @@ begin
Result:=AControl.Name+':'+AControl.ClassName;
end;
procedure TAnchorDesigner.CollectValues(
const ASelection: TList; var TheValues: TAnchorDesignerValues;
var SelectedControlCount: integer);
procedure TAnchorDesigner.CollectValues(const ASelection: TList; out
TheValues: TAnchorDesignerValues; out SelectedControlCount: integer);
var
i: Integer;
AControl: TControl;

12
designer/taborderdlg.pas
View File

@ -47,9 +47,9 @@ type
procedure SortByPositionButtonClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ItemTreeviewClick(Sender: TObject);
procedure TabOrderDialogCREATE(Sender: TObject);
procedure UpSpeedbuttonCLICK(Sender: TObject);
procedure DownSpeedbuttonCLICK(Sender: TObject);
procedure TabOrderDialogCreate(Sender: TObject);
procedure UpSpeedbuttonClick(Sender: TObject);
procedure DownSpeedbuttonClick(Sender: TObject);
procedure ItemTreeviewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
FUpdating: Boolean;
@ -119,7 +119,7 @@ end;
{ TTabOrderDialog }
procedure TTabOrderDialog.TabOrderDialogCREATE(Sender: TObject);
procedure TTabOrderDialog.TabOrderDialogCreate(Sender: TObject);
begin
GlobalDesignHook.AddHandlerChangeLookupRoot(@OnSomethingChanged);
GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnSomethingChanged);
@ -200,7 +200,7 @@ begin
CheckButtonsEnabled;
end;
procedure TTabOrderDialog.UpSpeedbuttonCLICK(Sender: TObject);
procedure TTabOrderDialog.UpSpeedbuttonClick(Sender: TObject);
var
CurItem, NewItem: TTreeNode;
begin
@ -210,7 +210,7 @@ begin
SwapNodes(NewItem, CurItem, CurItem);
end;
procedure TTabOrderDialog.DownSpeedbuttonCLICK(Sender: TObject);
procedure TTabOrderDialog.DownSpeedbuttonClick(Sender: TObject);
var
CurItem, NewItem: TTreeNode;
begin