[Lazarus] Note about LCL GetDefaultGlyph
AlexeyT
aaa5500 at ya.ru
Tue May 1 16:48:34 CEST 2018
+
+function GetDefaultGlyph(ResourceName: string; ScalePercent: Integer =
100): TCustomBitmap;
+begin
+ Result := TPortableNetworkGraphic.Create;
+ if ScalePercent<>100 then
+ ResourceName := ResourceName+'_'+IntToStr(ScalePercent);
+ Result.LoadFromResourceName(hInstance, ResourceName);
+end;
+
So for scale 140% func gets suffix _140, but better use suffix _100 (for
all values 100..149).
140% can be set in Windows dialog, I think.
Same for scale 210%, func gets suffix _210, but should _200.
AT
--
Regards,
Alexey
More information about the Lazarus
mailing list