paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 10:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix TPairSplitter cursor change (#0013925)

Browse Source 
git-svn-id: trunk@20513 -
This commit is contained in:
paul 2009-06-08 09:05:39 +00:00
parent e88c1fadd4
commit d37ca80343
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/pairsplitter.pas
View File

@ -269,6 +269,7 @@ begin
if Cursor = DefaultCursors[FSplitterType] then if Cursor = DefaultCursors[FSplitterType] then
Cursor := DefaultCursors[AValue]; Cursor := DefaultCursors[AValue];
FSplitterType := AValue; FSplitterType := AValue;
// TODO: Remove RecreateWnd // TODO: Remove RecreateWnd
@ -336,11 +337,9 @@ end;
procedure TCustomPairSplitter.SetCursor(Value: TCursor); procedure TCustomPairSplitter.SetCursor(Value: TCursor);
begin begin
FLoadCursor := Value;
if not HandleAllocated then if not HandleAllocated then
begin
FLoadCursor := Value;
Exit; Exit;
end;
// if widgetset class dont want to set cursor (has no internal splitter) then // if widgetset class dont want to set cursor (has no internal splitter) then
// use default lcl handler // use default lcl handler
if not TWSCustomPairSplitterClass(WidgetSetClass).SetSplitterCursor(Self, Value) then if not TWSCustomPairSplitterClass(WidgetSetClass).SetSplitterCursor(Self, Value) then