hp/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Missing units

Browse Source
This commit is contained in:
ocoursiere
2003-12-19 20:13:55 +00:00
parent 9f8230f7ed
commit 2ec1e8a788
4 changed files with 535 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
bepascal/source/bepascal/pas/src/be/app/cursor.pp Normal file
View File

@@ -0,0 +1,98 @@
{ BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2003 Olivier Coursiere
Eric Jourde
Oscar Lesta
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit cursor;
interface
uses
BeObj, Archivable, GraphicDefs, Message, OS, Rect, SupportDefs,dataio;
type
BCursor = class(BArchivable)
private
public
constructor Create(cursorData : pointer );
constructor Create(data : BMessage);
destructor Destroy; override;
function Instantiate(data : BMessage) : BArchivable;
function Archive(data : BMessage; deep : boolean) : Status_t;
function Perform(d : Perform_code; arg : Pointer) : Status_t;
end;
function BCursor_Create(AObject : TCPlusObject;cursorData : pointer) : TCPlusObject; cdecl; external BePascalLibName name 'BCursor_Create';
function BCursor_Create(AObject : TCPlusObject;data : BMessage) : TCPlusObject; cdecl; external BePascalLibName name 'BCursor_Create_1';
procedure BCursor_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BCursor_Free';
function BCursor_Instantiate(AObject : TCPlusObject; data : TCPlusObject) : BArchivable; cdecl; external BePascalLibName name 'BCursor_Instantiate';
function BCursor_Archive(AObject : TCPlusObject; data : TCPlusObject; deep : boolean) : Status_t; cdecl; external BePascalLibName name 'BCursor_Archive';
function BCursor_Perform(AObject : TCPlusObject; d : Perform_code; arg : Pointer) : Status_t; cdecl; external BePascalLibName name 'BCursor_Perform';
implementation
constructor BCursor.Create(cursorData : pointer);
begin
CreatePas;
CPlusObject := BCursor_Create(Self,cursorData);
end;
constructor BCursor.Create(data : BMessage);
begin
CreatePas;
CPlusObject :=BCursor_Create(Self,data);
end;
destructor BCursor.Destroy;
begin
BCursor_Free(CPlusObject);
inherited;
end;
function BCursor.Instantiate(data :BMessage) : BArchivable;
begin
Result := BCursor_Instantiate(CPlusObject, data.CPlusObject);
end;
function BCursor.Archive(data : BMessage; deep : boolean) : Status_t;
begin
Result := BCursor_Archive(CPlusObject, data.CPlusObject, deep);
end;
function BCursor.Perform(d : Perform_code; arg : Pointer) : Status_t;
begin
Result := BCursor_Perform(CPlusObject, d, arg);
end;
end.

22
bepascal/source/bepascal/pas/src/be/interface/bitmap.pp
View File

@@ -70,12 +70,12 @@ type
cs : color_space);
function GetOverlayRestrictions(restrict : overlay_restrictions)
: status_t;
procedure AddChild(view : BView);
function RemoveChild(view : BView) : Boolean;
// procedure AddChild(view : BView);
// function RemoveChild(view : BView) : Boolean;
function CountChildren : Integer;
function ChildAt(index : Integer) : BView;
function FindView(view_name : PChar) : BView;
function FindView(point : BPoint) : BView;
// function ChildAt(index : Integer) : BView;
// function FindView(view_name : PChar) : BView;
// function FindView(point : BPoint) : BView;
function Lock : Boolean;
procedure Unlock;
function IsLocked : Boolean;
@@ -161,7 +161,7 @@ function BBitmap_Bits(AObject : TCPlusObject) : Pointer; cdecl;
external BePascalLibName name 'BBitmap_Bits';
function BBitmap_BitsLength(AObject : TCPlusObject) : integer; cdecl;
external BePascalLibName name 'BBitmap_BitsLength_1';
external BePascalLibName name 'BBitmap_BitsLength';
function BBitmap_BytesPerRow(AObject : TCPlusObject) : integer; cdecl;
external BePascalLibName name 'BBitmap_BytesPerRow';
@@ -189,7 +189,7 @@ function BBitmap_RemoveChild(AObject : TCPlusObject; view : TCPlusObject)
function BBitmap_CountChildren(AObject : TCPlusObject) : Integer; cdecl;
external BePascalLibName name 'BBitmap_CountChildren';
function BBitmap_ChildAt(AObject : TCPlusObject; index : Integer) : BView;
(*function BBitmap_ChildAt(AObject : TCPlusObject; index : Integer) : BView;
cdecl; external BePascalLibName name 'BBitmap_ChildAt';
function BBitmap_FindView(AObject : TCPlusObject; view_name : PChar) : BView;
@@ -197,7 +197,7 @@ function BBitmap_FindView(AObject : TCPlusObject; view_name : PChar) : BView;
function BBitmap_FindView(AObject : TCPlusObject; point : {BPoint}TCPlusObject)
: BView; cdecl; external BePascalLibName name 'BBitmap_FindView';
*)
function BBitmap_Lock(AObject : TCPlusObject) : Boolean; cdecl;
external BePascalLibName name 'BBitmap_Lock';
@@ -361,7 +361,7 @@ begin
Result := BBitmap_GetOverlayRestrictions(CPlusObject, restrict);
end;
procedure BBitmap.AddChild(view : BView);
(*procedure BBitmap.AddChild(view : BView);
begin
BBitmap_AddChild(CPlusObject, view.CPlusObject);
end;
@@ -370,13 +370,14 @@ function BBitmap.RemoveChild(view : BView) : Boolean;
begin
Result := BBitmap_RemoveChild(CPlusObject, view.CPlusObject);
end;
*)
function BBitmap.CountChildren : Integer;
begin
Result := BBitmap_CountChildren(CPlusObject);
end;
function BBitmap.ChildAt(index : Integer) : BView;
(*function BBitmap.ChildAt(index : Integer) : BView;
begin
Result := BBitmap_ChildAt(CPlusObject, index);
end;
@@ -390,6 +391,7 @@ function BBitmap.FindView(point : BPoint) : BView;
begin
Result := BBitmap_FindView(CPlusObject, point.CPlusObject);
end;
*)
function BBitmap.Lock : Boolean;
begin

