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

remove obsolete code which has not been enabled the last year

Browse Source 
git-svn-id: trunk@5843 -
This commit is contained in:
micha 2004-08-24 15:51:49 +00:00
parent 9e4015399f
commit 6bf7eb8fd7
1 changed files with 5 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -149,10 +149,6 @@ Var
LMMove: TLMMove; // used by WM_MOVE
LMNotify: TLMNotify; // used by WM_NOTIFY
DrawListItemStruct: TDrawListItemStruct; //used by WM_DRAWITEM
{$IFDEF VER1_1_MSG} // should be 'ifndef VER1_0' when we fix TMsgArray
List: TMsgArray;
C: Integer;
{$ENDIF}
procedure ShowHideTabPage(NotebookHandle: HWnd; Showing: boolean);
var
@ -1024,21 +1020,8 @@ Begin
if NotifyUserInput then
NotifyApplicationUserInput(PLMsg^.Msg);
{$IFDEF VER1_1_MSG}
List := TMsgArray(GetProp(Window, 'MsgList'));
If Pointer(List) <> Nil Then
For C := 0 To Length(List) Do
If List[C] = PLMsg^.Msg Then
Begin
DeliverMessage(OwnerObject, PLMsg^);
Exit;
End;
{$ELSE VER1_1_MSG}
If (OwnerObject <> Nil) And (PLMsg^.Msg <> LM_NULL) Then
Begin
DeliverMessage(OwnerObject, PLMsg^);
End;
{$ENDIF VER1_1_MSG}
if (OwnerObject <> nil) and (PLMsg^.Msg <> LM_NULL) then
DeliverMessage(OwnerObject, PLMsg^);
case Msg of
WM_ERASEBKGND:
@ -1324,6 +1307,9 @@ end;
{
$Log$
Revision 1.133 2004/08/24 15:51:49 micha
remove obsolete code which has not been enabled the last year
Revision 1.132 2004/08/16 18:15:28 vincents
The taskbar button is now hidden, if the main form is hidden