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

remove obsolete and unused method twin32widgetset.settext

Browse Source 
git-svn-id: trunk@6201 -
This commit is contained in:
micha 2004-11-04 16:57:32 +00:00
parent 76b630a62d
commit 3239fd1cb9
2 changed files with 6 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -126,8 +126,6 @@ Type
Procedure AssignSelf(Window: HWnd; Data: Pointer); Procedure AssignSelf(Window: HWnd; Data: Pointer);
Procedure SetText(Window: HWND; Data: Pointer);
Procedure AllocAndCopy(const BitmapInfo: Windows.TBitmap; const SrcRect: TRect; var Data: PByte; var Size: Cardinal); Procedure AllocAndCopy(const BitmapInfo: Windows.TBitmap; const SrcRect: TRect; var Data: PByte; var Size: Cardinal);
procedure FillRawImageDescriptionColors(Desc: PRawImageDescription); procedure FillRawImageDescriptionColors(Desc: PRawImageDescription);
procedure FillRawImageDescription(const BitmapInfo: Windows.TBitmap; procedure FillRawImageDescription(const BitmapInfo: Windows.TBitmap;
@ -274,6 +272,9 @@ End.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.128 2004/11/04 16:57:31 micha
remove obsolete and unused method twin32widgetset.settext
Revision 1.127 2004/10/29 09:52:08 micha Revision 1.127 2004/10/29 09:52:08 micha
fix crash on showing tabpage fix crash on showing tabpage
fix painting of radiobutton in groupbox (non-tabpage-parent) fix painting of radiobutton in groupbox (non-tabpage-parent)

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

@ -596,31 +596,6 @@ Begin
LCLControlSizeNeedsUpdate(Sender,False); LCLControlSizeNeedsUpdate(Sender,False);
End; End;
{------------------------------------------------------------------------------
Method: TWin32WidgetSet.SetText
Params: Child - Window to add the text
Data - The text to add
Returns: Nothing
Sets the text of a control.
WARNING: This should possibly be merged with the SetLabel method!
It's only left in here for TStatusBar right now cause it
may be nice to use it with different panels.
------------------------------------------------------------------------------}
Procedure TWin32WidgetSet.SetText(Window: HWND; Data: Pointer);
Begin
Case PLMSetControlText(Data)^.FCompStyle Of
csStatusBar:
Begin
Windows.SendMessage(Window, SB_SETTEXT, Windows.WParam(PLMSetControlText(Data)^.Panel),
Windows.LParam(LPSTR(PLMSetControlText(Data)^.UserData)));
End
Else
AssertEx('STOPPOK: [TWin32WidgetSet.SetText] Possible superfluous use of SetText, use SetLabel instead!', False, 2);
End;
End;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: TWin32WidgetSet.CreateComponent Function: TWin32WidgetSet.CreateComponent
Params: Sender - object for which to create visual representation Params: Sender - object for which to create visual representation
@ -736,6 +711,9 @@ end;
{ {
$Log$ $Log$
Revision 1.299 2004/11/04 16:57:32 micha
remove obsolete and unused method twin32widgetset.settext
Revision 1.298 2004/11/04 15:12:35 micha Revision 1.298 2004/11/04 15:12:35 micha
remove usage of fcompstyle in twin32liststringlist by using descendent class for combobox specific things remove usage of fcompstyle in twin32liststringlist by using descendent class for combobox specific things