paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:39:18 +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 Gtk3TranslateScrollStyle(const SS: TScrollStyle): TGtkScrollStyle;
function return(Horiz, Vert: TGtkPolicyType): TGtkScrollStyle; function return(Horiz, Vert: TGtkPolicyType): TGtkScrollStyle;
begin begin
with Result do begin with Result do
Horizontal := Horiz; begin
Vertical := Vert; Horizontal := Horiz;
end; Vertical := Vert;
end;
end; end;
begin begin
with Result do begin with Result do
begin
Horizontal := GTK_POLICY_AUTOMATIC; Horizontal := GTK_POLICY_AUTOMATIC;
Vertical := GTK_POLICY_AUTOMATIC; Vertical := GTK_POLICY_AUTOMATIC;
end; end;
case SS of case SS of
ssAutoBoth: return(GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); ssAutoBoth: Result := return(GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
ssAutoHorizontal: return(GTK_POLICY_AUTOMATIC, GTK_POLICY_NEVER); ssAutoHorizontal: Result := return(GTK_POLICY_AUTOMATIC, GTK_POLICY_NEVER);
ssAutoVertical: return(GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC); ssAutoVertical: Result := return(GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
ssBoth: return(GTK_POLICY_ALWAYS, GTK_POLICY_ALWAYS); ssBoth: Result := return(GTK_POLICY_ALWAYS, GTK_POLICY_ALWAYS);
ssHorizontal: return(GTK_POLICY_ALWAYS, GTK_POLICY_NEVER); ssHorizontal: Result := return(GTK_POLICY_ALWAYS, GTK_POLICY_NEVER);
ssNone: return(GTK_POLICY_NEVER, GTK_POLICY_NEVER); ssNone: Result := return(GTK_POLICY_NEVER, GTK_POLICY_NEVER);
ssVertical: return(GTK_POLICY_NEVER, GTK_POLICY_ALWAYS); ssVertical: Result := return(GTK_POLICY_NEVER, GTK_POLICY_ALWAYS);
end; end;
end; end;