paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 21:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Improve ProjectInspect. Issue #28127, patch from Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@49279 -
This commit is contained in:
juha 2015-06-05 18:12:49 +00:00
parent 8a2cbf2d8e
commit 51d721b429
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/addtoprojectdlg.lfm
View File

@ -9,6 +9,7 @@ object AddToProjectDialog: TAddToProjectDialog
ClientHeight = 339 ClientHeight = 339
ClientWidth = 598 ClientWidth = 598
OnClose = AddToProjectDialogClose OnClose = AddToProjectDialogClose
OnShow = AddToProjectDialogShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.5' LCLVersion = '1.5'
object Notebook: TPageControl object Notebook: TPageControl

7
ide/addtoprojectdlg.pas
View File

@ -85,6 +85,7 @@ type
{%H-}Selected: Boolean); {%H-}Selected: Boolean);
procedure AddToProjectDialogClose(Sender: TObject; procedure AddToProjectDialogClose(Sender: TObject;
var {%H-}CloseAction: TCloseAction); var {%H-}CloseAction: TCloseAction);
procedure AddToProjectDialogShow(Sender: TObject);
procedure DependPkgNameComboBoxChange(Sender: TObject); procedure DependPkgNameComboBoxChange(Sender: TObject);
procedure FilesDirButtonClick(Sender: TObject); procedure FilesDirButtonClick(Sender: TObject);
procedure FilesListViewSelectItem(Sender: TObject; {%H-}Item: TListItem; procedure FilesListViewSelectItem(Sender: TObject; {%H-}Item: TListItem;
@ -143,6 +144,7 @@ begin
end; end;
// hide tabs for simple look // hide tabs for simple look
AddToProjectDialog.NoteBook.ShowTabs:=false; AddToProjectDialog.NoteBook.ShowTabs:=false;
AddToProjectDialog.NoteBook.TabStop:=false;
// press "Add files" btn // press "Add files" btn
if AInitTab=a2pFiles then if AInitTab=a2pFiles then
AddToProjectDialog.FilesDirButton.Click; AddToProjectDialog.FilesDirButton.Click;
@ -213,6 +215,11 @@ begin
IDEDialogLayoutList.SaveLayout(Self); IDEDialogLayoutList.SaveLayout(Self);
end; end;
procedure TAddToProjectDialog.AddToProjectDialogShow(Sender: TObject);
begin
SelectNext(NoteBook.ActivePage, True, True);
end;
procedure TAddToProjectDialog.DependPkgNameComboBoxChange(Sender: TObject); procedure TAddToProjectDialog.DependPkgNameComboBoxChange(Sender: TObject);
begin begin
CheckNewReqOk; CheckNewReqOk;