procedure TATSynEdit.UpdateScrollbarVert;
var
si: TScrollInfo;
begin
FillChar(si{%H-}, SizeOf(si), 0);
si.cbSize:= SizeOf(si);
si.fMask:= SIF_ALL;// or SIF_DISABLENOSCROLL; //todo -- DisableNoScroll doesnt work(Win)
si.nMin:= FScrollVert.NMin;
si.nMax:= FScrollVert.NMax;
si.nPage:= FScrollVert.NPage;
si.nPos:= FScrollVert.NPos;
SetScrollInfo(Handle, SB_VERT, si, True);
end;
problem. If i uncomment 'or SIF_DISABLENOSCROLL' then I expect that scroll won't hide but will be shown on small text. it's ok - Linux, it's broken- Win32, on Win i see scroll hidden !
What to do on Win?