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

Converter: cleanup MissingUnits dialog

Browse Source 
git-svn-id: trunk@30851 -
This commit is contained in:
juha 2011-05-22 09:37:44 +00:00
parent 56e2f0964b
commit 6909f63d5d
2 changed files with 0 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/missingunits.lfm
View File

@ -27,7 +27,6 @@ object MissingUnitsDialog: TMissingUnitsDialog
Caption = 'Comment'
Default = True
ModalResult = 1
OnClick = CommentButtonClick
TabOrder = 0
end
object SearchButton: TBitBtn
@ -38,7 +37,6 @@ object MissingUnitsDialog: TMissingUnitsDialog
Anchors = [akBottom]
Caption = 'Search'
ModalResult = 6
OnClick = SearchButtonClick
TabOrder = 1
end
object AbortButton: TBitBtn
@ -50,7 +48,6 @@ object MissingUnitsDialog: TMissingUnitsDialog
Caption = 'Abort'
Kind = bkAbort
ModalResult = 3
OnClick = AbortButtonClick
TabOrder = 2
end
object ChoicesLabel: TLabel
@ -110,7 +107,6 @@ object MissingUnitsDialog: TMissingUnitsDialog
Anchors = [akBottom]
Caption = 'Skip'
ModalResult = 5
OnClick = SkipButtonClick
TabOrder = 4
end
object PopupMenu1: TPopupMenu

25
converter/missingunits.pas
View File

@ -62,12 +62,8 @@ type
SearchButton: TBitBtn;
AbortButton: TBitBtn;
MissingUnitsInfoLabel: TLabel;
procedure AbortButtonClick(Sender: TObject);
procedure CommentButtonClick(Sender: TObject);
procedure SaveMenuItemClick(Sender: TObject);
procedure SearchButtonClick(Sender: TObject);
procedure SelectMenuItemClick(Sender: TObject);
procedure SkipButtonClick(Sender: TObject);
procedure UnselectMenuItemClick(Sender: TObject);
private
@ -196,26 +192,5 @@ begin
end;
end;
procedure TMissingUnitsDialog.CommentButtonClick(Sender: TObject);
begin
end;
procedure TMissingUnitsDialog.SearchButtonClick(Sender: TObject);
begin
end;
procedure TMissingUnitsDialog.SkipButtonClick(Sender: TObject);
begin
end;
procedure TMissingUnitsDialog.AbortButtonClick(Sender: TObject);
begin
end;
end.