paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 06:31:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

send LM_CHANGE message for trackbar

Browse Source 
git-svn-id: trunk@6493 -
This commit is contained in:
vincents 2005-01-07 10:51:07 +00:00
parent 0ce582b720
commit 6815fe14f7
2 changed files with 28 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
lcl/interfaces/win32/win32callback.inc
View File

@ -386,6 +386,28 @@ Var
DisposeWindowInfo(Buddy);
end;
procedure HandleScrollMessage(LMsg: integer);
var
TargetWindow: HWND;
begin
TargetWindow := HWND(LParam);
if TargetWindow<>0 then
lWinControl := GetWindowInfo(TargetWindow)^.WinControl;
if lWinControl is TCustomTrackBar then begin
LMessage.Msg := LM_CHANGED;
end
else begin
PLMsg:=@LMScroll;
With LMScroll Do
Begin
Msg := LMsg;
ScrollCode := SmallInt(Lo(WParam));
Pos := SmallInt(Hi(WParam));
ScrollBar := TargetWindow;
End;
end;
end;
Begin
Assert(False, 'Trace:WindowProc - Start');
@ -666,21 +688,7 @@ Begin
then DrawBitBtnImage(TCustomBitBtn(lWinControl), PChar(TCustomBitBtn(lWinControl).Caption));
End;
WM_HSCROLL:
Begin
PLMsg:=@LMScroll;
With LMScroll Do
Begin
Msg := LM_HSCROLL;
ScrollCode := SmallInt(Lo(WParam));
Pos := SmallInt(Hi(WParam));
ScrollBar := HWND(LParam);
if ScrollBar <> 0 then
begin
// send message to actual scrollbar window
lWinControl := GetWindowInfo(ScrollBar)^.WinControl;
end;
End;
End;
HandleScrollMessage(LM_HSCROLL);
WM_ERASEBKGND:
Begin
eraseBkgndCommand := TEraseBkgndCommand(EraseBkgndStack and EraseBkgndStackMask);
@ -1068,21 +1076,7 @@ Begin
LMessage.LParam := LParam;
End;
WM_VSCROLL:
Begin
PLMsg:=@LMScroll;
With LMScroll Do
Begin
Msg := LM_VSCROLL;
ScrollCode := SmallInt(Lo(WParam));
Pos := SmallInt(Hi(WParam));
ScrollBar := HWND(LParam);
if ScrollBar <> 0 then
begin
// send message to actual scrollbar window
lWinControl := GetWindowInfo(ScrollBar)^.WinControl;
end;
End;
End;
HandleScrollMessage(LM_VSCROLL);
WM_WINDOWPOSCHANGED:
Begin
With TLMWindowPosMsg(LMessage) Do
@ -1499,6 +1493,9 @@ end;
{
$Log$
Revision 1.181 2005/01/07 10:51:07 vincents
send LM_CHANGE message for trackbar
Revision 1.180 2005/01/03 15:50:35 micha
WM_SIZE can also mean windowstate change, always send message

10
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -848,16 +848,8 @@ begin
end;
function TWin32WSTrackBar.GetPosition(const ATrackBar: TCustomTrackBar): integer;
var
Handle: HWND;
begin
if ATrackBar.HandleAllocated then
begin
Handle := ATrackBar.Handle;
Result := SendMessage(Handle, TBM_GETRANGEMAX, 0, 0) -
SendMessage(Handle, TBM_GETRANGEMIN, 0, 0);
end else
Result := 0;
Result := SendMessage(ATrackBar.Handle, TBM_GETPOS, 0, 0)
end;
procedure TWin32WSTrackBar.SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer);