pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Avoid using Windows-specific units. Some cleanup.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6259 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-03-19 08:47:50 +00:00
parent bcc69621fb
commit 9d3f64653b
21 changed files with 44 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/jvcllaz/run/JvRuntimeDesign/jvdesignclip.pas
View File

@ -5,9 +5,6 @@ unit JvDesignClip;
interface
uses
{$IFDEF UNITVERSIONING}
JclUnitVersioning,
{$ENDIF UNITVERSIONING}
LCLProc, LCLType, LResources, LCLIntf, LMessages, Classes;
type
@ -35,15 +32,6 @@ procedure DesignSaveComponentToBinaryStream(InStream: TStream; InComponent: TCom
procedure DesignCopyStreamFromClipboard(InFmt: Cardinal; InS: TStream);
procedure DesignCopyStreamToClipboard(InFmt: Cardinal; InS: TStream);
{$IFDEF UNITVERSIONING}
const
UnitVersioning: TUnitVersionInfo = (
RCSfile: '$URL: https://jvcl.svn.sourceforge.net/svnroot/jvcl/tags/JVCL3_39/run/JvDesignClip.pas $';
Revision: '$Revision: 12515 $';
Date: '$Date: 2009-09-23 09:51:16 +0200 (mer., 23 sept. 2009) $';
LogPath: 'JVCL\run'
);
{$ENDIF UNITVERSIONING}
implementation
@ -214,14 +202,7 @@ end;
initialization
{ The following string should not be localized }
CF_COMPONENTSTREAM := RegisterClipboardFormat('Delphi Components');
{$IFDEF UNITVERSIONING}
RegisterUnitVersion(HInstance, UnitVersioning);
{$ENDIF UNITVERSIONING}
finalization
{$IFDEF UNITVERSIONING}
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
end.

26
components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas
View File

@ -5,12 +5,9 @@ unit JvDesignImp;
interface
uses
{$IFDEF UNITVERSIONING}
JclUnitVersioning,
{$ENDIF UNITVERSIONING}
LCLProc, LCLType, LResources, LCLIntf, LMessages, SysUtils, Classes, Controls, Graphics,
Forms, ExtCtrls, Contnrs, JvDesignUtils,
JvDesignSurface;
LCLProc, LCLType, LResources, LCLIntf, LMessages,
SysUtils, Classes, Controls, Graphics, Forms, ExtCtrls, Contnrs,
JvDesignUtils, JvDesignSurface;
const
cJvDesignDefaultHandleWidth = 8;
@ -178,7 +175,7 @@ type
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
end;
TJvDesignDesigner = class( TIDesigner)// TComponent, IDesignerHook)
TJvDesignDesigner = class(TIDesigner)// TComponent, IDesignerHook)
private
FMessenger: TJvDesignCustomMessenger;
public
@ -276,15 +273,6 @@ type
procedure DesignComponent(AComponent: TComponent; ADesigning: Boolean); override;
end;
{$IFDEF UNITVERSIONING}
const
UnitVersioning: TUnitVersionInfo = (
RCSfile: '$URL: https://jvcl.svn.sourceforge.net/svnroot/jvcl/trunk/jvcl/run/JvDesignImp.pas $';
Revision: '$Revision: 12931 $';
Date: '$Date: 2010-11-28 15:36:50 +0200 (Κυρ, 28 Νοε 2010) $';
LogPath: 'JVCL\run'
);
{$ENDIF UNITVERSIONING}
implementation
@ -1466,15 +1454,9 @@ begin
end;
initialization
{$IFDEF UNITVERSIONING}
RegisterUnitVersion(HInstance, UnitVersioning);
{$ENDIF UNITVERSIONING}
finalization
FreeShadedBits;
{$IFDEF UNITVERSIONING}
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
end.