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

applied patch from Karl Brandt

Browse Source 
git-svn-id: trunk@1346 -
This commit is contained in:
mattias 2002-02-09 01:48:18 +00:00
parent d3e86ec1ca
commit a0e87c84ba
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32int.pp
View File

@ -109,7 +109,7 @@ Type
{ Initialize the API }
Procedure Init; Override;
{ Get the text from control Sender and store it in variable Data }
Function GetText(Sender: TControl; Var Data: String): Boolean;
Function GetText(Sender: TComponent; var Data: String): Boolean; override;
{ Set Label of control Sender to Data }
Procedure SetLabel(Sender: TObject; Data: Pointer);
{ Process Lazarus message LM_Message and return an integer result }
@ -192,6 +192,9 @@ End.
{ =============================================================================
$Log$
Revision 1.19 2002/11/15 23:43:54 mattias
applied patch from Karl Brandt
Revision 1.18 2002/10/27 19:59:03 lazarus
AJ: fixed compiling