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

Opkman: Less hint + Fix high dpi bug, when displaying rating stars. Issue #37886.

Browse Source 
git-svn-id: trunk@64727 -
This commit is contained in:
balazs 2021-03-02 21:22:24 +00:00
parent 817c9aa159
commit 8445edd27f
4 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/onlinepackagemanager/opkman_createrepositoryfrm.pas
View File

@ -770,7 +770,7 @@ begin
if Ms.Size > 0 then
begin
Ms.Position := 0;
SetLength(AJSON, MS.Size);
SetLength({%H-}AJSON, MS.Size);
MS.Read(Pointer(AJSON)^, Length(AJSON));
Result := True;
end;

2
components/onlinepackagemanager/opkman_mainfrm.pas
View File

@ -283,7 +283,7 @@ begin
try
MS.LoadFromFile(JSONFile);
MS.Position := 0;
SetLength(JSON, MS.Size);
SetLength({%H-}JSON, MS.Size);
MS.Read(Pointer(JSON)^, Length(JSON));
try
SuccessfullyLoaded := SerializablePackages.JSONToPackages(JSON);

2
components/onlinepackagemanager/opkman_updates.pas
View File

@ -320,7 +320,7 @@ procedure TUpdates.CheckForOpenSSL;
var
SysPath: WideString;
begin
SetLength(SysPath, Windows.MAX_PATH);
SetLength({%H-}SysPath, Windows.MAX_PATH);
SetLength(SysPath, Windows.GetSystemDirectoryW(PWideChar(SysPath), Windows.MAX_PATH));
Result := AppendPathDelim(String(SysPath));
end;

34
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -248,27 +248,27 @@ begin
end;
with Header.Columns.Add do
begin
Position := 4;
Width := FVST.Scale96ToForm(280);
{$IFDEF LCLCarbon}
Options := Options - [coResizable];
{$ENDIF}
Text := rsMainFrm_VSTHeaderColumn_Data;
Position := 4;
Width := FVST.Scale96ToForm(280);
{$IFDEF LCLCarbon}
Options := Options - [coResizable];
{$ENDIF}
Text := rsMainFrm_VSTHeaderColumn_Data;
end;
with Header.Columns.Add do
begin
Position := 5;
Alignment := taCenter;
Width := FVST.Scale96ToForm(88);
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Rating;
end;
Position := 5;
Alignment := taCenter;
Width := FVST.Scale96ToForm(81);
Options := Options - [coResizable];
Text := rsMainFrm_VSTHeaderColumn_Rating;
end;
with Header.Columns.Add do
begin
Position := 6;
Alignment := taCenter;
Width := FVST.Scale96ToForm(20);
Options := Options - [coResizable];
Position := 6;
Alignment := taCenter;
Width := FVST.Scale96ToForm(20);
Options := Options - [coResizable];
end;
Header.Options := [hoAutoResize, hoColumnResize, hoRestrictDrag, hoShowSortGlyphs, hoVisible, hoShowHint];
{$IFDEF LCLCarbon}
@ -313,7 +313,7 @@ begin
end;
FShowHintFrm := TShowHintFrm.Create(nil);
if AImgList <> nil then
FStarSize := FVST.Scale96ToForm(AImgList.Width)
FStarSize := Application.MainForm.Scale96ToForm(AImgList.Width)
else
FStarSize := 0;
end;