Преглед на файлове

Removed obsolete files.

Martijn Laan преди 6 години
родител
ревизия
d0bae1300c
променени са 2 файла, в които са добавени 0 реда и са изтрити 116 реда
  1. 0 48
      VCL-Controls-D2D5-patch.txt
  2. 0 68
      VCL-Controls-D6-patch.txt

+ 0 - 48
VCL-Controls-D2D5-patch.txt

@@ -1,48 +0,0 @@
-This patch to Delphi 2.01-5.01's Controls.pas fixes an AV issue with
-combo boxes and Outlook Express; see:
-
-http://groups.google.com/group/borland.public.delphi.vcl.components.using/browse_thread/thread/e012cea3ea1d258b
-
-Delphi 6 has the same problem, but needs a slightly different patch --
-see VCL-Controls-D6-patch.txt.
-Delphi 7 and later already incorporate an equivalent fix.
-
-After applying the changes, recompile Controls.pas from the command
-line as follows:
-
-> c:\delphi\bin\dcc32 -$D- -$L- Controls.pas
-> move Controls.dcu c:\delphi\lib
-
-
---- Controls.pas.orig	Sun Jun 09 03:01:00 1996
-+++ Controls.pas	Tue Mar 19 20:45:04 2002
-@@ -967,11 +967,15 @@
- { Find a TWinControl given a window handle }
- 
- function FindControl(Handle: HWnd): TWinControl;
-+var
-+  PID: DWORD;
- begin
-   Result := nil;
-   if Handle <> 0 then
-   begin
--    Result := Pointer(GetProp(Handle, MakeIntAtom(ControlAtom)));
-+    if (GetWindowThreadProcessId(Handle, @PID) <> 0) and
-+       (PID = GetCurrentProcessId) then
-+      Result := Pointer(GetProp(Handle, MakeIntAtom(ControlAtom)));
-   end;
- end;
- 
-@@ -1271,8 +1275,12 @@
- end;
- 
- function IsDelphiHandle(Handle: HWND): Boolean;
-+var
-+  PID: DWORD;
- begin
-   Result := (Handle <> 0) and
-+    (GetWindowThreadProcessId(Handle, @PID) <> 0) and
-+    (PID = GetCurrentProcessId) and
-     (GetProp(Handle, MakeIntAtom(WindowAtom)) <> 0);
- end;
- 

+ 0 - 68
VCL-Controls-D6-patch.txt

@@ -1,68 +0,0 @@
-This patch to Delphi 6.02's Controls.pas fixes an AV issue with
-combo boxes and Outlook Express; see:
-
-http://groups.google.com/group/borland.public.delphi.vcl.components.using/browse_thread/thread/e012cea3ea1d258b
-
-Delphi 2-5 have the same problem, but need a slightly different patch --
-see VCL-Controls-D2D5-patch.txt.
-Delphi 7 and later already incorporate an equivalent fix.
-
-After applying the changes, recompile Controls.pas from the command
-line as follows:
-
-> c:\delphi\bin\dcc32 -$D- -$L- Controls.pas
-> move Controls.dcu c:\delphi\lib
-
-
---- Controls.pas.orig	Fri Feb 15 14:02:00 2002
-+++ Controls.pas	Tue Mar 19 21:04:58 2002
-@@ -1743,14 +1743,20 @@
- { The global atom table is trashed when the user logs off.  The extra test
-   below protects UI interactive services after the user logs off.  }
- function FindControl(Handle: HWnd): TWinControl;
-+var
-+  PID: DWORD;
- begin
-   Result := nil;
-   if (Handle <> 0) then
-   begin
--    if GlobalFindAtom(PChar(ControlAtomString)) = ControlAtom then
--      Result := Pointer(GetProp(Handle, MakeIntAtom(ControlAtom)))
--    else
--      Result := ObjectFromHWnd(Handle);
-+    if (GetWindowThreadProcessId(Handle, @PID) <> 0) and
-+       (PID = GetCurrentProcessId) then
-+    begin
-+      if GlobalFindAtom(PChar(ControlAtomString)) = ControlAtom then
-+        Result := Pointer(GetProp(Handle, MakeIntAtom(ControlAtom)))
-+      else
-+        Result := ObjectFromHWnd(Handle);
-+    end;
-   end;
- end;
- 
-@@ -2448,14 +2454,20 @@
- // See comments for FindControl about global atom stability in service apps.
- 
- function IsDelphiHandle(Handle: HWND): Boolean;
-+var
-+  PID: DWORD;
- begin
-   Result := False;
-   if Handle <> 0 then
-   begin
--    if GlobalFindAtom(PChar(WindowAtomString)) = WindowAtom then
--      Result := GetProp(Handle, MakeIntAtom(WindowAtom)) <> 0
--    else
--      Result := ObjectFromHWnd(Handle) <> nil;
-+    if (GetWindowThreadProcessId(Handle, @PID) <> 0) and
-+       (PID = GetCurrentProcessId) then
-+    begin
-+      if GlobalFindAtom(PChar(WindowAtomString)) = WindowAtom then
-+        Result := GetProp(Handle, MakeIntAtom(WindowAtom)) <> 0
-+      else
-+        Result := ObjectFromHWnd(Handle) <> nil;
-+    end;
-   end;
- end;
-