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

implement LM_GETSELLEN en LM_GETSELSTART for win32 edit controls

Browse Source 
git-svn-id: trunk@5928 -
This commit is contained in:
micha 2004-09-06 15:08:32 +00:00
parent 37271113a2
commit 41e753368c
1 changed files with 29 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lcl/interfaces/win32/win32object.inc
View File

@ -844,19 +844,33 @@ activate_time : the time at which the activation event occurred.
End; End;
End; End;
LM_GETSELSTART: LM_GETSELSTART:
Begin begin
If (Sender as TControl).FCompStyle = csComboBox Then case (Sender as TControl).FCompStyle of
Begin csComboBox:
begin
Result := Low(Windows.SendMessage(Handle, CB_GETEDITSEL, Windows.WPARAM(nil), Windows.LPARAM(nil))); Result := Low(Windows.SendMessage(Handle, CB_GETEDITSEL, Windows.WPARAM(nil), Windows.LPARAM(nil)));
End; end;
End; csEdit:
begin
Windows.SendMessage(Handle, EM_GETSEL, Windows.WPARAM(@i), 0);
Result := i;
end;
end;
end;
LM_GETSELLEN: LM_GETSELLEN:
Begin begin
If (Sender as TControl).FCompStyle = csComboBox then case (Sender as TControl).FCompStyle of
Begin csComboBox:
begin
Result := Windows.SendMessage(Handle, CB_GETEDITSEL, Windows.WPARAM(nil), Windows.LPARAM(nil)); Result := Windows.SendMessage(Handle, CB_GETEDITSEL, Windows.WPARAM(nil), Windows.LPARAM(nil));
End; end;
End; csEdit:
begin
Windows.SendMessage(Handle, EM_GETSEL, Windows.WPARAM(@i), Windows.LPARAM(@num));
Result := num-i;
end;
end;
end;
LM_GETLIMITTEXT: LM_GETLIMITTEXT:
Begin Begin
If (Sender as TControl).FCompStyle = csComboBox Then If (Sender as TControl).FCompStyle = csComboBox Then
@ -3078,6 +3092,9 @@ End;
{ {
$Log$ $Log$
Revision 1.230 2004/09/06 15:08:32 micha
implement LM_GETSELLEN en LM_GETSELSTART for win32 edit controls
Revision 1.229 2004/08/27 08:55:23 micha Revision 1.229 2004/08/27 08:55:23 micha
implement tapplication.minimize for win32, stub for gtk implement tapplication.minimize for win32, stub for gtk