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

IDE: make Close button work in Window Manager

Browse Source 
git-svn-id: trunk@37285 -
This commit is contained in:
juha 2012-05-15 07:42:35 +00:00
parent d3df1f45a7
commit ca3cbe03f4
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/editorfilemanager.lfm
View File

@ -9,7 +9,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
ClientWidth = 722
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object CheckListBox1: TCheckListBox
AnchorSideTop.Control = FilterPanel
AnchorSideTop.Side = asrBottom
@ -41,6 +41,7 @@ object EditorFileManagerForm: TEditorFileManagerForm
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.OnClick = CloseButtonClick
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1

6
ide/editorfilemanager.pas
View File

@ -35,6 +35,7 @@ type
procedure CheckListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure CheckListBox1KeyPress(Sender: TObject; var Key: char);
procedure CloseButtonClick(Sender: TObject);
procedure DoEditorsChanged(Sender: TObject);
procedure MoveDownBtnClick(Sender: TObject);
procedure MoveUpBtnClick(Sender: TObject);
@ -240,6 +241,11 @@ begin
ActivateButtonClick(nil);
end;
procedure TEditorFileManagerForm.CloseButtonClick(Sender: TObject);
begin
Close;
end;
procedure TEditorFileManagerForm.DoEditorsChanged(Sender: TObject);
begin
PopulateList;