227
bepascal/source/bepascal/pas/src/be/interface/region.pp Normal file
View File

@@ -0,0 +1,227 @@
{ BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere
Eric Jourde
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit region;
interface
uses
beobj,rect;
type clipping_rect=record
left :integer;
top:integer;
right:integer;
bottom:integer;
end;
type
BRegion = class(TBeObject)
private
public
constructor Create;
constructor Create(region :BRegion );
constructor Create(rect : Brect);
destructor Destroy;override;
function Frame : BRect;
function FrameInt : clipping_rect;
function RectAt(index : integer) : BRect;
function RectAtInt(index : integer) :clipping_rect ;
function CountRects : integer;
procedure SetRect(newBounds : BRect);
procedure Setclipping_rect(newBounds : clipping_rect);
function Intersects(r : BRect) : boolean;
function Intersects(r : clipping_rect) : boolean;
function Contains(pt : BPoint) : boolean;
function Contains(x : integer; y : integer) : boolean;
procedure PrintToStream;
procedure OffsetBy(dh : integer; dv : integer);
procedure MakeEmpty;
procedure Include(r : BRect);
procedure Include(r : clipping_rect);
procedure Include( r: BRegion);
procedure Exclude(r : BRect);
procedure Exclude(r : clipping_rect);
procedure Exclude(r : BRegion);
procedure IntersectWith(r : BRegion);
end;
function BRegion_Create(AObject : TBeObject): TCPlusObject; cdecl; external BePascalLibName name 'BRegion_Create';
function BRegion_Create(AObject : TBeObject; region : BRegion): TCPlusObject; cdecl; external BePascalLibName name 'BRegion_Create';
function BRegion_Create(AObject : TBeObject; rect : Brect): TCPlusObject; cdecl; external BePascalLibName name 'BRegion_Create';
procedure BRegion_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BRegion_Free';
function BRegion_Frame(AObject : TCPlusObject) : BRect; cdecl; external BePascalLibName name 'BRegion_Frame';
function BRegion_FrameInt(AObject : TCPlusObject) :clipping_rect ; cdecl; external BePascalLibName name 'BRegion_FrameInt_1';
function BRegion_RectAt(AObject : TCPlusObject; index : integer) : BRect; cdecl; external BePascalLibName name 'BRegion_RectAt';
function BRegion_RectAtInt(AObject : TCPlusObject; index : integer) : clipping_rect; cdecl; external BePascalLibName name 'BRegion_RectAtInt_1';
function BRegion_CountRects(AObject : TCPlusObject) : integer; cdecl; external BePascalLibName name 'BRegion_CountRects';
procedure BRegion_Set(AObject : TCPlusObject; newBounds : TCPlusObject); cdecl; external BePascalLibName name 'BRegion_Set';
procedure BRegion_Set(AObject : TCPlusObject; newBounds : clipping_rect); cdecl; external BePascalLibName name 'BRegion_Set';
function BRegion_Intersects(AObject : TCPlusObject; r : TCPlusObject) : boolean; cdecl; external BePascalLibName name 'BRegion_Intersects';
function BRegion_Intersects(AObject : TCPlusObject; r : clipping_rect) : boolean; cdecl; external BePascalLibName name 'BRegion_Intersects';
function BRegion_Contains(AObject : TCPlusObject; pt : TCPlusObject) : boolean; cdecl; external BePascalLibName name 'BRegion_Contains';
function BRegion_Contains(AObject : TCPlusObject; x : integer; y : integer) : boolean; cdecl; external BePascalLibName name 'BRegion_Contains';
procedure BRegion_PrintToStream(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BRegion_PrintToStream';
procedure BRegion_OffsetBy(AObject : TCPlusObject; dh : integer; dv : integer); cdecl; external BePascalLibName name 'BRegion_OffsetBy';
procedure BRegion_MakeEmpty(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BRegion_MakeEmpty';
procedure BRegion_Include(AObject : TCPlusObject; r : TCPlusObject); cdecl; external BePascalLibName name 'BRegion_Include';
procedure BRegion_Include(AObject : TCPlusObject; r : clipping_rect); cdecl; external BePascalLibName name 'BRegion_Include';
procedure BRegion_Include(AObject : TCPlusObject; r : BRegion); cdecl; external BePascalLibName name 'BRegion_Include';
procedure BRegion_Exclude(AObject : TCPlusObject; r : TCPlusObject); cdecl; external BePascalLibName name 'BRegion_Exclude';
procedure BRegion_Exclude(AObject : TCPlusObject; r :clipping_rect ); cdecl; external BePascalLibName name 'BRegion_Exclude';
procedure BRegion_Exclude(AObject : TCPlusObject; r: BRegion); cdecl; external BePascalLibName name 'BRegion_Exclude';
procedure BRegion_IntersectWith(AObject : TCPlusObject; r: BRegion); cdecl; external BePascalLibName name 'BRegion_IntersectWith';
implementation
constructor BRegion.Create;
begin
CreatePas;
CPlusObject := BRegion_Create(Self);
end;
constructor BRegion.Create(region : BRegion);
begin
CreatePas;
CPlusObject := BRegion_Create(Self, region);
end;
constructor BRegion.Create(rect : BRect);
begin
CreatePas;
CPlusObject := BRegion_Create(Self, rect);
end;
destructor BRegion.Destroy;
begin
BRegion_Free(CPlusObject);
inherited;
end;
function BRegion.Frame : BRect;
begin
Result := BRegion_Frame(CPlusObject);
end;
function BRegion.FrameInt :clipping_rect ;
begin
Result := BRegion_FrameInt(CPlusObject);
end;
function BRegion.RectAt(index : integer) : BRect;
begin
Result := BRegion_RectAt(CPlusObject, index);
end;
function BRegion.RectAtInt(index : integer) :clipping_rect ;
begin
Result := BRegion_RectAtInt(CPlusObject, index);
end;
function BRegion.CountRects : integer;
begin
Result := BRegion_CountRects(CPlusObject);
end;
procedure BRegion.Setrect(newBounds : BRect);
begin
BRegion_Set(CPlusObject, newBounds.CPlusObject);
end;
procedure BRegion.Setclipping_rect(newBounds : clipping_rect);
begin
BRegion_Set(CPlusObject, newBounds);
end;
function BRegion.Intersects(r : BRect) : boolean;
begin
Result := BRegion_Intersects(CPlusObject, r.CPlusObject);
end;
function BRegion.Intersects(r : clipping_rect) : boolean;
begin
Result := BRegion_Intersects(CPlusObject, r);
end;
function BRegion.Contains(pt : BPoint) : boolean;
begin
Result := BRegion_Contains(CPlusObject, pt.CPlusObject);
end;
function BRegion.Contains(x : integer; y : integer) : boolean;
begin
Result := BRegion_Contains(CPlusObject, x, y);
end;
procedure BRegion.PrintToStream;
begin
BRegion_PrintToStream(CPlusObject);
end;
procedure BRegion.OffsetBy(dh : integer; dv : integer);
begin
BRegion_OffsetBy(CPlusObject, dh, dv);
end;
procedure BRegion.MakeEmpty;
begin
BRegion_MakeEmpty(CPlusObject);
end;
procedure BRegion.Include(r : BRect);
begin
BRegion_Include(CPlusObject, r.CPlusObject);
end;
procedure BRegion.Include(r : clipping_rect);
begin
BRegion_Include(CPlusObject, r);
end;
procedure BRegion.Include(r : BRegion);
begin
BRegion_Include(CPlusObject, r);
end;
procedure BRegion.Exclude(r : BRect);
begin
BRegion_Exclude(CPlusObject, r.CPlusObject);
end;
procedure BRegion.Exclude(r : clipping_rect);
begin
BRegion_Exclude(CPlusObject, r);
end;
procedure BRegion.Exclude( r: BRegion);
begin
BRegion_Exclude(CPlusObject, r);
end;
procedure BRegion.IntersectWith( r: BRegion);
begin
BRegion_IntersectWith(CPlusObject, r);
end;
end.

198
bepascal/source/bepascal/pas/src/be/interface/shape.pp Normal file
View File

@@ -0,0 +1,198 @@
{ BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere
Eric Jourde
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit shape;
interface
uses
beobj, message,interfacedefs,SupportDefs,archivable,rect;
type
BShape =Class;
BShapeIterator = class(TBeObject)
private
public
constructor Create; override;
destructor Destroy;override;
function IterateMoveTo(point : BPoint) : Status_t;
function IterateLineTo(lineCount : integer; linePts : BPoint) : Status_t;
function IterateBezierTo(bezierCount : integer; bezierPts : BPoint) : Status_t;
function IterateClose : Status_t;
function Iterate(shape : BShape) : Status_t;
end;
type
BShape = class(BArchivable)
private
public
constructor Create;override;
constructor Create(copyFrom : BShape);
constructor Create(data : BMessage);
destructor Destroy;override;
function Archive(into : BMessage; deep : boolean) : Status_t;
function Instantiate(data : BMessage) : BArchivable;
procedure Clear;
function Bounds : BRect;
function AddShape(other : BShape) : Status_t;
function MoveTo(point : BPoint) : Status_t;
function LineTo(linePoint : BPoint) : Status_t;
function BezierTo(controlPoints : BPoint) : Status_t;
function Close : Status_t;
// function Perform(d : Perform_code; arg : Pointer) : Status_t;
end;
function BShapeIterator_Create(AObject : TBeObject):TCPlusObject; cdecl; external BePascalLibName name 'BShapeIterator_Create';
procedure BShapeIterator_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BShapeIterator_Free';
function BShapeIterator_IterateMoveTo(AObject : TCPlusObject; point : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BShapeIterator_IterateMoveTo';
function BShapeIterator_IterateLineTo(AObject : TCPlusObject; lineCount : integer; linePts : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BShapeIterator_IterateLineTo';
function BShapeIterator_IterateBezierTo(AObject : TCPlusObject; bezierCount : integer; bezierPts : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BShapeIterator_IterateBezierTo';
function BShapeIterator_IterateClose(AObject : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BShapeIterator_IterateClose';
function BShapeIterator_Iterate(AObject : TCPlusObject; shape : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BShapeIterator_Iterate';
function BShape_Create(AObject : TBeObject):TCPlusObject; cdecl; external BePascalLibName name 'BShape_Create';
function BShape_Create(AObject : TBeObject; copyFrom : BShape):TCPlusObject; cdecl; external BePascalLibName name 'BShape_Create_1';
function BShape_Create(AObject : TBeObject; data : TCPlusObject):TCPlusObject; cdecl; external BePascalLibName name 'BShape_Create_2';
procedure BShape_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BShape_Free';
function BShape_Archive(AObject : TCPlusObject; into : TCPlusObject; deep : boolean) : Status_t; cdecl; external BePascalLibName name 'BShape_Archive';
function BShape_Instantiate(AObject : TCPlusObject; data : TCPlusObject) : BArchivable; cdecl; external BePascalLibName name 'BShape_Instantiate';
procedure BShape_Clear(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BShape_Clear';
function BShape_Bounds(AObject : TCPlusObject) : BRect; cdecl; external BePascalLibName name 'BShape_Bounds';
function BShape_AddShape(AObject : TCPlusObject; other : BShape) : Status_t; cdecl; external BePascalLibName name 'BShape_AddShape';
function BShape_MoveTo(AObject : TCPlusObject; point : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BShape_MoveTo';
function BShape_LineTo(AObject : TCPlusObject; linePoint : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BShape_LineTo';
function BShape_BezierTo(AObject : TCPlusObject; controlPoints : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BShape_BezierTo';
function BShape_Close(AObject : TCPlusObject) : Status_t; cdecl; external BePascalLibName name 'BShape_Close';
//function BShape_Perform(AObject : TCPlusObject; d : Perform_code; arg : Pointer) : Status_t; cdecl; external BePascalLibName name 'BShape_Perform';
implementation
constructor BShapeIterator.Create;
begin
inherited Create;
CPlusObject := BShapeIterator_Create(Self);
end;
destructor BShapeIterator.Destroy;
begin
BShapeIterator_Free(CPlusObject);
inherited Destroy;
end;
function BShapeIterator.IterateMoveTo(point : BPoint) : Status_t;
begin
Result := BShapeIterator_IterateMoveTo(CPlusObject, point.CPlusObject);
end;
function BShapeIterator.IterateLineTo(lineCount : integer; linePts : BPoint) : Status_t;
begin
Result := BShapeIterator_IterateLineTo(CPlusObject, lineCount, linePts.CPlusObject);
end;
function BShapeIterator.IterateBezierTo(bezierCount : integer; bezierPts : BPoint) : Status_t;
begin
Result := BShapeIterator_IterateBezierTo(CPlusObject, bezierCount, bezierPts.CPlusObject);
end;
function BShapeIterator.IterateClose : Status_t;
begin
Result := BShapeIterator_IterateClose(CPlusObject);
end;
function BShapeIterator.Iterate(shape : BShape) : Status_t;
begin
Result := BShapeIterator_Iterate(CPlusObject, shape.CPlusObject);
end;
constructor BShape.Create;
begin
inherited Create;
CPlusObject := BShape_Create(Self);
end;
constructor BShape.Create(copyFrom : BShape);
begin
inherited Create;
CPlusObject := BShape_Create(Self, copyFrom);
end;
constructor BShape.Create(data : BMessage);
begin
inherited Create;
CPlusObject := BShape_Create(Self, data.CPlusObject);
end;
destructor BShape.Destroy;
begin
BShape_Free(CPlusObject);
inherited Destroy;
end;
function BShape.Archive(into : BMessage; deep : boolean) : Status_t;
begin
Result := BShape_Archive(CPlusObject, into.CPlusObject, deep);
end;
function BShape.Instantiate(data : BMessage) : BArchivable;
begin
Result := BShape_Instantiate(CPlusObject, data.CPlusObject);
end;
procedure BShape.Clear;
begin
BShape_Clear(CPlusObject);
end;
function BShape.Bounds : BRect;
begin
Result := BShape_Bounds(CPlusObject);
end;
function BShape.AddShape(other : BShape) : Status_t;
begin
Result := BShape_AddShape(CPlusObject, other);
end;
function BShape.MoveTo(point : BPoint) : Status_t;
begin
Result := BShape_MoveTo(CPlusObject, point.CPlusObject);
end;
function BShape.LineTo(linePoint : BPoint) : Status_t;
begin
Result := BShape_LineTo(CPlusObject, linePoint.CPlusObject);
end;
function BShape.BezierTo(controlPoints : BPoint) : Status_t;
begin
Result := BShape_BezierTo(CPlusObject, controlPoints.CPlusObject);
end;
function BShape.Close : Status_t;
begin
Result := BShape_Close(CPlusObject);
end;
{function BShape.Perform(d : Perform_code; arg : Pointer) : Status_t;
begin
Result := BShape_Perform(CPlusObject, d, arg);
end;
}
end.