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

more Actions TAction, TBasicAction, ...

Browse Source 
git-svn-id: trunk@5138 -
This commit is contained in:
mattias 2004-02-02 16:59:28 +00:00
parent 727e248caf
commit 7e956b8c19
28 changed files with 284 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/dbgoutputform.pp
View File

@ -42,7 +42,7 @@ type
txtOutput: TMemo;
mnuPopup: TPopupMenu;
popClear: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure popClearClick(Sender: TObject);
private
@ -77,9 +77,10 @@ begin
Lines.Assign(txtOutput.Lines);
end;
procedure TDbgOutputForm.FormClose(Sender: TObject; var Action: TCloseAction);
procedure TDbgOutputForm.FormClose(Sender: TObject;
var CloseAction: TCloseAction);
begin
Action := caFree;
CloseAction := caFree;
end;
procedure TDbgOutputForm.FormCreate(Sender: TObject);
@ -106,6 +107,9 @@ initialization
end.
{ =============================================================================
$Log$
Revision 1.10 2004/02/02 16:59:27 mattias
more Actions TAction, TBasicAction, ...
Revision 1.9 2004/01/05 15:22:42 mattias
improved debugger: saved log, error handling in initialization, better reinitialize

11
debugger/debuggerdlg.pp
View File

@ -58,7 +58,7 @@ type
FUpdateCount: integer;
protected
procedure SetDebugger(const ADebugger: TDebugger); virtual;
procedure DoClose(var Action: TCloseAction); override;
procedure DoClose(var CloseAction: TCloseAction); override;
procedure DoBeginUpdate; virtual;
procedure DoEndUpdate; virtual;
public
@ -127,10 +127,10 @@ begin
FDebugger := ADebugger;
end;
procedure TDebuggerDlg.DoClose(var Action: TCloseAction);
procedure TDebuggerDlg.DoClose(var CloseAction: TCloseAction);
begin
Action := caFree; // we default to free
inherited DoClose(Action);
CloseAction := caFree; // we default to free
inherited DoClose(CloseAction);
EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(Name).GetCurrentPosition;
end;
@ -146,6 +146,9 @@ end;
{ =============================================================================
$Log$
Revision 1.9 2004/02/02 16:59:28 mattias
more Actions TAction, TBasicAction, ...
Revision 1.8 2004/01/05 15:22:42 mattias
improved debugger: saved log, error handling in initialization, better reinitialize

48
designer/designermenu.pp
View File

@ -56,7 +56,7 @@ type
subitem_level: Integer;
fAction: Integer;
public
constructor CreateWithAction(AOwner: TComponent; aAction: Integer);
constructor CreateWithAction(AOwner: TComponent; TheAction: Integer);
procedure OkButtonClick(Sender: TObject);
procedure CancelButtonCLick(Sender: TObject);
function GetSelectedMenuTemplate: Integer;
@ -150,7 +150,8 @@ type
procedure InsertFromTemplate(Item,Ident: string);
procedure SaveAsTemplate(Item,Ident: string);
procedure ReplaceInTemplate(old_Item, new_Item: string);
function ChangeMenuItem(MenuItem: PDesignerMenuItem; Action: Integer; Ident: string): Boolean;
function ChangeMenuItem(MenuItem: PDesignerMenuItem; TheAction: Integer;
Ident: string): Boolean;
// Function for updating the real menu (which is the edited one) and supplementary functions for
// building a search index which is needed to locate an MenuItem in real menu which has to be
@ -158,7 +159,7 @@ type
procedure InitIndexSequence;
function CreateIndexSequence(MenuItem: PDesignerMenuItem; Ident: string; Ind: Integer): Boolean;
function UpdateMenu(MenuItem: TMenuItem;
DesignerMenuItem: PDesignerMenuItem; Ind,Action: Integer): TMenuItem;
DesignerMenuItem: PDesignerMenuItem; Ind,TheAction: Integer): TMenuItem;
procedure HideDesignerMenuItem(DesignerMenuItem: PDesignerMenuItem);
function GetDesignerMenuItem(DesignerMenuItem: PDesignerMenuItem; const Ident: string): PDesignerMenuItem;
@ -657,12 +658,13 @@ end;
// --------------------------------------------------------
// Function that changes MenuItem (Remove, Add SubMenu ...)
// --------------------------------------------------------
function TDesignerMainMenu.ChangeMenuItem(MenuItem: PDesignerMenuItem; Action: Integer; Ident: string): Boolean;
function TDesignerMainMenu.ChangeMenuItem(MenuItem: PDesignerMenuItem;
TheAction: Integer; Ident: string): Boolean;
var
completed: boolean;
begin
completed:=false;
case Action of
case TheAction of
// Test if this MenuItem has been selected
1: begin
if (MenuItem^.ID = Ident) then
@ -674,7 +676,7 @@ begin
MenuItem^.Selected:=false;
if (MenuItem^.SubMenu <> nil) then
begin
if (ChangeMenuItem(MenuItem^.SubMenu,Action,Ident) = true) then
if (ChangeMenuItem(MenuItem^.SubMenu,TheAction,Ident) = true) then
begin
MenuItem^.Active:=true;
completed:=true;
@ -682,7 +684,7 @@ begin
end;
if (MenuItem^.NextItem <> nil) then
begin
if (ChangeMenuItem(MenuItem^.NextItem,Action,Ident) = true) then
if (ChangeMenuItem(MenuItem^.NextItem,TheAction,Ident) = true) then
completed:=true;
end;
end;
@ -691,13 +693,13 @@ begin
if (((MenuItem^.Selected) and (MenuItem^.SubMenu <> nil)) or (MenuItem^.Active)) then
begin
if (MenuItem^.SubMenu <> nil) and (MenuItem^.Active) then
ChangeMenuItem(MenuItem^.SubMenu,Action,MenuItem^.SubMenu^.ID)
ChangeMenuItem(MenuItem^.SubMenu,TheAction,MenuItem^.SubMenu^.ID)
else
MenuItem^.Selected:=true;
MenuItem^.SubMenuPanel.visible:=false;
end;
if (MenuItem^.NextItem <> nil) then
ChangeMenuItem(MenuItem^.NextItem,Action,MenuItem^.NextItem^.ID);
ChangeMenuItem(MenuItem^.NextItem,TheAction,MenuItem^.NextItem^.ID);
MenuItem^.SelfPanel.visible:=false;
ChangeMenuItem:=true;
end;
@ -1690,12 +1692,12 @@ end;}
// UPDATE Menu (type of update is specified via the Action parameter)
// ------------------------------------------------------------------
function TDesignerMainMenu.UpdateMenu(MenuItem: TMenuItem;
DesignerMenuItem: PDesignerMenuItem; Ind, Action: Integer): TMenuItem;
DesignerMenuItem: PDesignerMenuItem; Ind, TheAction: Integer): TMenuItem;
var
i: Integer;
temp_menuitem: TMenuItem;
begin
case Action of
case TheAction of
// Insert new MenuItem after selected MenuItem
1: begin
if (index_sequence[Ind + 1] = -1) then
@ -1711,7 +1713,7 @@ begin
end else
begin
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action);
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction);
end;
end;
// Insert new MenuItem before selected MenuItem
@ -1728,7 +1730,7 @@ begin
GetDesigner.Modified;
end else
begin
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action);
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction);
end;
end;
// Creates SubMenu to an existing MenuItem
@ -1744,7 +1746,7 @@ begin
GetDesigner.PropertyEditorHook.ComponentAdded(temp_menuitem, true);
GetDesigner.Modified;
end else
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action);
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction);
end;
// Moves Up(left) an MenuItem (changes positions of this MenuItem and its predecesor)
4: begin
@ -1754,7 +1756,7 @@ begin
MenuItem.Delete(index_sequence[Ind] + 1);
MenuItem.Insert(index_sequence[Ind], temp_menuitem);
end else
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action)
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction)
end;
// Moves Down(right) an MenuItem (changes positions of this MenuItem and its ancestor)
5: begin
@ -1764,7 +1766,7 @@ begin
MenuItem.Delete(index_sequence[Ind]);
MenuItem.Insert(index_sequence[Ind] - 1, temp_menuitem);
end else
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action)
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction)
end;
// Changes a caption of MenuItem
6: begin
@ -1773,7 +1775,7 @@ begin
//writeln(MenuItem[index_sequence[Ind]].Caption);
MenuItem[index_sequence[Ind]].Caption:=DesignerMenuItem^.Caption;
end else
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action)
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction)
end;
// Deletes an MenuItem
7: begin
@ -1782,7 +1784,7 @@ begin
//MenuItem.Remove(MenuItem[index_sequence[Ind]]);
MenuItem[index_sequence[Ind]].Free
end else
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action)
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction)
end;
// Deletes a SubMenu of MenuItem
8: begin
@ -1792,21 +1794,21 @@ begin
MenuItem[index_sequence[Ind]].Delete(0);
//MenuItem[index_sequence[Ind]].Items.Free
end else
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action);
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction);
end;
// Selectes a MenuItem in the OI
9: begin
if (index_sequence[Ind + 1] = -1) then
GetDesigner.SelectOnlyThisComponent(MenuItem[index_sequence[Ind]])
else
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action);
UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction);
end;
// Return an MenuItem
10: begin
if (index_sequence[Ind + 1] = -1) then
Result:=MenuItem[index_sequence[Ind]]
else
Result:=UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, Action);
Result:=UpdateMenu(MenuItem.Items[index_sequence[Ind]], DesignerMenuItem, Ind + 1, TheAction);
end;
// Sonething else
end;
@ -1817,14 +1819,14 @@ end;
// ---------------------/
constructor TTemplateMenuForm.CreateWithAction(AOwner: TComponent;
aAction: Integer);
TheAction: Integer);
var
i: Integer;
templatemenuitem, str_i: string;
begin
inherited Create(AOwner);
fAction:=aAction;
fAction:=TheAction;
case fAction of
1: begin

