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

Gtk3: fixed result of TGtk3WidgetSet.ShowScrollBar

Browse Source
This commit is contained in:
zeljan1 2025-01-26 15:54:26 +01:00
parent 522fb6cbd8
commit fd1bd28085
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -4395,18 +4395,10 @@ begin
begin
AWidget.Visible := bShow;
end else
(*
if wtWindow in AWidget.WidgetType then
begin
DebugLn('WARNING: TGtk3WidgetSet.ShowScrollBar cannot get scrollbar from ',dbgsName(AWidget.LCLObject),
' bShow ',dbgs(bShow));
end else
*)
if wtScrollingWin in AWidget.WidgetType then
begin
// AScrolledWin :=
if TGtk3ScrollableWin(Handle).GetScrolledWindow = nil then
exit;
exit(False);
if wBar in [SB_BOTH, SB_HORZ] then
begin
if bShow then
@ -4434,7 +4426,7 @@ begin
TGtk3ScrollableWin(AWidget).VScrollBarPolicy := NewPolicy;
end;
end else
DebugLn('WARNING: TGtk3WidgetSet.ShowScrollBar cannot get scrollbar from ',dbgsName(AWidget.LCLObject));
Result := False;
end;
function TGtk3WidgetSet.ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean;