paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 01:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

sparta: better handling of resize cursor at the bottom right to works on all platforms (on mac there is no cursor for crNWSE). Issue #32194.

Browse Source 
git-svn-id: trunk@55581 -
This commit is contained in:
hnb 2017-07-24 21:53:21 +00:00
parent 109661082d
commit 7a619b7316
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/sparta/mdi/source/sparta_basicresizeframe.pas
View File

@ -395,9 +395,10 @@ begin
FNodes.Add(Panel);
case Node of
{0,}4: Cursor := crSizeNWSE;
// on mac there is no cursor for crNWSE ( https://bugs.freepascal.org/view.php?id=32194#c101876 )
{0,}4: Cursor := {$IFDEF MACOS}crSizeAll{$ELSE}crSizeNWSE{$ENDIF};
{1,}5: Cursor := crSizeNS;
//{2,}6: Cursor := crSizeNESW;
//{2,}6: Cursor := $IFDEF MACOS}crSizeAll{$ELSE}crSizeNESW{$ENDIF};
3{,7}: Cursor := crSizeWE;
end;
if Node in [3,4,5] then