5
designer/taborderdlg.pas
View File

@ -20,7 +20,8 @@ type
procedure DownSpeedbuttonCLICK(Sender: TObject);
procedure OkButtonCLICK(Sender: TObject);
procedure ShowOldValuesCheckboxCLICK(Sender: TObject);
procedure TabOrderDialogCLOSE(Sender: TObject; var Action: TCloseAction);
procedure TabOrderDialogCLOSE(Sender: TObject;
var CloseAction: TCloseAction);
procedure TabOrderDialogCREATE(Sender: TObject);
procedure UpSpeedbuttonCLICK(Sender: TObject);
private
@ -73,7 +74,7 @@ begin
end;
procedure TTabOrderDialog.TabOrderDialogCLOSE(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
FLookupRoot:=nil;
end;

6
ide/addtoprojectdlg.pas
View File

@ -75,8 +75,8 @@ type
CancelDependButton: TButton;
procedure AddFileButtonClick(Sender: TObject);
procedure AddFilePageResize(Sender: TObject);
procedure AddToProjectDialogClose(Sender: TObject; var Action: TCloseAction
);
procedure AddToProjectDialogClose(Sender: TObject;
var CloseAction: TCloseAction);
procedure NewDependButtonClick(Sender: TObject);
procedure NewDependPageResize(Sender: TObject);
private
@ -197,7 +197,7 @@ begin
end;
procedure TAddToProjectDialog.AddToProjectDialogClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;

4
ide/codeexplorer.pas
View File

@ -60,7 +60,7 @@ type
RefreshButton: TBUTTON;
OptionsButton: TBUTTON;
CodeTreeview: TTREEVIEW;
procedure CodeExplorerViewCLOSE(Sender: TObject; var Action: TCloseAction);
procedure CodeExplorerViewCLOSE(Sender: TObject; var CloseAction: TCloseAction);
procedure CodeExplorerViewCREATE(Sender: TObject);
procedure CodeExplorerViewRESIZE(Sender: TObject);
procedure CodeTreeviewDBLCLICK(Sender: TObject);
@ -213,7 +213,7 @@ begin
end;
procedure TCodeExplorerView.CodeExplorerViewCLOSE(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
EnvironmentOptions.IDEWindowLayoutList.ItemByForm(Self).GetCurrentPosition;
end;

58
ide/codetoolsdefines.pas
View File

@ -214,7 +214,7 @@ type
procedure ShowSelectedValues;
procedure SetTypeLabel;
function ValueToFilePathText(const AValue: string): string;
procedure InsertNewNode(Behind: boolean; Action: TDefineAction);
procedure InsertNewNode(Behind: boolean; DefAction: TDefineAction);
procedure InsertTemplate(NewTemplate: TDefineTemplate);
function FindUniqueName: string;
function ConsistencyCheck: integer;
@ -400,34 +400,34 @@ end;
procedure TCodeToolsDefinesEditor.InsertNodeMenuItemClick(Sender: TObject);
var Behind: boolean;
Action: TDefineAction;
DefAction: TDefineAction;
begin
Behind:=(TMenuItem(Sender).Parent=InsertBehindMenuItem);
if Sender=InsertBehindDefineMenuItem then Action:=da_Define
else if Sender=InsertBehindDefineRecurseMenuItem then Action:=da_DefineRecurse
else if Sender=InsertBehindUndefineMenuItem then Action:=da_Undefine
else if Sender=InsertBehindUndefineRecurseMenuItem then Action:=da_UndefineRecurse
else if Sender=InsertBehindUndefineAllMenuItem then Action:=da_UndefineAll
else if Sender=InsertBehindBlockMenuItem then Action:=da_Block
else if Sender=InsertBehindDirectoryMenuItem then Action:=da_Directory
else if Sender=InsertBehindIfMenuItem then Action:=da_If
else if Sender=InsertBehindIfDefMenuItem then Action:=da_IfDef
else if Sender=InsertBehindIfNotDefMenuItem then Action:=da_IfNDef
else if Sender=InsertBehindElseIfMenuItem then Action:=da_ElseIf
else if Sender=InsertBehindElseMenuItem then Action:=da_Else
else if Sender=InsertAsChildDefineMenuItem then Action:=da_Define
else if Sender=InsertAsChildDefineRecurseMenuItem then Action:=da_DefineRecurse
else if Sender=InsertAsChildUndefineMenuItem then Action:=da_Undefine
else if Sender=InsertAsChildUndefineRecurseMenuItem then Action:=da_UndefineRecurse
else if Sender=InsertAsChildUndefineAllMenuItem then Action:=da_UndefineAll
else if Sender=InsertAsChildBlockMenuItem then Action:=da_Block
else if Sender=InsertAsChildDirectoryMenuItem then Action:=da_Directory
else if Sender=InsertAsChildIfMenuItem then Action:=da_If
else if Sender=InsertAsChildIfDefMenuItem then Action:=da_IfDef
else if Sender=InsertAsChildIfNotDefMenuItem then Action:=da_IfNDef
else if Sender=InsertAsChildElseIfMenuItem then Action:=da_ElseIf
else if Sender=InsertAsChildElseMenuItem then Action:=da_Else;
InsertNewNode(Behind,Action);
if Sender=InsertBehindDefineMenuItem then DefAction:=da_Define
else if Sender=InsertBehindDefineRecurseMenuItem then DefAction:=da_DefineRecurse
else if Sender=InsertBehindUndefineMenuItem then DefAction:=da_Undefine
else if Sender=InsertBehindUndefineRecurseMenuItem then DefAction:=da_UndefineRecurse
else if Sender=InsertBehindUndefineAllMenuItem then DefAction:=da_UndefineAll
else if Sender=InsertBehindBlockMenuItem then DefAction:=da_Block
else if Sender=InsertBehindDirectoryMenuItem then DefAction:=da_Directory
else if Sender=InsertBehindIfMenuItem then DefAction:=da_If
else if Sender=InsertBehindIfDefMenuItem then DefAction:=da_IfDef
else if Sender=InsertBehindIfNotDefMenuItem then DefAction:=da_IfNDef
else if Sender=InsertBehindElseIfMenuItem then DefAction:=da_ElseIf
else if Sender=InsertBehindElseMenuItem then DefAction:=da_Else
else if Sender=InsertAsChildDefineMenuItem then DefAction:=da_Define
else if Sender=InsertAsChildDefineRecurseMenuItem then DefAction:=da_DefineRecurse
else if Sender=InsertAsChildUndefineMenuItem then DefAction:=da_Undefine
else if Sender=InsertAsChildUndefineRecurseMenuItem then DefAction:=da_UndefineRecurse
else if Sender=InsertAsChildUndefineAllMenuItem then DefAction:=da_UndefineAll
else if Sender=InsertAsChildBlockMenuItem then DefAction:=da_Block
else if Sender=InsertAsChildDirectoryMenuItem then DefAction:=da_Directory
else if Sender=InsertAsChildIfMenuItem then DefAction:=da_If
else if Sender=InsertAsChildIfDefMenuItem then DefAction:=da_IfDef
else if Sender=InsertAsChildIfNotDefMenuItem then DefAction:=da_IfNDef
else if Sender=InsertAsChildElseIfMenuItem then DefAction:=da_ElseIf
else if Sender=InsertAsChildElseMenuItem then DefAction:=da_Else;
InsertNewNode(Behind,DefAction);
end;
procedure TCodeToolsDefinesEditor.MoveNodeUpMenuItemClick(Sender: TObject);
@ -1748,7 +1748,7 @@ begin
end;
procedure TCodeToolsDefinesEditor.InsertNewNode(Behind: boolean;
Action: TDefineAction);
DefAction: TDefineAction);
var SelTreeNode, NodeInFront, ParentNode,
NewTreeNode: TTreeNode;
NewDefNode: TDefineTemplate;
@ -1797,7 +1797,7 @@ begin
NewVariable:='';
NewValue:='';
NewDefNode:=TDefineTemplate.Create(NewName,NewDescription,NewVariable,
NewValue,Action);
NewValue,DefAction);
NewDefNode.Owner:=CodeToolsOpts;
// add node to treeview
if (NodeInFront<>nil) then

