[JVCL-Checkins] dev/JVCL3/run JvDropDownForm.pas,1.23,1.24 - Delphi 5 support

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13936/run

Modified Files:
	JvDropDownForm.pas 
Log Message:
Delphi 5 support


Index: JvDropDownForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDropDownForm.pas,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** JvDropDownForm.pas	2 Jan 2005 14:02:52 -0000	1.23
--- JvDropDownForm.pas	2 Jan 2005 14:07:58 -0000	1.24
***************
*** 86,92 ****
--- 86,106 ----
    JclUnitVersioning,
    {$ENDIF UNITVERSIONING}
+   {$IFDEF COMPILER5}
+   MultiMon,
+   {$ENDIF COMPILER5}
    SysUtils,
    JvConsts, JvResources;
  
+ {$IFDEF COMPILER5}
+ function GetMonitorWorkareaRect(Monitor: TMonitor): TRect;
+ var
+   MonInfo: TMonitorInfo;
+ begin
+   MonInfo.cbSize := SizeOf(MonInfo);
+   GetMonitorInfo(Monitor.Handle, @MonInfo);
+   Result := MonInfo.rcWork;
+ end;
+ {$ENDIF COMPILER5}
+ 
  function IsChildWindow(const AChild, AParent: HWND): Boolean;
  var
***************
*** 166,170 ****
--- 180,188 ----
    if Screen.MonitorCount > 0 then
    begin
+     {$IFDEF COMPILER6_UP}
      LScreenRect := Monitor.WorkareaRect;
+     {$ELSE}
+     LScreenRect := GetMonitorWorkareaRect(Monitor);
+     {$ENDIF COMPILER6_UP}
      if (Left + Width > LScreenRect.Right) then
        Left := LScreenRect.Right - Width;