[lazarus] Win32 Installer/Lazarus

Stefan Hille stoppok at osibisa.ms.sub.org
Wed Jul 21 15:38:36 EDT 1999


Hi!

On Tue, Jul 20, 1999 at 06:52:26PM -0500, Cliff Baeseman wrote:
> I will do this while moving the stuff to .inc files. I am going to start
> with forms first. I plan on breaking out each class into its own .inc.
> Should the headers be seperated also?

I'm not sure about this because it suggests a separate header file and I'd 
really hate to see this C-ish approach.

Hmm, what about the following:

---- file: stdctrls.pp

Unit stdctrls;

INTERFACE

{$define INCLUDE_INTERFACE}

	{$i checkbox.inc}

{$undef  INCLUDE_INTERFACE} 

IMPLEMENTATION

{$define  INCLUDE_IMPLEMETATION} 

	{$i checkbox.inc}

{$undef  INCLUDE_IMPLEMETATION} 

end.

---- file: checkbox.inc

{$ifdef INCLUDE_INTERFACE}

	TCheckBox = class 
	public
	  constructor Create (AOwner : TObject);
	end;
{$else}
   {$ifdef INCLUDE_IMPLEMENTATION}

	constructor TCheckBox.Create (AOwner : TObject);
	begin
	end;

   {$endif}
{$endif}
----

bye,

  Stefan

-- 
---------------------------------------------------------
Stefan Hille          email: stoppok at osibisa.ms.sub.org 
48155 Muenster	      voice: 0251/664695 






More information about the Lazarus mailing list