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

Opkman: Fix high-DPI. Issue #31782.

Browse Source 
git-svn-id: trunk@54923 -
This commit is contained in:
balazs 2017-05-14 12:09:28 +00:00
parent b426df3b1d
commit a71ab6fde4
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -32,7 +32,7 @@ interface
uses
Classes, SysUtils, contnrs, Math, dateutils,
// LCL
Controls, Graphics, Menus, Dialogs, Forms, LCLIntf, Buttons,
Controls, Graphics, Menus, Dialogs, Forms, LCLType, LCLIntf, Buttons,
// OpkMan
opkman_VirtualTrees, opkman_common, opkman_serializablepackages, opkman_const,
opkman_options, opkman_packagedetailsfrm;
@ -179,24 +179,24 @@ begin
Images := AImgList;
PopupMenu := APopupMenu;
Color := clBtnFace;
DefaultNodeHeight := 25;
DefaultNodeHeight := MulDiv(25, Screen.PixelsPerInch, 96);
Indent := 22;
TabOrder := 1;
DefaultText := '';
Header.AutoSizeIndex := 4;
Header.Height := 25;
Header.Height := MulDiv(25, Screen.PixelsPerInch, 96);
Colors.DisabledColor := clBlack;
with Header.Columns.Add do
begin
Position := 0;
Width := 270;
Width := MulDiv(270, Screen.PixelsPerInch, 96);
Text := rsMainFrm_VSTHeaderColumn_PackageName;
end;
with Header.Columns.Add do
begin
Position := 1;
Alignment := taCenter;
Width := 90;
Width := MulDiv(90, Screen.PixelsPerInch, 96);
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Installed;
end;
@ -204,7 +204,7 @@ begin
begin
Position := 2;
Alignment := taCenter;
Width := 90;
Width := MulDiv(90, Screen.PixelsPerInch, 96);
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Repository;
end;
@ -212,14 +212,14 @@ begin
begin
Position := 3;
Alignment := taCenter;
Width := 90;
Width := MulDiv(90, Screen.PixelsPerInch, 96);
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Update;
end;
with Header.Columns.Add do
begin
Position := 4;
Width := 280;
Width := MulDiv(280, Screen.PixelsPerInch, 96);//280;
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Data;
end;
@ -235,7 +235,7 @@ begin
begin
Position := 6;
Alignment := taCenter;
Width := 20;
Width := MulDiv(20, Screen.PixelsPerInch, 96);
Options := Options - [coResizable];
end;
Header.Options := [hoAutoResize, hoColumnResize, hoRestrictDrag, hoShowSortGlyphs, hoVisible, hoAutoSpring];