4
ide/codetoolsdefpreview.pas
View File

@ -19,7 +19,7 @@ type
ValueGroupbox: TGROUPBOX;
ValuesListview: TLISTVIEW;
procedure CodeToolsDefinesDialogCLOSE(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
procedure CodeToolsDefinesDialogCREATE(Sender: TObject);
procedure DirectoryBrowseButtonCLICK(Sender: TObject);
procedure DirectoryComboboxCHANGE(Sender: TObject);
@ -180,7 +180,7 @@ begin
end;
procedure TCodeToolsDefinesDialog.CodeToolsDefinesDialogCLOSE(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
InputHistories.HistoryLists.GetList(hlCodeToolsDirectories,true).Assign(
DirectoryCombobox.Items);

6
ide/compileroptions.pp
View File

@ -677,8 +677,8 @@ type
procedure chkAdditionalConfigFileClick(Sender: TObject);
procedure PathEditBtnClick(Sender: TObject);
procedure PathEditBtnExecuted(Sender: TObject);
procedure frmCompilerOptionsClose(Sender: TObject; var Action: TCloseAction
);
procedure frmCompilerOptionsClose(Sender: TObject;
var CloseAction: TCloseAction);
procedure frmCompilerOptionsResize(Sender: TObject);
private
procedure SetupSearchPathsTab(Page: integer);
@ -4778,7 +4778,7 @@ begin
end;
procedure TfrmCompilerOptions.frmCompilerOptionsClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;

6
ide/imexportcompileropts.pas
View File

@ -51,8 +51,8 @@ type
OpenButton: TBUTTON;
CancelButton: TBUTTON;
OpenRecentGroupbox: TGROUPBOX;
procedure ImExportCompOptsDlgCLOSE(Sender: TObject; var Action: TCloseAction
);
procedure ImExportCompOptsDlgCLOSE(Sender: TObject;
var CloseAction: TCloseAction);
procedure ImExportCompOptsDlgCREATE(Sender: TObject);
procedure OpenButtonCLICK(Sender: TObject);
procedure OpenRecentButtonCLICK(Sender: TObject);
@ -302,7 +302,7 @@ begin
end;
procedure TImExportCompOptsDlg.ImExportCompOptsDlgCLOSE(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
SaveRecentList;
end;

24
ide/main.pp
View File

@ -90,7 +90,7 @@ type
// event handlers
//procedure FormShow(Sender : TObject);
procedure MainIDEFormClose(Sender : TObject; var Action: TCloseAction);
procedure MainIDEFormClose(Sender : TObject; var CloseAction: TCloseAction);
procedure MainIDEFormCloseQuery(Sender : TObject; var CanClose: boolean);
procedure MainIDEResize(Sender: TObject);
//procedure FormPaint(Sender : TObject);
@ -267,7 +267,7 @@ type
procedure OnSrcNotebookInitIdentCompletion(Sender: TObject;
var Handled, Abort: boolean);
procedure OnSrcNotebookJumpToHistoryPoint(var NewCaretXY: TPoint;
var NewTopLine, NewPageIndex: integer; Action: TJumpHistoryAction);
var NewTopLine, NewPageIndex: integer; JumpAction: TJumpHistoryAction);
procedure OnSrcNotebookMovingPage(Sender: TObject;
OldPageIndex, NewPageIndex: integer);
procedure OnSrcNotebookReadOnlyChanged(Sender : TObject);
@ -1009,7 +1009,8 @@ Begin
end;
{------------------------------------------------------------------------------}
procedure TMainIDE.MainIDEFormClose(Sender : TObject; var Action: TCloseAction);
procedure TMainIDE.MainIDEFormClose(Sender : TObject;
var CloseAction: TCloseAction);
begin
SaveEnvironment;
SaveIncludeLinks;
@ -9508,7 +9509,7 @@ begin
end;
Procedure TMainIDE.OnSrcNotebookJumpToHistoryPoint(var NewCaretXY: TPoint;
var NewTopLine, NewPageIndex: integer; Action: TJumpHistoryAction);
var NewTopLine, NewPageIndex: integer; JumpAction: TJumpHistoryAction);
{ How the HistoryIndex works:
When the user jumps around each time an item is added to the history list
@ -9536,7 +9537,7 @@ begin
{$IFDEF VerboseJumpHistory}
writeln('');
writeln('[TMainIDE.OnSrcNotebookJumpToHistoryPoint] A Back=',Action=jhaBack);
writeln('[TMainIDE.OnSrcNotebookJumpToHistoryPoint] A Back=',JumpAction=jhaBack);
Project1.JumpHistory.WriteDebugReport;
{$ENDIF}
@ -9545,7 +9546,7 @@ begin
// get destination jump point
DestIndex:=Project1.JumpHistory.HistoryIndex;
if Action=jhaForward then
if JumpAction=jhaForward then
inc(DestIndex);
if (DestIndex<0) or (DestIndex>=Project1.JumpHistory.Count) then exit;
@ -9563,7 +9564,7 @@ begin
end;
end;
if (Action=jhaBack) and (Project1.JumpHistory.Count=DestIndex+1)
if (JumpAction=jhaBack) and (Project1.JumpHistory.Count=DestIndex+1)
and (CursorPoint<>nil) then begin
// this is the first back jump
// -> insert current source position into history
@ -9577,7 +9578,7 @@ begin
// find the next jump point that is not where the cursor is
DestIndex:=Project1.JumpHistory.HistoryIndex;
if Action=jhaForward then
if JumpAction=jhaForward then
inc(DestIndex);
while (DestIndex>=0) and (DestIndex<Project1.JumpHistory.Count) do begin
DestJumpPoint:=Project1.JumpHistory[DestIndex];
@ -9588,7 +9589,7 @@ begin
if (UnitIndex>=0) and (Project1.Units[UnitIndex].EditorIndex>=0)
and ((CursorPoint=nil) or not DestJumpPoint.IsSimilar(CursorPoint)) then
begin
if Action=jhaBack then
if JumpAction=jhaBack then
dec(DestIndex);
Project1.JumpHistory.HistoryIndex:=DestIndex;
NewCaretXY:=DestJumpPoint.CaretXY;
@ -9599,7 +9600,7 @@ begin
{$ENDIF}
break;
end;
if Action=jhaBack then
if JumpAction=jhaBack then
dec(DestIndex)
else
inc(DestIndex);
@ -10312,6 +10313,9 @@ end.
{ =============================================================================
$Log$
Revision 1.706 2004/02/02 16:59:27 mattias
more Actions TAction, TBasicAction, ...
Revision 1.705 2004/02/01 09:19:08 mattias
fixed delphi2lazarus unit R directive

5
ide/projectopts.pp
View File

@ -71,7 +71,8 @@ type
OkButton: TBitBtn;
CancelButton: TBitBtn;
procedure ProjectOptionsClose(Sender: TObject; var Action: TCloseAction);
procedure ProjectOptionsClose(Sender: TObject;
var CloseAction: TCloseAction);
procedure ProjectOptionsResize(Sender: TObject);
procedure FormsAddToAutoCreatedFormsBtnClick(Sender: TObject);
procedure FormsRemoveFromAutoCreatedFormsBtnClick(Sender: TObject);
@ -444,7 +445,7 @@ begin
end;
procedure TProjectOptionsDialog.ProjectOptionsClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
var NewFlags: TProjectFlags;
begin
if ModalResult = mrOk then begin

6
ide/sortselectiondlg.pas
View File

@ -61,8 +61,8 @@ type
procedure DirectionRadioGroupClick(Sender: TObject);
procedure DomainRadioGroupClick(Sender: TObject);
procedure IgnoreSpaceCheckBoxClick(Sender: TObject);
procedure SortSelectionDialogClose(Sender: TObject; var Action: TCloseAction
);
procedure SortSelectionDialogClose(Sender: TObject;
var CloseAction: TCloseAction);
procedure SortSelectionDialogResize(Sender: TObject);
private
FCaseSensitive: boolean;
@ -376,7 +376,7 @@ begin
end;
procedure TSortSelectionDialog.SortSelectionDialogClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
MiscellaneousOptions.SortSelDirection:=Direction;
MiscellaneousOptions.SortSelDomain:=Domain;

4
ide/unitdependencies.pas
View File

@ -169,7 +169,7 @@ type
procedure SelectUnitButtonClick(Sender: TObject);
procedure ShowProjectButtonClick(Sender: TObject);
procedure UnitDependenciesViewClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
procedure UnitDependenciesViewResize(Sender: TObject);
procedure UnitHistoryListChange(Sender: TObject);
procedure UnitHistoryListKeyUp(Sender: TObject; var Key: Word;
@ -258,7 +258,7 @@ begin
end;
procedure TUnitDependenciesView.UnitDependenciesViewClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
EnvironmentOptions.IDEWindowLayoutList.ItemByForm(Self).GetCurrentPosition;
end;

6
ide/uniteditor.pp
View File

@ -528,7 +528,7 @@ type
procedure GotoLineClicked(Sender: TObject);
procedure HistoryJump(Sender: TObject; Action: TJumpHistoryAction);
procedure HistoryJump(Sender: TObject; CloseAction: TJumpHistoryAction);
procedure JumpBackClicked(Sender: TObject);
procedure JumpForwardClicked(Sender: TObject);
procedure AddJumpPointClicked(Sender: TObject);
@ -3585,7 +3585,7 @@ begin
end;
procedure TSourceNotebook.HistoryJump(Sender: TObject;
Action: TJumpHistoryAction);
CloseAction: TJumpHistoryAction);
var NewCaretXY: TPoint;
NewTopLine: integer;
NewPageIndex: integer;
@ -3594,7 +3594,7 @@ begin
if (NoteBook<>nil) and Assigned(OnJumpToHistoryPoint) then begin
NewCaretXY.X:=-1;
NewPageIndex:=-1;
OnJumpToHistoryPoint(NewCaretXY,NewTopLine,NewPageIndex,Action);
OnJumpToHistoryPoint(NewCaretXY,NewTopLine,NewPageIndex,CloseAction);
SrcEdit:=FindSourceEditorWithPageIndex(NewPageIndex);
if SrcEdit<>nil then begin
NoteBook.PageIndex:=NewPageIndex;

21
lcl/controls.pp
View File

@ -665,6 +665,7 @@ type
FVisible: Boolean;
FWidth: Integer;
FWindowProc: TWndMethod;
procedure DoActionChange(Sender: TObject);
function GetBoundsRect : TRect;
function GetClientHeight: Integer;
function GetClientWidth: Integer;
@ -783,6 +784,10 @@ type
procedure InvalidateControl(IsVisible, IsOpaque, IgnoreWinControls: Boolean);
procedure SendDockNotification(Msg: Cardinal; WParam: WParam; LParam: LParam); virtual;
procedure FontChanged(Sender: TObject); virtual;
function GetText: TCaption; virtual;
function GetAction: TBasicAction; virtual;
function GetActionLinkClass: TControlActionLinkClass; dynamic;
procedure SetAction(Value: TBasicAction); virtual;
procedure SetColor(Value : TColor); virtual;
procedure SetDragMode (Value: TDragMode); virtual;
procedure SetEnabled(Value: Boolean); virtual;
@ -790,7 +795,6 @@ type
procedure SetName(const Value: TComponentName); override;
procedure SetParent(AParent: TWinControl); virtual;
Procedure SetParentComponent(Value: TComponent); override;
function GetText: TCaption; virtual;
procedure SetText(const Value: TCaption); virtual;
procedure WndProc(var TheMessage: TLMessage); virtual;
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); dynamic;
@ -817,6 +821,7 @@ type
procedure RemoveControlHandler(HandlerType: TControlHandlerType;
AMethod: TMethod);
procedure DoContextPopup(const MousePos: TPoint; var Handled: Boolean); virtual;
procedure ActionChange(Sender: TObject; CheckDefaults: Boolean); dynamic;
protected
property ActionLink: TControlActionLink read FActionLink write FActionLink;
property AutoSize: Boolean read FAutoSize write SetAutoSize default FALSE;
@ -885,6 +890,7 @@ type
procedure SetZOrderPosition(Position : Integer); virtual;
Procedure SetZOrder(Topmost: Boolean); virtual;
function HandleObjectShouldBeVisible: boolean; virtual;
procedure InitiateAction; virtual;
public
// Event lists
procedure RemoveAllControlHandlersOfObject(AnObject: TObject);
@ -895,6 +901,7 @@ type
procedure RemoveHandlerOnChangeBounds(OnChangeBoundsEvent: TNotifyEvent);
public
property Anchors: TAnchors read FAnchors write SetAnchors default [akLeft,akTop];
property Action: TBasicAction read GetAction write SetAction;
property Align: TAlign read FAlign write SetAlign;
property BoundsRect: TRect read GetBoundsRect write SetBoundsRect;
property Caption: TCaption read GetText write SetText stored IsCaptionStored;
@ -964,6 +971,10 @@ type
{ TWinControlActionLink }
TWinControlActionLink = class(TControlActionLink)
protected
procedure AssignClient(AClient: TObject); override;
function IsHelpContextLinked: Boolean; override;
procedure SetHelpContext(Value: THelpContext); override;
end;
TWinControlActionLinkClass = class of TWinControlActionLink;
@ -1035,6 +1046,8 @@ type
procedure SetUseDockManager(const AValue: Boolean);
procedure UpdateTabOrder(NewTabValue: TTabOrder);
protected
procedure ActionChange(Sender: TObject; CheckDefaults: Boolean); override;
function GetActionLinkClass: TControlActionLinkClass; override;
procedure AdjustSize; override;
procedure AdjustClientRect(var Rect: TRect); virtual;
procedure AlignControls(AControl : TControl; var ARect: TRect); virtual;
@ -1260,8 +1273,11 @@ type
TImageList = class(TDragImageList)
published
property BkColor: TColor;
Property Height;
property Masked;
Property Width;
Property OnChange;
end;
@ -1877,6 +1893,9 @@ end.
{ =============================================================================
$Log$
Revision 1.172 2004/02/02 16:59:28 mattias
more Actions TAction, TBasicAction, ...
Revision 1.171 2004/02/02 12:44:45 mattias
implemented interface constraints

4
lcl/forms.pp
View File

@ -314,7 +314,7 @@ type
TIDesigner = class;
TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;
TCloseEvent = procedure(Sender: TObject; var CloseAction: TCloseAction) of object;
TCloseQueryEvent = procedure(Sender : TObject;
var CanClose : boolean) of object;
THelpEvent = function(Command: Word; Data: Longint;
@ -398,7 +398,7 @@ type
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override;
procedure Deactivate;dynamic;
procedure DoClose(var Action: TCloseAction); dynamic;
procedure DoClose(var CloseAction: TCloseAction); dynamic;
procedure DoHide; dynamic;
procedure DoShow; dynamic;
procedure EndFormUpdate;

22
lcl/imglist.pp
View File

@ -90,7 +90,7 @@ type
should be reduced and if so do it like Delphi.
The current TCustomImageList is simply a list of bitmaps. The masks are
not saved at all.
not saved at all yet.
So a lot ToDo.
}
@ -100,6 +100,7 @@ type
FBitmap: TBitmap;
FMaskBitmap: TBitmap;
FHeight: Integer;
FMasked: boolean;
FWidth: Integer;
FAllocBy: Integer;
FCount: Integer;
@ -113,6 +114,7 @@ type
procedure NotifyChangeLink;
procedure SetBkColor(const Value: TColor);
procedure SetHeight(const Value: Integer);
procedure SetMasked(const AValue: boolean);
procedure SetWidth(const Value: Integer);
Function GetCount: Integer;
@ -123,9 +125,11 @@ type
procedure Initialize; virtual;
procedure DefineProperties(Filer: TFiler); override;
public
constructor Create(AOwner: TComponent); override;
procedure Assign(Source: TPersistent); override;
procedure WriteData(Stream: TStream); virtual;
procedure ReadData(Stream : TStream); virtual;
procedure ReadData(Stream: TStream); virtual;
function Add(Image, Mask: TBitmap): Integer;
function AddIcon(Image: TIcon): Integer;
@ -133,7 +137,6 @@ type
function AddMasked(Image: TBitmap; MaskColor: TColor): Integer;
procedure Change;
procedure Clear;
constructor Create(AOwner : TComponent); override;
constructor CreateSize(AWidth, AHeight: Integer);
procedure Delete(Index: Integer);
destructor Destroy; override;
@ -147,12 +150,12 @@ type
procedure InsertIcon(Index: Integer; Image: TIcon);
procedure InsertMasked(Index: Integer; Image: TBitmap; MaskColor: TColor);
procedure Move(CurIndex, NewIndex: Integer);
procedure RegisterChanges(Value: TChangeLink);
procedure Replace(Index: Integer; Image, Mask: TBitmap);
procedure ReplaceIcon(Index: Integer; Image: TIcon);
procedure ReplaceMasked(Index: Integer; NewImage: TBitmap; MaskColor: TColor);
procedure RegisterChanges(Value: TChangeLink);
procedure UnRegisterChanges(Value: TChangeLink);
public
property AllocBy: Integer read FAllocBy write FAllocBy default 4;
property BlendColor: TColor read FBlendColor write FBlendColor default clNone;
property BkColor: TColor read FBkColor write SetBkColor default clNone;
@ -161,13 +164,9 @@ type
property Height: Integer read FHeight write SetHeight default 16;
property Width: Integer read FWidth write SetWidth default 16;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
// ----------------------
// for debugging purposes only
property Masked: boolean read FMasked write SetMasked;
property Bitmap: TBitmap read FBitmap;
property MaskBitmap: TBitmap read FMaskBitmap;
// ----------------------
published
{ no published parts }
end;
@ -189,6 +188,9 @@ end.
{
$Log$
Revision 1.13 2004/02/02 16:59:28 mattias
more Actions TAction, TBasicAction, ...
Revision 1.12 2003/04/04 16:35:24 mattias
started package registration

64
lcl/include/control.inc
View File

@ -186,6 +186,25 @@ begin
Invalidate;
end;
procedure TControl.SetAction(Value: TBasicAction);
begin
if Value = nil then begin
ActionLink.Free;
ActionLink:=nil;
Exclude(FControlStyle, csActionClient);
end
else
begin
Include(FControlStyle, csActionClient);
if ActionLink = nil then
ActionLink := GetActionLinkClass.Create(Self);
ActionLink.Action := Value;
ActionLink.OnChange := @DoActionChange;
ActionChange(Value, csLoading in Value.ComponentState);
Value.FreeNotification(Self);
end;
end;
{------------------------------------------------------------------------------
TControl.ChangeBounds
------------------------------------------------------------------------------}
@ -1106,6 +1125,30 @@ begin
FOnContextPopup(Self, MousePos, Handled);
end;
procedure TControl.ActionChange(Sender: TObject; CheckDefaults: Boolean);
begin
if Sender is TCustomAction then
with TCustomAction(Sender) do
begin
if (not CheckDefaults)
or (Self.Caption = '') or (Self.Caption = Self.Name) then
Self.Caption := Caption;
if not CheckDefaults or (Self.Enabled = True) then
Self.Enabled := Enabled;
if not CheckDefaults or (Self.Hint = '') then
Self.Hint := Hint;
if not CheckDefaults or (Self.Visible = True) then
Self.Visible := Visible;
if not CheckDefaults or not Assigned(Self.OnClick) then
Self.OnClick := OnExecute;
end;
end;
procedure TControl.DoActionChange(Sender: TObject);
begin
if Sender = Action then ActionChange(Sender, False);
end;
{------------------------------------------------------------------------------
TControl GetClientRect
------------------------------------------------------------------------------}
@ -1742,6 +1785,19 @@ begin
Assert(False, 'Trace:<TControl.GetText> End');
end;
function TControl.GetAction: TBasicAction;
begin
if ActionLink <> nil then
Result := ActionLink.Action
else
Result := nil;
end;
function TControl.GetActionLinkClass: TControlActionLinkClass;
begin
Result := TControlActionLink;
end;
{------------------------------------------------------------------------------
TControl IsCaptionStored
------------------------------------------------------------------------------}
@ -2275,6 +2331,11 @@ begin
and not (csReadingState in ControlState);
end;
procedure TControl.InitiateAction;
begin
if ActionLink <> nil then ActionLink.Update;
end;
procedure TControl.Dock(NewDockSite: TWinControl; ARect: TRect);
begin
// ToDo
@ -2618,6 +2679,9 @@ end;
{ =============================================================================
$Log$
Revision 1.166 2004/02/02 16:59:28 mattias
more Actions TAction, TBasicAction, ...
Revision 1.165 2004/01/27 21:32:11 mattias
improved changing style of controls

51
lcl/include/controlactionlink.inc
View File

@ -27,8 +27,9 @@ begin
Result := True;
if Action is TCustomAction then
begin
if TCustomAction(Action).DoHint(HintStr) and Application.HintShortCuts and
(TCustomAction(Action).ShortCut <> scNone) then
if TCustomAction(Action).DoHint(HintStr)
and Application.HintShortCuts
and (TCustomAction(Action).ShortCut <> scNone) then
begin
if HintStr <> '' then
HintStr := Format('%s (%s)', [HintStr,
@ -39,32 +40,32 @@ end;
function TControlActionLink.IsCaptionLinked: Boolean;
begin
Result := inherited IsCaptionLinked and
(FClient.Caption = (Action as TCustomAction).Caption);
Result := inherited IsCaptionLinked
and (FClient.Caption = (Action as TCustomAction).Caption);
end;
function TControlActionLink.IsEnabledLinked: Boolean;
begin
Result := inherited IsEnabledLinked and
(FClient.Enabled = (Action as TCustomAction).Enabled);
Result := inherited IsEnabledLinked
and (FClient.Enabled = (Action as TCustomAction).Enabled);
end;
function TControlActionLink.IsHintLinked: Boolean;
begin
Result := inherited IsHintLinked and
(FClient.Hint = (Action as TCustomAction).Hint);
Result := inherited IsHintLinked
and (FClient.Hint = (Action as TCustomAction).Hint);
end;
function TControlActionLink.IsVisibleLinked: Boolean;
begin
Result := inherited IsVisibleLinked and
(FClient.Visible = (Action as TCustomAction).Visible);
Result := inherited IsVisibleLinked
and (FClient.Visible = (Action as TCustomAction).Visible);
end;
function TControlActionLink.IsOnExecuteLinked: Boolean;
begin
Result := inherited IsOnExecuteLinked and
(@FClient.OnClick = @Action.OnExecute);
Result := inherited IsOnExecuteLinked
and (FClient.OnClick = Action.OnExecute);
end;
procedure TControlActionLink.SetCaption(const Value: string);
@ -94,10 +95,9 @@ end;
function TControlActionLink.IsHelpLinked: Boolean;
begin
Result :=
(FClient.HelpContext = (Action as TCustomAction).HelpContext) and
(FClient.HelpKeyword = (Action as TCustomAction).HelpKeyword) and
(FClient.HelpType = (Action as TCustomAction).HelpType);
Result := (FClient.HelpContext = (Action as TCustomAction).HelpContext)
and (FClient.HelpKeyword = (Action as TCustomAction).HelpKeyword)
and (FClient.HelpType = (Action as TCustomAction).HelpType);
end;
procedure TControlActionLink.SetHelpKeyword(const Value: String);
@ -115,5 +115,24 @@ begin
if IsHelpLinked then FClient.HelpType := Value;
end;
{ TWinControlActionLink }
procedure TWinControlActionLink.AssignClient(AClient: TObject);
begin
inherited AssignClient(AClient);
FClient := AClient as TWinControl;
end;
function TWinControlActionLink.IsHelpContextLinked: Boolean;
begin
// only for Delphi compatibility
Result := IsHelpLinked;
end;
procedure TWinControlActionLink.SetHelpContext(Value: THelpContext);
begin
inherited SetHelpContext(Value);
end;
// included by controls.pp

7
lcl/include/customform.inc
View File

@ -492,9 +492,9 @@ end;
Calls user handler
------------------------------------------------------------------------------}
procedure TCustomForm.DoClose(var Action: TCloseAction);
procedure TCustomForm.DoClose(var CloseAction: TCloseAction);
begin
if Assigned(FOnClose) then FOnClose(Self, Action);
if Assigned(FOnClose) then FOnClose(Self, CloseAction);
end;
{------------------------------------------------------------------------------
@ -1467,6 +1467,9 @@ end;
{ =============================================================================
$Log$
Revision 1.124 2004/02/02 16:59:28 mattias
more Actions TAction, TBasicAction, ...
Revision 1.123 2003/12/29 14:22:22 micha
fix a lot of range check errors win32

9
lcl/include/imglist.inc
View File

@ -881,6 +881,12 @@ begin
end;
end;
procedure TCustomImageList.SetMasked(const AValue: boolean);
begin
if FMasked=AValue then exit;
FMasked:=AValue;
end;
{------------------------------------------------------------------------------
Method: TCustomImageList.SetWidth
Params: Value: the width of an image
@ -985,6 +991,9 @@ end;
{
$Log$
Revision 1.20 2004/02/02 16:59:28 mattias
more Actions TAction, TBasicAction, ...
Revision 1.19 2003/12/25 14:17:07 mattias
fixed many range check warnings

17
lcl/include/wincontrol.inc
View File

@ -1875,6 +1875,20 @@ begin
end;
end;
procedure TWinControl.ActionChange(Sender: TObject; CheckDefaults: Boolean);
begin
inherited ActionChange(Sender,CheckDefaults);
if Sender is TCustomAction then
with TCustomAction(Sender) do
if (not CheckDefaults) or (Self.HelpContext = 0) then
Self.HelpContext := HelpContext;
end;
function TWinControl.GetActionLinkClass: TControlActionLinkClass;
begin
Result := TWinControlActionLink;
end;
{------------------------------------------------------------------------------
TWinControl KeyDown
------------------------------------------------------------------------------}
@ -3269,6 +3283,9 @@ end;
{ =============================================================================
$Log$
Revision 1.196 2004/02/02 16:59:28 mattias
more Actions TAction, TBasicAction, ...
Revision 1.195 2004/02/02 12:44:45 mattias
implemented interface constraints

4
packager/addfiletoapackagedlg.pas
View File

@ -56,7 +56,7 @@ type
OkButton: TButton;
CancelButton: TButton;
procedure AddFileToAPackageDlgClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
procedure AddFileToAPackageDlgResize(Sender: TObject);
procedure FileGroupBoxResize(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
@ -105,7 +105,7 @@ end;
{ TAddFileToAPackageDlg }
procedure TAddFileToAPackageDlg.AddFileToAPackageDlgClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;

5
packager/addtopackagedlg.pas
View File

@ -139,7 +139,8 @@ type
procedure AddFilePageResize(Sender: TObject);
procedure AddFileShortenButtonClick(Sender: TObject);
procedure AddFilesPageResize(Sender: TObject);
procedure AddToPackageDlgClose(Sender: TObject; var Action: TCloseAction);
procedure AddToPackageDlgClose(Sender: TObject;
var CloseAction: TCloseAction);
procedure AddUnitButtonClick(Sender: TObject);
procedure AddUnitFileBrowseButtonClick(Sender: TObject);
procedure AddUnitFileShortenButtonClick(Sender: TObject);
@ -451,7 +452,7 @@ begin
end;
procedure TAddToPackageDlg.AddToPackageDlgClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;

4
packager/brokendependenciesdlg.pas
View File

@ -48,7 +48,7 @@ type
NoteLabel: TLabel;
DependencyListView: TListView;
procedure BrokenDependenciesDialogClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
procedure BrokenDependenciesDialogResize(Sender: TObject);
private
fButtons: TList; // list of TBitBtn
@ -133,7 +133,7 @@ begin
end;
procedure TBrokenDependenciesDialog.BrokenDependenciesDialogClose(
Sender: TObject; var Action: TCloseAction);
Sender: TObject; var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;

4
packager/packageeditor.pas
View File

@ -139,7 +139,7 @@ type
procedure MoveFileDownMenuItemClick(Sender: TObject);
procedure OpenFileMenuItemClick(Sender: TObject);
procedure OptionsBitBtnClick(Sender: TObject);
procedure PackageEditorFormClose(Sender: TObject; var Action: TCloseAction);
procedure PackageEditorFormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure PackageEditorFormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure PackageEditorFormResize(Sender: TObject);
procedure PublishClick(Sender: TObject);
@ -658,7 +658,7 @@ begin
end;
procedure TPackageEditorForm.PackageEditorFormClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
if LazPackage=nil then exit;
PackageEditors.SaveLayout(Self);

4
packager/pkgoptionsdlg.pas
View File

@ -97,7 +97,7 @@ type
procedure IDEPageResize(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure PackageOptionsDialogClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
procedure PackageOptionsDialogResize(Sender: TObject);
procedure PathEditBtnClick(Sender: TObject);
procedure PathEditBtnExecuted(Sender: TObject);
@ -407,7 +407,7 @@ begin
end;
procedure TPackageOptionsDialog.PackageOptionsDialogClose(Sender: TObject;
var Action: TCloseAction);
var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;