paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 13:19:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Fixed issue #32306, reported by @AlexeyT.

Browse Source 
git-svn-id: trunk@55728 -
This commit is contained in:
balazs 2017-08-21 08:29:58 +00:00
parent 64340339f1
commit a7ab43767c
2 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/onlinepackagemanager/opkman_mainfrm.lfm
View File

@ -56,6 +56,7 @@ object MainFrm: TMainFrm
ClientWidth = 800
ParentColor = False
TabOrder = 0
TabStop = True
OnResize = pnTopResize
object spExpand: TSpeedButton
Tag = 1
@ -173,7 +174,7 @@ object MainFrm: TMainFrm
ClientHeight = 28
ClientWidth = 200
ParentColor = False
TabOrder = 1
TabOrder = 5
object spClear: TSpeedButton
Left = 170
Height = 28
@ -261,7 +262,7 @@ object MainFrm: TMainFrm
)
OnChange = cbPackageCategoryChange
Style = csDropDownList
TabOrder = 2
TabOrder = 1
end
object cbPackageState: TComboBox
Left = 352
@ -279,7 +280,7 @@ object MainFrm: TMainFrm
)
OnChange = cbPackageStateChange
Style = csDropDownList
TabOrder = 3
TabOrder = 2
end
object cbPackageType: TComboBox
Left = 352
@ -298,7 +299,7 @@ object MainFrm: TMainFrm
)
OnChange = cbPackageTypeChange
Style = csDropDownList
TabOrder = 4
TabOrder = 3
Text = 'Designtime and runtime'
end
object cbFilterBy: TComboBox
@ -327,7 +328,7 @@ object MainFrm: TMainFrm
ParentShowHint = False
ShowHint = True
Style = csDropDownList
TabOrder = 5
TabOrder = 4
Text = 'Packagename '
end
end
@ -353,6 +354,7 @@ object MainFrm: TMainFrm
ClientHeight = 70
ClientWidth = 800
TabOrder = 1
TabStop = True
OnResize = pnToolBarResize
object tbButtons: TToolBar
Left = 81

17
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -128,6 +128,7 @@ type
procedure VSTDblClick(Sender: TObject);
procedure VSTClick(Sender: TObject);
procedure VSTAfterPaint(Sender: TBaseVirtualTree; {%H-}TargetCanvas: TCanvas);
procedure VSTEnter(Sender: TObject);
function GetDisplayString(const AStr: String): String;
function IsAllChecked(const AChecking: PVirtualNode): Boolean;
procedure ButtonClick(Sender: TObject);
@ -268,6 +269,7 @@ begin
OnGetHint := @VSTGetHint;
OnAfterCellPaint := @VSTAfterCellPaint;
OnAfterPaint := @VSTAfterPaint;
OnEnter := @VSTEnter;
OnFreeNode := @VSTFreeNode;
end;
end;
@ -595,6 +597,21 @@ begin
Sender.IterateSubtree(nil, @CallBack, nil);
end;
procedure TVisualTree.VSTEnter(Sender: TObject);
var
Node: PVirtualNode;
begin
if FVST.SelectedCount = 0 then
begin
Node := FVST.GetFirst;
if Node <> nil then
begin
FVST.Selected[Node] := True;
FVST.FocusedNode := Node;
end;
end;
end;
procedure TVisualTree.DrawStars(ACanvas: TCanvas; AStartIndex: Integer;
P: TPoint; AAvarage: Double);