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

fix 798, spinedit control needs coordinates of buddy

Browse Source 
git-svn-id: trunk@7332 -
This commit is contained in:
micha 2005-07-08 17:58:02 +00:00
parent 8700bd0071
commit 5ad37d66be
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/interfaces/win32/win32winapi.inc
View File

@ -2024,8 +2024,12 @@ var
LeftTop:TPoint;
R: TRect;
ParentHandle: THandle;
WindowInfo: PWindowInfo;
begin
Result:=false;
WindowInfo := GetWindowInfo(Handle);
if (WindowInfo^.WinControl is TCustomSpinEdit) then
Handle := Windows.SendMessage(Handle, UDM_GETBUDDY, 0, 0);
if not Windows.GetWindowRect(Handle,@R) then exit;
LeftTop.X:=R.Left;
LeftTop.Y:=R.Top;
@ -2056,6 +2060,16 @@ var
WP: WINDOWPLACEMENT;
R: TRect;
Style, ExStyle: LongInt;
WindowInfo: PWindowInfo;
procedure AdjustForBuddySize;
var
BuddyWidth, BuddyHeight: integer;
begin
GetWindowSize(Windows.SendMessage(Handle, UDM_GETBUDDY, 0, 0), BuddyWidth, BuddyHeight);
Inc(Width, BuddyWidth);
end;
begin
WP.length := SizeOf(WP);
Result := Boolean(Windows.GetWindowPlacement(Handle, WP));
@ -2096,6 +2110,10 @@ begin
Dec(Height, Windows.GetSystemMetrics(SM_CYSMCAPTION))
else
Dec(Height, Windows.GetSystemMetrics(SM_CYCAPTION));
WindowInfo := GetWindowInfo(Handle);
if (WindowInfo^.WinControl is TCustomSpinEdit) then
AdjustForBuddySize;
end;
{------------------------------------------------------------------------------
@ -3141,6 +3159,9 @@ end;
{ =============================================================================
$Log$
Revision 1.147 2005/07/08 17:58:02 micha
fix 798, spinedit control needs coordinates of buddy
Revision 1.146 2005/06/22 17:37:06 mattias
implemented TMouse.SetCursorPos from Andrew