paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 13:39:21 +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 begin
AWidget.Visible := bShow; AWidget.Visible := bShow;
end else 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 if wtScrollingWin in AWidget.WidgetType then
begin begin
// AScrolledWin :=
if TGtk3ScrollableWin(Handle).GetScrolledWindow = nil then if TGtk3ScrollableWin(Handle).GetScrolledWindow = nil then
exit; exit(False);
if wBar in [SB_BOTH, SB_HORZ] then if wBar in [SB_BOTH, SB_HORZ] then
begin begin
if bShow then if bShow then
@ -4434,7 +4426,7 @@ begin
TGtk3ScrollableWin(AWidget).VScrollBarPolicy := NewPolicy; TGtk3ScrollableWin(AWidget).VScrollBarPolicy := NewPolicy;
end; end;
end else end else
DebugLn('WARNING: TGtk3WidgetSet.ShowScrollBar cannot get scrollbar from ',dbgsName(AWidget.LCLObject)); Result := False;
end; end;
function TGtk3WidgetSet.ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean; function TGtk3WidgetSet.ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean;