paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-16 14:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed GetText from Martin

Browse Source 
git-svn-id: trunk@4425 -
This commit is contained in:
mattias 2003-07-26 10:33:34 +00:00
parent e81b1fe34e
commit 2491d3f480
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -181,9 +181,9 @@ Begin
Case (Sender as TControl).FCompStyle Of Case (Sender as TControl).FCompStyle Of
csComboBox: csComboBox:
Begin Begin
CapLen := SendMessage((Sender As TWinControl).Handle, CB_GETLBTEXTLEN, CNSendMessage(LM_GETITEMINDEX, Self, Nil), 0); CapLen := SendMessage((Sender As TWinControl).Handle, CB_GETLBTEXTLEN, CNSendMessage(LM_GETITEMINDEX, Sender, Nil), 0);
Caption := StrAlloc(CapLen + 1); Caption := StrAlloc(CapLen + 1);
SendMessage((Sender As TWinControl).Handle, CB_GETLBTEXT, CNSendMessage(LM_GETITEMINDEX, Self, Nil), LPARAM(Caption)); SendMessage((Sender As TWinControl).Handle, CB_GETLBTEXT, CNSendMessage(LM_GETITEMINDEX, Sender, Nil), LPARAM(Caption));
Data := StrPas(Caption); Data := StrPas(Caption);
StrDispose(Caption); StrDispose(Caption);
End; End;
@ -797,14 +797,23 @@ activate_time : the time at which the activation event occurred.
LM_GETITEMINDEX : LM_GETITEMINDEX :
Begin Begin
Case (Sender as TControl).FCompStyle Of Case (Sender as TControl).FCompStyle Of
csComboBox:
Begin
Result:=SendMessage(Handle, CB_GETCURSEL, 0, 0);
if Result = LB_ERR Then
Begin
Assert(False, 'Trace:[TWin32Object.IntSendMessage3] Could not retrieve item index via LM_GETITEMINDEX; try selecting an item first');
Result := -1;
End;
End;
csListBox, csCListBox: csListBox, csCListBox:
Begin Begin
Result := SendMessage(Handle, LB_GETCURSEL, 0, 0); Result := SendMessage(Handle, LB_GETCURSEL, 0, 0);
If Result = LB_ERR Then If Result = LB_ERR Then
Begin Begin
Assert(False, 'Trace:[TWin32Object.IntSendMessage3] Could not retrieve item index via LM_GETITEMINDEX; try selecting an item first'); Assert(False, 'Trace:[TWin32Object.IntSendMessage3] Could not retrieve item index via LM_GETITEMINDEX; try selecting an item first');
Result := -1; Result := -1;
End; End;
End; End;
csNotebook: csNotebook:
Begin Begin
@ -2744,6 +2753,9 @@ End;
{ {
$Log$ $Log$
Revision 1.77 2003/07/26 10:33:34 mattias
fixed GetText from Martin
Revision 1.76 2003/07/26 10:30:44 mattias Revision 1.76 2003/07/26 10:30:44 mattias
rewritten WM_COMMAND by Micha rewritten WM_COMMAND by Micha