paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 06:01:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: cleanup

Browse Source 
git-svn-id: trunk@23229 -
This commit is contained in:
paul 2009-12-22 06:43:22 +00:00
parent c19f4f146b
commit ea9cf9905b
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/stdactns.pas
View File

@ -142,7 +142,6 @@ type
procedure CreateDialog; virtual;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function Handlestarget(Target: TObject): Boolean; override;
procedure ExecuteTarget(Target: TObject); override;
property ExecuteResult: Boolean read FExecuteResult;
@ -194,10 +193,6 @@ type
FFileName: TFileName;
published
property FileName: TFileName read FFileName write FFileName;
property HelpContext;
property HelpKeyword;
property HelpType;
property BeforeExecute;
property AfterOpen: TNotifyEvent read FAfterOpen write FAfterOpen;
end;
@ -693,11 +688,6 @@ begin
Enabled := True;
end;
destructor TCommonDialogAction.Destroy;
begin
inherited Destroy;
end;
function TCommonDialogAction.Handlestarget(Target: TObject): Boolean;
begin
// no target