You've already forked lazarus-ccr
jfcllaz: Some clean-up in JvGradient.pas
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7293 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -107,19 +107,9 @@ type
|
|||||||
property OnStartDrag;
|
property OnStartDrag;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$IFDEF UNITVERSIONING}
|
|
||||||
const
|
|
||||||
UnitVersioning: TUnitVersionInfo = (
|
|
||||||
RCSfile: '$URL$';
|
|
||||||
Revision: '$Revision$';
|
|
||||||
Date: '$Date$';
|
|
||||||
LogPath: 'JVCL\run'
|
|
||||||
);
|
|
||||||
{$ENDIF UNITVERSIONING}
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
|
||||||
constructor TJvGradient.Create(AOwner: TComponent);
|
constructor TJvGradient.Create(AOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited Create(AOwner);
|
inherited Create(AOwner);
|
||||||
@ -419,12 +409,5 @@ begin
|
|||||||
inherited Left := Value;
|
inherited Left := Value;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$IFDEF UNITVERSIONING}
|
|
||||||
initialization
|
|
||||||
RegisterUnitVersion(HInstance, UnitVersioning);
|
|
||||||
|
|
||||||
finalization
|
|
||||||
UnregisterUnitVersion(HInstance);
|
|
||||||
{$ENDIF UNITVERSIONING}
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
Reference in New Issue
Block a user