paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 22:20:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: LCLTaskDialog - fix for radio buttons offset with non win32 widgetsets. issue #35579

Browse Source 
git-svn-id: trunk@61221 -
This commit is contained in:
zeljko 2019-05-13 13:36:30 +00:00
parent 73d58ce791
commit fb94a220bd
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/lcltaskdialog.pas
View File

@ -785,6 +785,7 @@ end;
var
PngImg: TPortableNetworkGraphic;
IconHandle: HICON;
ARadioOffset: integer;
begin
if (byte(aCommonButtons)=0) and (Buttons='') then begin
aCommonButtons := [cbOk];
@ -986,6 +987,15 @@ begin
end;
// add radio buttons
if Radios<>'' then
begin
{$IFDEF MSWINDOWS}
if WidgetSet.GetLCLCapability(lcNativeTaskDialog) = LCL_CAPABILITY_NO then
ARadioOffset := 1
else
ARadioOffset := 0;
{$ELSE}
ARadioOffset := 1;
{$ENDIF}
with TStringList.Create do
try
Text := SysUtils.trim(Radios);
@ -994,13 +1004,13 @@ begin
Rad[i] := TRadioButton.Create(Dialog.Form);
with Rad[i] do begin
Parent := Par;
SetBounds(X+16,Y,aWidth-32-X,6-FontHeight);
SetBounds(X+16,Y,aWidth-32-X, (6-FontHeight) + ARadioOffset);
Caption := NoCR(Strings[i]);
if aHint<>'' then begin
ShowHint := true;
Hint := aHint; // note shown as Hint
end;
inc(Y,Height);
inc(Y,Height + ARadioOffset);
if (i=0) or (i+200=aRadioDef) then
Checked := true;
end;
@ -1009,6 +1019,7 @@ begin
finally
Free;
end;
end;
// add selection list or query editor
if Selection<>'' then begin
List := TStringList.Create;