pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

mbColorLib: Scale height of RGB trackbars in OfficeMoreColorsDialog with current dpi.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5601 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-01-06 18:03:30 +00:00
parent 8c6e9a9f17
commit c18b3d9808
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/mbColorLib/OfficeMoreColorsDialog.pas
View File

@ -283,9 +283,14 @@ begin
end; end;
procedure TOfficeMoreColorsWin.FormCreate(Sender: TObject); procedure TOfficeMoreColorsWin.FormCreate(Sender: TObject);
const
DESIGN_DPI = 96;
begin begin
Width := ScaleX(Width, 96); Width := ScaleX(Width, DESIGN_DPI);
Height := ScaleY(Height, 96); Height := ScaleY(Height, DESIGN_DPI);
RTrackbar.Height := ScaleY(RTrackbar.Height, DESIGN_DPI);
BTrackbar.Height := RTrackbar.Height;
GTrackbar.Height := RTrackbar.Height;
FBrightnessMode := bmLuminance; FBrightnessMode := bmLuminance;