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

Packager: Add OnShow handler in Install/uninstall packages dlg to update (filter)-text. Issue #26433

Browse Source 
git-svn-id: trunk@45840 -
This commit is contained in:
juha 2014-07-12 11:30:15 +00:00
parent 04505d5dcb
commit b2f5fb591e
2 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/installpkgsetdlg.lfm
View File

@ -13,6 +13,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
OnCreate = InstallPkgSetDialogCreate OnCreate = InstallPkgSetDialogCreate
OnDestroy = InstallPkgSetDialogDestroy OnDestroy = InstallPkgSetDialogDestroy
OnResize = InstallPkgSetDialogResize OnResize = InstallPkgSetDialogResize
OnShow = InstallPkgSetDialogShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.3' LCLVersion = '1.3'
object InstallPkgGroupBox: TGroupBox object InstallPkgGroupBox: TGroupBox
@ -167,7 +168,6 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
Height = 25 Height = 25
Top = 3 Top = 3
Width = 255 Width = 255
UseFormActivate = True
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]

25
packager/installpkgsetdlg.pas
View File

@ -92,6 +92,7 @@ type
procedure InstallTreeViewDblClick(Sender: TObject); procedure InstallTreeViewDblClick(Sender: TObject);
procedure InstallPkgSetDialogCreate(Sender: TObject); procedure InstallPkgSetDialogCreate(Sender: TObject);
procedure InstallPkgSetDialogDestroy(Sender: TObject); procedure InstallPkgSetDialogDestroy(Sender: TObject);
procedure InstallPkgSetDialogShow(Sender: TObject);
procedure InstallPkgSetDialogResize(Sender: TObject); procedure InstallPkgSetDialogResize(Sender: TObject);
procedure InstallTreeViewSelectionChanged(Sender: TObject); procedure InstallTreeViewSelectionChanged(Sender: TObject);
procedure SaveAndExitButtonClick(Sender: TObject); procedure SaveAndExitButtonClick(Sender: TObject);
@ -225,6 +226,21 @@ begin
UpdateButtonStates; UpdateButtonStates;
end; end;
procedure TInstallPkgSetDialog.InstallPkgSetDialogDestroy(Sender: TObject);
begin
LPKInfoCache.EndLPKReader;
LPKInfoCache.RemoveOnQueueEmpty(@OnAllLPKParsed);
ClearNewInstalledPackages;
FreeAndNil(FNewInstalledPackages);
IdleConnected:=false;
end;
procedure TInstallPkgSetDialog.InstallPkgSetDialogShow(Sender: TObject);
begin
InstalledFilterEdit.Filter:=''; // (filter) - text is shown after this.
AvailableFilterEdit.Filter:='';
end;
procedure TInstallPkgSetDialog.SaveAndRebuildButtonClick(Sender: TObject); procedure TInstallPkgSetDialog.SaveAndRebuildButtonClick(Sender: TObject);
begin begin
if not CheckSelection then exit; if not CheckSelection then exit;
@ -398,15 +414,6 @@ begin
AddToInstall; AddToInstall;
end; end;
procedure TInstallPkgSetDialog.InstallPkgSetDialogDestroy(Sender: TObject);
begin
LPKInfoCache.EndLPKReader;
LPKInfoCache.RemoveOnQueueEmpty(@OnAllLPKParsed);
ClearNewInstalledPackages;
FreeAndNil(FNewInstalledPackages);
IdleConnected:=false;
end;
procedure TInstallPkgSetDialog.InstallPkgSetDialogResize(Sender: TObject); procedure TInstallPkgSetDialog.InstallPkgSetDialogResize(Sender: TObject);
var var
w: Integer; w: Integer;