
Implemented some small amount of framework to create pascal classes from gobjects. Fixed some bugs where properties would not find setters and getters properly when actually available git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2493 8e941d3f-bd1b-0410-a28a-d453659cc2b4
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.
|
|
|