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

Opkman: Avoid unnecessary LCL scaling steps for VTV. Issue #37886.

Browse Source 
git-svn-id: trunk@64737 -
This commit is contained in:
wp 2021-03-03 11:21:39 +00:00
parent e7683e534c
commit 09075a320b
2 changed files with 28 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -178,6 +178,9 @@ type
function UpdateP(const ADstDir: String; var ADoExtract: Boolean): TModalResult;
procedure Rebuild;
function CheckDstDir(const ADstDir: String): Boolean;
protected
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
public
procedure ShowOptions(const AActivePageIndex: Integer = 0);
end;
@ -346,6 +349,14 @@ begin
end;
procedure TMainFrm.DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double);
begin
inherited;
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
VisualTree.AutoAdjustLayout(AXProportion, AYProportion);
end;
function TMainFrm.Download(const ADstDir: String; var ADoExtract: Boolean): TModalResult;
begin
if not CheckDstDir(ADstDir) then

28
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -173,6 +173,7 @@ type
function ResolveDependencies: TModalResult;
function GetCheckedRepositoryPackages: Integer;
procedure SetupColors;
procedure AutoAdjustLayout(AXProportion, AYProportion: Double);
published
property OnChecking: TOnChecking read FOnChecking write FOnChecking;
property OnChecked: TNotifyEvent read FOnChecked write FOnChecked;
@ -201,24 +202,24 @@ begin
Anchors := [akLeft, akTop, akRight];
Images := AImgList;
PopupMenu := APopupMenu;
DefaultNodeHeight := FVST.Scale96ToForm(25);
Indent := FVST.Scale96ToForm(22);
DefaultNodeHeight := 25;
Indent := 22;
TabOrder := 1;
DefaultText := '';
Header.AutoSizeIndex := 4;
Header.Height := FVST.Scale96ToForm(25);
Header.Height := 25;
Colors.DisabledColor := clBlack;
with Header.Columns.Add do
begin
Position := 0;
Width := FVST.Scale96ToForm(270);
Width := 270;
Text := rsMainFrm_VSTHeaderColumn_PackageName;
end;
with Header.Columns.Add do
begin
Position := 1;
Alignment := taCenter;
Width := FVST.Scale96ToForm(90);
Width := 90;
{$IFDEF LCLCarbon}
Options := Options - [coResizable];
{$ENDIF}
@ -228,7 +229,7 @@ begin
begin
Position := 2;
Alignment := taCenter;
Width := FVST.Scale96ToForm(110);
Width := 110;
{$IFDEF LCLCarbon}
Options := Options - [coResizable];
{$ENDIF}
@ -239,7 +240,7 @@ begin
begin
Position := 3;
Alignment := taCenter;
Width := FVST.Scale96ToForm(110);
Width := 110;
{$IFDEF LCLCarbon}
Options := Options - [coResizable];
{$ENDIF}
@ -249,7 +250,7 @@ begin
with Header.Columns.Add do
begin
Position := 4;
Width := FVST.Scale96ToForm(280);
Width := 280;
{$IFDEF LCLCarbon}
Options := Options - [coResizable];
{$ENDIF}
@ -259,7 +260,7 @@ begin
begin
Position := 5;
Alignment := taCenter;
Width := FVST.Scale96ToForm(81);
Width := 80;
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Rating;
end;
@ -267,7 +268,7 @@ begin
begin
Position := 6;
Alignment := taCenter;
Width := FVST.Scale96ToForm(20);
Width := 20;
Options := Options - [coResizable];
end;
Header.Options := [hoAutoResize, hoColumnResize, hoRestrictDrag, hoShowSortGlyphs, hoVisible, hoShowHint];
@ -313,7 +314,7 @@ begin
end;
FShowHintFrm := TShowHintFrm.Create(nil);
if AImgList <> nil then
FStarSize := Application.MainForm.Scale96ToForm(AImgList.Width)
FStarSize := AImgList.Width
else
FStarSize := 0;
end;
@ -1440,6 +1441,11 @@ begin
end;
end;
procedure TVisualTree.AutoAdjustLayout(AXProportion, AYProportion: Double);
begin
FStarSize := round(FStarSize * AXProportion);
end;
procedure TVisualTree.VSTCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var