From 67287e4bfc0e2124dc37910cfc3496faf6e6ce39 Mon Sep 17 00:00:00 2001 From: micha Date: Wed, 6 Oct 2004 12:50:38 +0000 Subject: [PATCH] remove obsolete code git-svn-id: trunk@6120 - --- lcl/interfaces/win32/win32object.inc | 24 ++++-------------------- 1 file changed, 4 insertions(+), 20 deletions(-) diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc index 08f88b45e3..7f5b0049c4 100644 --- a/lcl/interfaces/win32/win32object.inc +++ b/lcl/interfaces/win32/win32object.inc @@ -1175,26 +1175,7 @@ Begin Windows.SetProp(Buddy, 'DefWndProc', Windows.SetWindowLong(Buddy, GWL_WNDPROC, LongInt(SubClassWndProc))); Windows.SendMessage(Buddy, WM_SETFONT, WParam(FMessageFont), 0); 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; + end; case CompStyle of csCListBox: @@ -1329,6 +1310,9 @@ End; { $Log$ + Revision 1.289 2004/10/06 12:50:38 micha + remove obsolete code + Revision 1.288 2004/10/06 10:52:46 micha split up common dialogs code