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

remove obsolete code

Browse Source 
git-svn-id: trunk@6120 -
This commit is contained in:
micha 2004-10-06 12:50:38 +00:00
parent 5f00dd5198
commit 67287e4bfc
1 changed files with 4 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1175,26 +1175,7 @@ Begin
Windows.SetProp(Buddy, 'DefWndProc', Windows.SetWindowLong(Buddy, GWL_WNDPROC, LongInt(SubClassWndProc))); Windows.SetProp(Buddy, 'DefWndProc', Windows.SetWindowLong(Buddy, GWL_WNDPROC, LongInt(SubClassWndProc)));
Windows.SendMessage(Buddy, WM_SETFONT, WParam(FMessageFont), 0); Windows.SendMessage(Buddy, WM_SETFONT, WParam(FMessageFont), 0);
end; end;
End end;
Else
Begin
If (Sender Is TControl) Then
Begin
Assert(False, 'Trace:CreateComponent - Assigning window to TControl');
//(Sender As TControl).Handle := Window;
End
Else
If (Sender Is TControlCanvas) Then
Begin
Assert(False, 'Trace:CreateComponent - Assigning window to TControlCanvas');
TControlCanvas(Sender).Handle := Window;
End
Else If (Sender Is TFont) Then
Begin
Assert(False, 'Trace:CreateComponent - Assigning P to TFont');
TFont(Sender).Handle := Window;
End;
End;
case CompStyle of case CompStyle of
csCListBox: csCListBox:
@ -1329,6 +1310,9 @@ End;
{ {
$Log$ $Log$
Revision 1.289 2004/10/06 12:50:38 micha
remove obsolete code
Revision 1.288 2004/10/06 10:52:46 micha Revision 1.288 2004/10/06 10:52:46 micha
split up common dialogs code split up common dialogs code