paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: fixed result of Gtk3TranslateScrollStyle

Browse Source
This commit is contained in:
zeljan1 2025-01-21 15:48:45 +01:00
parent 4c92117a9a
commit 0fbd8536a5
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/interfaces/gtk3/gtk3procs.pas
View File

@ -630,24 +630,26 @@ end;
function Gtk3TranslateScrollStyle(const SS: TScrollStyle): TGtkScrollStyle;
function return(Horiz, Vert: TGtkPolicyType): TGtkScrollStyle;
begin
with Result do begin
Horizontal := Horiz;
Vertical := Vert;
end;
with Result do
begin
Horizontal := Horiz;
Vertical := Vert;
end;
end;
begin
with Result do begin
with Result do
begin
Horizontal := GTK_POLICY_AUTOMATIC;
Vertical := GTK_POLICY_AUTOMATIC;
Vertical := GTK_POLICY_AUTOMATIC;
end;
case SS of
ssAutoBoth: return(GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
ssAutoHorizontal: return(GTK_POLICY_AUTOMATIC, GTK_POLICY_NEVER);
ssAutoVertical: return(GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
ssBoth: return(GTK_POLICY_ALWAYS, GTK_POLICY_ALWAYS);
ssHorizontal: return(GTK_POLICY_ALWAYS, GTK_POLICY_NEVER);
ssNone: return(GTK_POLICY_NEVER, GTK_POLICY_NEVER);
ssVertical: return(GTK_POLICY_NEVER, GTK_POLICY_ALWAYS);
ssAutoBoth: Result := return(GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
ssAutoHorizontal: Result := return(GTK_POLICY_AUTOMATIC, GTK_POLICY_NEVER);
ssAutoVertical: Result := return(GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
ssBoth: Result := return(GTK_POLICY_ALWAYS, GTK_POLICY_ALWAYS);
ssHorizontal: Result := return(GTK_POLICY_ALWAYS, GTK_POLICY_NEVER);
ssNone: Result := return(GTK_POLICY_NEVER, GTK_POLICY_NEVER);
ssVertical: Result := return(GTK_POLICY_NEVER, GTK_POLICY_ALWAYS);
end;
end;