paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 13:56:00 +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 AnchorDesignerNoSiblingText: string;
function AnchorDesignerNeighbourText(direction: TAnchorKind): string; function AnchorDesignerNeighbourText(direction: TAnchorKind): string;
procedure CollectValues(const ASelection: TList; procedure CollectValues(const ASelection: TList;
var TheValues: TAnchorDesignerValues; out TheValues: TAnchorDesignerValues;
var SelectedControlCount: integer); out SelectedControlCount: integer);
protected protected
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure UpdateShowing; override; procedure UpdateShowing; override;
@ -964,9 +964,8 @@ begin
Result:=AControl.Name+':'+AControl.ClassName; Result:=AControl.Name+':'+AControl.ClassName;
end; end;
procedure TAnchorDesigner.CollectValues( procedure TAnchorDesigner.CollectValues(const ASelection: TList; out
const ASelection: TList; var TheValues: TAnchorDesignerValues; TheValues: TAnchorDesignerValues; out SelectedControlCount: integer);
var SelectedControlCount: integer);
var var
i: Integer; i: Integer;
AControl: TControl; AControl: TControl;

12
designer/taborderdlg.pas
View File

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