mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-01 10:03:41 +02:00
43 lines
879 B
ObjectPascal
43 lines
879 B
ObjectPascal
{
|
|
The purpose of this unit is to create native pascal classes that wrap gobjects in a comfortable and usable way.
|
|
}
|
|
|
|
|
|
unit girPascalClassWriter;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, girObjects, girpascalwriter, girpascalwritertypes;
|
|
|
|
type
|
|
|
|
{ TGObjectClass }
|
|
|
|
TGObjectClass = class
|
|
private
|
|
FParentGObjectClass: TGObjectClass;
|
|
FgirObject: TgirClass;
|
|
FPascalUnit: TPascalUnit;
|
|
public
|
|
constructor Create(AParentGObjectClass: TGObjectClass; AClass: TgirClass; APascalUnit: TPascalUnit);
|
|
property ParentGObjectClass: TGObjectClass read FParentGObjectClass;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{ TGObjectClass }
|
|
|
|
constructor TGObjectClass.Create(AParentGObjectClass: TGObjectClass; AClass: TgirClass; APascalUnit: TPascalUnit);
|
|
begin
|
|
FParentGObjectClass := AParentGObjectClass;
|
|
FgirObject := AClass;
|
|
FPascalUnit:=APascalUnit;
|
|
end;
|
|
|
|
end.
|
|
|