BBox class support
This commit is contained in:
oscarl-2
676
bepascal/bepascal/be/interface/Box.cpp
Normal file
676
bepascal/bepascal/be/interface/Box.cpp
Normal file
@@ -0,0 +1,676 @@
|
||||
/* 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
|
||||
*/
|
||||
|
||||
#ifndef _BOX_CPP_
|
||||
#define _BOX_CPP_
|
||||
|
||||
#include "Box.h"
|
||||
|
||||
#include "view.h"
|
||||
#include <beobj.h>
|
||||
|
||||
|
||||
class BPBox : public BBox, virtual public BPView
|
||||
{
|
||||
public:
|
||||
BPBox(TPasObject PasObject,
|
||||
BRect bounds,
|
||||
const char *name = NULL,
|
||||
uint32 resizeFlags = B_FOLLOW_LEFT | B_FOLLOW_TOP,
|
||||
uint32 flags = B_WILL_DRAW | B_FRAME_EVENTS | B_NAVIGABLE_JUMP,
|
||||
border_style border = B_FANCY_BORDER);
|
||||
|
||||
// virtual ~BBox(void);
|
||||
|
||||
/* Archiving */
|
||||
BPBox(TPasObject PasObject, BMessage *data);
|
||||
|
||||
static BArchivable *Instantiate(BMessage *data);
|
||||
// virtual status_t Archive(BMessage *data, bool deep = true) const;
|
||||
|
||||
/* BBox guts */
|
||||
virtual void SetBorder(border_style style);
|
||||
border_style Border() const;
|
||||
|
||||
void SetLabel(const char *label);
|
||||
status_t SetLabel(BView *view_label);
|
||||
|
||||
const char *Label() const;
|
||||
BView *LabelView() const;
|
||||
|
||||
virtual void Draw(BRect bounds);
|
||||
virtual void AttachedToWindow();
|
||||
virtual void DetachedFromWindow();
|
||||
virtual void AllAttached();
|
||||
virtual void AllDetached();
|
||||
virtual void FrameResized(float new_width, float new_height);
|
||||
virtual void MessageReceived(BMessage *msg);
|
||||
virtual void MouseDown(BPoint pt);
|
||||
virtual void MouseUp(BPoint pt);
|
||||
virtual void WindowActivated(bool state);
|
||||
virtual void MouseMoved(BPoint pt, uint32 code, const BMessage *msg);
|
||||
virtual void FrameMoved(BPoint new_position);
|
||||
/*
|
||||
virtual BHandler *ResolveSpecifier(BMessage *msg,
|
||||
int32 index,
|
||||
BMessage *specifier,
|
||||
int32 form,
|
||||
const char *property);
|
||||
*/
|
||||
virtual void ResizeToPreferred();
|
||||
virtual void GetPreferredSize(float *width, float *height);
|
||||
// virtual void MakeFocus(bool state = true);
|
||||
// virtual status_t GetSupportedSuites(BMessage *data);
|
||||
|
||||
/*----- Private or reserved -----------------------------------------*/
|
||||
|
||||
// virtual status_t Perform(perform_code d, void *arg);
|
||||
|
||||
private:
|
||||
/*
|
||||
virtual void _ReservedBox1();
|
||||
virtual void _ReservedBox2();
|
||||
|
||||
BBox &operator=(const BBox &);
|
||||
|
||||
void InitObject(BMessage *data = NULL);
|
||||
void DrawPlain();
|
||||
void DrawFancy();
|
||||
void ClearAnyLabel();
|
||||
|
||||
char *fLabel;
|
||||
BRect fBounds;
|
||||
border_style fStyle;
|
||||
BView *fLabelView;
|
||||
uint32 _reserved[1];
|
||||
*/
|
||||
};
|
||||
|
||||
BPBox::BPBox(TPasObject PasObject,
|
||||
BRect bounds,
|
||||
const char *name = NULL,
|
||||
uint32 resizeFlags = B_FOLLOW_LEFT | B_FOLLOW_TOP,
|
||||
uint32 flags = B_WILL_DRAW | B_FRAME_EVENTS | B_NAVIGABLE_JUMP,
|
||||
border_style border = B_FANCY_BORDER)
|
||||
:
|
||||
BBox(bounds, name, resizeFlags, flags, border),
|
||||
BPView(PasObject, bounds, name, resizeFlags, flags),
|
||||
BPHandler(PasObject, name),
|
||||
BPasObject(PasObject)
|
||||
{
|
||||
|
||||
}
|
||||
|
||||
BPBox::BPBox(TPasObject PasObject, BMessage *archive)
|
||||
:
|
||||
BBox(archive),
|
||||
BPView(PasObject, archive),
|
||||
BPHandler(PasObject, archive),
|
||||
BPasObject(PasObject)
|
||||
{
|
||||
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::SetBorder(border_style style)
|
||||
{
|
||||
BBox::SetBorder(style);
|
||||
}
|
||||
|
||||
|
||||
border_style
|
||||
BPBox::Border(void) const
|
||||
{
|
||||
return BBox::Border();
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::SetLabel(const char *label)
|
||||
{
|
||||
BBox::SetLabel(label);
|
||||
}
|
||||
|
||||
status_t
|
||||
BPBox::SetLabel(BView *view_label)
|
||||
{
|
||||
return BBox::SetLabel(view_label);
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::Draw(BRect bounds)
|
||||
{
|
||||
BBox::Draw(bounds);
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::AttachedToWindow(void)
|
||||
{
|
||||
BBox::AttachedToWindow();
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::DetachedFromWindow(void)
|
||||
{
|
||||
BBox::DetachedFromWindow();
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::AllAttached(void)
|
||||
{
|
||||
BBox::AllAttached();
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::AllDetached(void)
|
||||
{
|
||||
BBox::AllDetached();
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::FrameResized(float new_width, float new_height)
|
||||
{
|
||||
BBox::FrameResized(new_width, new_height);
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::MessageReceived(BMessage *msg)
|
||||
{
|
||||
BBox::MessageReceived(msg);
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::MouseDown(BPoint pt)
|
||||
{
|
||||
BBox::MouseDown(pt);
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::MouseUp(BPoint pt)
|
||||
{
|
||||
BBox::MouseUp(pt);
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::WindowActivated(bool state)
|
||||
{
|
||||
BBox::WindowActivated(state);
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::MouseMoved(BPoint pt, uint32 code, const BMessage *msg)
|
||||
{
|
||||
BBox::MouseMoved(pt, code, msg);
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::FrameMoved(BPoint new_position)
|
||||
{
|
||||
BBox::FrameMoved(new_position);
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::ResizeToPreferred(void)
|
||||
{
|
||||
BBox::ResizeToPreferred();
|
||||
}
|
||||
|
||||
void
|
||||
BPBox::GetPreferredSize(float *width, float *height)
|
||||
{
|
||||
BBox::GetPreferredSize(width, height);
|
||||
}
|
||||
|
||||
|
||||
#if defined(__cplusplus)
|
||||
extern "C" {
|
||||
#endif
|
||||
|
||||
/***********************************************************************
|
||||
* AUTHOR: nobody <baron>
|
||||
* FILE: Box.cpp
|
||||
* DATE: Tue Jan 21 00:15:28 2003
|
||||
* DESCR:
|
||||
***********************************************************************/
|
||||
|
||||
/*
|
||||
* Method: BBox::~BBox()
|
||||
* Descr:
|
||||
*/
|
||||
|
||||
void BBox_Free(BBox *Box)
|
||||
{
|
||||
delete Box;
|
||||
}
|
||||
|
||||
/*
|
||||
* Method: BBox::BBox()
|
||||
* Descr:
|
||||
*/
|
||||
|
||||
TCPlusObject BBox_Create(TPasObject PasObject, BRect frame,
|
||||
const char *name,
|
||||
uint32 resizeMask,
|
||||
uint32 flags,
|
||||
border_style border)
|
||||
{
|
||||
return new BPBox(PasObject,
|
||||
frame,
|
||||
name,
|
||||
resizeMask,
|
||||
flags,
|
||||
border);
|
||||
}
|
||||
|
||||
/*
|
||||
* Method: BBox::BBox()
|
||||
* Descr:
|
||||
*/
|
||||
|
||||
TCPlusObject BBox_Create_1(TPasObject PasObject, BMessage *data)
|
||||
{
|
||||
return new BPBox(PasObject, data);
|
||||
}
|
||||
|
||||
/*
|
||||
* Method: BBox::Instantiate()
|
||||
* Descr:
|
||||
*/
|
||||
BArchivable *
|
||||
BBox_Instantiate(BBox *Box, BMessage *data)
|
||||
{
|
||||
return Box->Instantiate(data);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::Archive()
|
||||
* Descr:
|
||||
*/
|
||||
status_t
|
||||
BBox_Archive(BBox *Box, BMessage *data, bool deep)
|
||||
{
|
||||
return Box->Archive(data, deep);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::SetBorder()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_SetBorder(BBox *Box, border_style style)
|
||||
{
|
||||
Box->SetBorder(style);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::Border()
|
||||
* Descr:
|
||||
*/
|
||||
border_style
|
||||
BBox_Border(BBox *Box)
|
||||
{
|
||||
return Box->Border();
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::SetLabel()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_SetLabel(BBox *Box, const char *label)
|
||||
{
|
||||
Box->SetLabel(label);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::SetLabel()
|
||||
* Descr:
|
||||
*/
|
||||
status_t
|
||||
BBox_SetLabel_1
|
||||
(BBox *Box, BView *view_label)
|
||||
{
|
||||
return Box->SetLabel(view_label);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::Label()
|
||||
* Descr:
|
||||
*/
|
||||
const char *
|
||||
BBox_Label(BBox *Box)
|
||||
{
|
||||
return Box->Label();
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::LabelView()
|
||||
* Descr:
|
||||
*/
|
||||
BView *
|
||||
BBox_LabelView_1(BBox *Box)
|
||||
{
|
||||
return Box->LabelView();
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::Draw()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_Draw(BBox *Box, BRect bounds)
|
||||
{
|
||||
Box->Draw(bounds);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::AttachedToWindow()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_AttachedToWindow(BBox *Box)
|
||||
{
|
||||
Box->AttachedToWindow();
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::DetachedFromWindow()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_DetachedFromWindow(BBox *Box)
|
||||
{
|
||||
Box->DetachedFromWindow();
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::AllAttached()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_AllAttached(BBox *Box)
|
||||
{
|
||||
Box->AllAttached();
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::AllDetached()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_AllDetached(BBox *Box)
|
||||
{
|
||||
Box->AllDetached();
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::FrameResized()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_FrameResized(BBox *Box, float new_width,
|
||||
float new_height)
|
||||
{
|
||||
Box->FrameResized(new_width, new_height);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::MessageReceived()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_MessageReceived(BBox *Box, BMessage *msg)
|
||||
{
|
||||
Box->MessageReceived(msg);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::MouseDown()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_MouseDown(BBox *Box, BPoint pt)
|
||||
{
|
||||
Box->MouseDown(pt);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::MouseUp()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_MouseUp(BBox *Box, BPoint pt)
|
||||
{
|
||||
Box->MouseUp(pt);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::WindowActivated()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_WindowActivated(BBox *Box, bool state)
|
||||
{
|
||||
Box->WindowActivated(state);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::MouseMoved()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_MouseMoved(BBox *Box, BPoint pt,
|
||||
uint32 code,
|
||||
const BMessage *msg)
|
||||
{
|
||||
Box->MouseMoved(pt, code, msg);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::FrameMoved()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_FrameMoved(BBox *Box, BPoint new_position)
|
||||
{
|
||||
Box->FrameMoved(new_position);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::ResolveSpecifier()
|
||||
* Descr:
|
||||
*/
|
||||
BHandler *
|
||||
BBox_ResolveSpecifier(BBox *Box, BMessage *msg,
|
||||
int32 index,
|
||||
BMessage *specifier,
|
||||
int32 form,
|
||||
const char *property)
|
||||
{
|
||||
return Box->ResolveSpecifier(msg, index, specifier, form, property);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::ResizeToPreferred()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_ResizeToPreferred(BBox *Box)
|
||||
{
|
||||
Box->ResizeToPreferred();
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::GetPreferredSize()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_GetPreferredSize(BBox *Box, float *width,
|
||||
float *height)
|
||||
{
|
||||
Box->GetPreferredSize(width, height);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::MakeFocus()
|
||||
* Descr:
|
||||
*/
|
||||
void
|
||||
BBox_MakeFocus(BBox *Box, bool state)
|
||||
{
|
||||
Box->MakeFocus(state);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::GetSupportedSuites()
|
||||
* Descr:
|
||||
*/
|
||||
status_t
|
||||
BBox_GetSupportedSuites(BBox *Box, BMessage *data)
|
||||
{
|
||||
return Box->GetSupportedSuites(data);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::Perform()
|
||||
* Descr:
|
||||
*/
|
||||
status_t
|
||||
BBox_Perform(BBox *Box, perform_code d,
|
||||
void *arg)
|
||||
{
|
||||
return Box->Perform(d, arg);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::_ReservedBox1()
|
||||
* Descr:
|
||||
*/
|
||||
/*
|
||||
void
|
||||
BBox__ReservedBox1(BBox *Box)
|
||||
{
|
||||
Box->_ReservedBox1();
|
||||
}
|
||||
*/
|
||||
|
||||
/*
|
||||
* Method: BBox::_ReservedBox2()
|
||||
* Descr:
|
||||
*/
|
||||
/*
|
||||
void
|
||||
BBox__ReservedBox2(BBox *Box)
|
||||
{
|
||||
Box->_ReservedBox2();
|
||||
}
|
||||
*/
|
||||
|
||||
/*
|
||||
* Method: BBox::operator=()
|
||||
* Descr:
|
||||
*/
|
||||
/*
|
||||
BBox &
|
||||
BBox_operator=(BBox *Box, const BBox &)
|
||||
{
|
||||
return Box->operator=();
|
||||
}
|
||||
*/
|
||||
|
||||
|
||||
/*
|
||||
* Method: BBox::InitObject()
|
||||
* Descr:
|
||||
*/
|
||||
/*
|
||||
void
|
||||
BBox_InitObject(BBox *Box, BMessage *data)
|
||||
{
|
||||
Box->InitObject(data);
|
||||
}
|
||||
*/
|
||||
|
||||
/*
|
||||
* Method: BBox::DrawPlain()
|
||||
* Descr:
|
||||
*/
|
||||
/*
|
||||
void
|
||||
BBox_DrawPlain(BBox *Box)
|
||||
{
|
||||
Box->DrawPlain();
|
||||
}
|
||||
*/
|
||||
|
||||
/*
|
||||
* Method: BBox::DrawFancy()
|
||||
* Descr:
|
||||
*/
|
||||
/*
|
||||
void
|
||||
BBox_DrawFancy(BBox *Box)
|
||||
{
|
||||
Box->DrawFancy();
|
||||
}
|
||||
*/
|
||||
|
||||
/*
|
||||
* Method: BBox::ClearAnyLabel()
|
||||
* Descr:
|
||||
*/
|
||||
/*
|
||||
void
|
||||
BBox_ClearAnyLabel(BBox *Box)
|
||||
{
|
||||
Box->ClearAnyLabel();
|
||||
}
|
||||
*/
|
||||
|
||||
#if defined(__cplusplus)
|
||||
}
|
||||
#endif
|
||||
|
||||
#endif /* _BOX_CPP_ */
|
||||
360
bepascal/bepascal/be/interface/box.pp
Normal file
360
bepascal/bepascal/be/interface/box.pp
Normal file
@@ -0,0 +1,360 @@
|
||||
{ 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 box;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
BeObj, Archivable, Control, Handler, Message, Rect, SupportDefs,
|
||||
InterfaceDefs, View;
|
||||
|
||||
type
|
||||
|
||||
TBox = class(TView)
|
||||
private
|
||||
public
|
||||
constructor Create(Frame : TRect; Name : PChar; ResizingMode,
|
||||
Flags : Cardinal; BorderStyle : Tborder_style);
|
||||
constructor Create(data : TMessage);
|
||||
destructor Destroy; override;
|
||||
function Instantiate(data : TMessage) : TArchivable;
|
||||
function Archive(data : TMessage; deep : boolean) : TStatus_t;
|
||||
procedure SetBorder(style : Tborder_style);
|
||||
function Border : Tborder_style;
|
||||
procedure SetLabel(aLabel : PChar);
|
||||
function SetLabel(view_label : TView) : TStatus_t;
|
||||
// Conflicting Name: Label is a reserved word in Pascal.
|
||||
// I will use: GetLabel
|
||||
function GetLabel : PChar;
|
||||
|
||||
function LabelView : TView;
|
||||
procedure Draw(bounds : TRect); override;
|
||||
procedure AttachedToWindow; override;
|
||||
procedure DetachedFromWindow; override;
|
||||
procedure AllAttached; override;
|
||||
procedure AllDetached; override;
|
||||
procedure FrameResized(new_width : double; new_height : double); override;
|
||||
procedure MessageReceived(msg : TMessage); override;
|
||||
procedure MouseDown(pt : TPoint); override;
|
||||
procedure MouseUp(pt : TPoint); override;
|
||||
procedure WindowActivated(state : boolean); override;
|
||||
procedure MouseMoved(pt : TPoint; code : Cardinal; msg : TMessage); override;
|
||||
procedure FrameMoved(new_position : TPoint); override;
|
||||
function ResolveSpecifier(msg : TMessage; index : integer;
|
||||
specifier : TMessage; form : integer;
|
||||
properti : PChar) : THandler;
|
||||
procedure ResizeToPreferred; override;
|
||||
procedure GetPreferredSize(width : double; height : double);
|
||||
procedure MakeFocus(state : boolean);
|
||||
function GetSupportedSuites(data : TMessage) : TStatus_t;
|
||||
function Perform(d : TPerform_code; arg : Pointer) : TStatus_t;
|
||||
// procedure _ReservedBox1;
|
||||
// procedure _ReservedBox2;
|
||||
// function operator=( : TBox) : TBox;
|
||||
// procedure InitObject(data : TMessage);
|
||||
// procedure DrawPlain;
|
||||
// procedure DrawFancy;
|
||||
// procedure ClearAnyLabel;
|
||||
// procedure char *fLabel;
|
||||
// procedure BRect fBounds;
|
||||
// procedure border_style fStyle;
|
||||
// procedure BView *fLabelView;
|
||||
// procedure uint32 _reserved[1];
|
||||
end;
|
||||
|
||||
function BBox_Create(AObject : TBeObject;
|
||||
Frame : TCPlusObject;
|
||||
Name : PChar;
|
||||
ResizingMode, Flags : Cardinal;
|
||||
BorderStyle : Tborder_style) : TCPlusObject;
|
||||
cdecl; external BePascalLibName name 'BBox_Create';
|
||||
|
||||
function BBox_Create_1(AObject : TBeObject; data : TCPlusObject) : TCPlusObject; cdecl; external BePascalLibName name 'BBox_Create_1';
|
||||
procedure BBox_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_Free';
|
||||
function BBox_Instantiate(AObject : TCPlusObject; data : TCPlusObject) : TArchivable; cdecl; external BePascalLibName name 'BBox_Instantiate';
|
||||
function BBox_Archive(AObject : TCPlusObject; data : TCPlusObject; deep : boolean) : TStatus_t; cdecl; external BePascalLibName name 'BBox_Archive';
|
||||
procedure BBox_SetBorder(AObject : TCPlusObject; style : Tborder_style); cdecl; external BePascalLibName name 'BBox_SetBorder';
|
||||
function BBox_Border(AObject : TCPlusObject) : Tborder_style; cdecl; external BePascalLibName name 'BBox_Border';
|
||||
|
||||
// Conflicting name Label --> aLabel.
|
||||
procedure BBox_SetLabel(AObject : TCPlusObject; aLabel : PChar); cdecl; external BePascalLibName name 'BBox_SetLabel';
|
||||
|
||||
function BBox_SetLabel(AObject : TCPlusObject; view_label : TView) : TStatus_t; cdecl; external BePascalLibName name 'BBox_SetLabel';
|
||||
function BBox_Label(AObject : TCPlusObject) : PChar; cdecl; external BePascalLibName name 'BBox_Label';
|
||||
|
||||
function BBox_LabelView(AObject : TCPlusObject) : TView; cdecl; external BePascalLibName name 'BBox_LabelView_1';
|
||||
|
||||
procedure BBox_Draw(AObject : TCPlusObject; bounds : TRect); cdecl; external BePascalLibName name 'BBox_Draw';
|
||||
procedure BBox_AttachedToWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_AttachedToWindow';
|
||||
procedure BBox_DetachedFromWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_DetachedFromWindow';
|
||||
procedure BBox_AllAttached(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_AllAttached';
|
||||
procedure BBox_AllDetached(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_AllDetached';
|
||||
procedure BBox_FrameResized(AObject : TCPlusObject; new_width : double; new_height : double); cdecl; external BePascalLibName name 'BBox_FrameResized';
|
||||
procedure BBox_MessageReceived(AObject : TCPlusObject; msg : TCPlusObject); cdecl; external BePascalLibName name 'BBox_MessageReceived';
|
||||
procedure BBox_MouseDown(AObject : TCPlusObject; pt : TPoint); cdecl; external BePascalLibName name 'BBox_MouseDown';
|
||||
procedure BBox_MouseUp(AObject : TCPlusObject; pt : TPoint); cdecl; external BePascalLibName name 'BBox_MouseUp';
|
||||
procedure BBox_WindowActivated(AObject : TCPlusObject; state : boolean); cdecl; external BePascalLibName name 'BBox_WindowActivated';
|
||||
procedure BBox_MouseMoved(AObject : TCPlusObject; pt : TPoint; code : Cardinal; msg : TCPlusObject); cdecl; external BePascalLibName name 'BBox_MouseMoved';
|
||||
procedure BBox_FrameMoved(AObject : TCPlusObject; new_position : TPoint); cdecl; external BePascalLibName name 'BBox_FrameMoved';
|
||||
function BBox_ResolveSpecifier(AObject : TCPlusObject; msg : TCPlusObject; index : integer; specifier : TMessage; form : integer; properti : PChar) : THandler; cdecl; external BePascalLibName name 'BBox_ResolveSpecifier';
|
||||
procedure BBox_ResizeToPreferred(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_ResizeToPreferred';
|
||||
procedure BBox_GetPreferredSize(AObject : TCPlusObject; width : double; height : double); cdecl; external BePascalLibName name 'BBox_GetPreferredSize';
|
||||
procedure BBox_MakeFocus(AObject : TCPlusObject; state : boolean); cdecl; external BePascalLibName name 'BBox_MakeFocus';
|
||||
function BBox_GetSupportedSuites(AObject : TCPlusObject; data : TCPlusObject) : TStatus_t; cdecl; external BePascalLibName name 'BBox_GetSupportedSuites';
|
||||
function BBox_Perform(AObject : TCPlusObject; d : TPerform_code; arg : Pointer) : TStatus_t; cdecl; external BePascalLibName name 'BBox_Perform';
|
||||
{
|
||||
procedure BBox__ReservedBox1(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox__ReservedBox1';
|
||||
procedure BBox__ReservedBox2(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox__ReservedBox2';
|
||||
function BBox_operator=(AObject : TCPlusObject; : TBox) : TBox; cdecl; external BePascalLibName name 'BBox_operator=';
|
||||
procedure BBox_InitObject(AObject : TCPlusObject; data : TMessage); cdecl; external BePascalLibName name 'BBox_InitObject';
|
||||
procedure BBox_DrawPlain(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_DrawPlain';
|
||||
procedure BBox_DrawFancy(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_DrawFancy';
|
||||
procedure BBox_ClearAnyLabel(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_ClearAnyLabel';
|
||||
procedure BBox_char *fLabel(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_char *fLabel';
|
||||
|
||||
procedure BBox_BRect fBounds(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_BRect fBounds';
|
||||
|
||||
procedure BBox_border_style fStyle(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_border_style fStyle';
|
||||
procedure BBox_BView *fLabelView(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_BView *fLabelView';
|
||||
procedure BBox_uint32 _reserved[1](AObject : TCPlusObject); cdecl; external BePascalLibName name 'BBox_uint32 _reserved[1]';
|
||||
}
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
constructor TBox.Create(Frame : TRect; Name : PChar; ResizingMode, Flags : Cardinal; BorderStyle : Tborder_style);
|
||||
begin
|
||||
CreatePas;
|
||||
CPlusObject := BBox_Create(Self, Frame.CPlusObject, Name, ResizingMode, Flags, BorderStyle);
|
||||
end;
|
||||
|
||||
constructor TBox.Create(data : TMessage);
|
||||
begin
|
||||
CreatePas;
|
||||
CPlusObject := BBox_Create_1(Self, data.CPlusObject);
|
||||
end;
|
||||
|
||||
destructor TBox.Destroy;
|
||||
begin
|
||||
BBox_Free(CPlusObject);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBox.Instantiate(data : TMessage) : TArchivable;
|
||||
begin
|
||||
Result := BBox_Instantiate(CPlusObject, data.CPlusObject);
|
||||
end;
|
||||
|
||||
function TBox.Archive(data : TMessage; deep : boolean) : TStatus_t;
|
||||
begin
|
||||
Result := BBox_Archive(CPlusObject, data.CPlusObject, deep);
|
||||
end;
|
||||
|
||||
procedure TBox.SetBorder(style : Tborder_style);
|
||||
begin
|
||||
BBox_SetBorder(CPlusObject, style);
|
||||
end;
|
||||
|
||||
function TBox.Border : Tborder_style;
|
||||
begin
|
||||
Result := BBox_Border(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.SetLabel(aLabel : PChar);
|
||||
begin
|
||||
BBox_SetLabel(CPlusObject, aLabel);
|
||||
end;
|
||||
|
||||
function TBox.SetLabel(view_label : TView) : TStatus_t;
|
||||
begin
|
||||
Result := BBox_SetLabel(CPlusObject, view_label{.CPlusObject});
|
||||
end;
|
||||
|
||||
// Conflicting Name: Label is a reserved word in Pascal.
|
||||
// I will use: GetLabel
|
||||
function TBox.GetLabel : PChar;
|
||||
begin
|
||||
Result := BBox_Label(CPlusObject);
|
||||
end;
|
||||
|
||||
|
||||
function TBox.LabelView : TView;
|
||||
begin
|
||||
Result := BBox_LabelView(CPlusObject);
|
||||
end;
|
||||
|
||||
|
||||
procedure TBox.Draw(bounds : TRect);
|
||||
begin
|
||||
BBox_Draw(CPlusObject, bounds{.CPlusObject});
|
||||
end;
|
||||
|
||||
procedure TBox.AttachedToWindow;
|
||||
begin
|
||||
BBox_AttachedToWindow(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.DetachedFromWindow;
|
||||
begin
|
||||
BBox_DetachedFromWindow(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.AllAttached;
|
||||
begin
|
||||
BBox_AllAttached(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.AllDetached;
|
||||
begin
|
||||
BBox_AllDetached(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.FrameResized(new_width : double; new_height : double);
|
||||
begin
|
||||
BBox_FrameResized(CPlusObject, new_width, new_height);
|
||||
end;
|
||||
|
||||
procedure TBox.MessageReceived(msg : TMessage);
|
||||
begin
|
||||
BBox_MessageReceived(CPlusObject, msg.CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.MouseDown(pt : TPoint);
|
||||
begin
|
||||
BBox_MouseDown(CPlusObject, pt{.CPlusObject});
|
||||
end;
|
||||
|
||||
procedure TBox.MouseUp(pt : TPoint);
|
||||
begin
|
||||
BBox_MouseUp(CPlusObject, pt{.CPlusObject});
|
||||
end;
|
||||
|
||||
procedure TBox.WindowActivated(state : boolean);
|
||||
begin
|
||||
BBox_WindowActivated(CPlusObject, state);
|
||||
end;
|
||||
|
||||
procedure TBox.MouseMoved(pt : TPoint; code : Cardinal; msg : TMessage);
|
||||
begin
|
||||
BBox_MouseMoved(CPlusObject, pt{.CPlusObject}, code, msg);
|
||||
end;
|
||||
|
||||
procedure TBox.FrameMoved(new_position : TPoint);
|
||||
begin
|
||||
BBox_FrameMoved(CPlusObject, new_position{.CPlusObject});
|
||||
end;
|
||||
|
||||
function TBox.ResolveSpecifier(msg : TMessage; index : integer; specifier : TMessage; form : integer; properti : PChar) : THandler;
|
||||
begin
|
||||
Result := BBox_ResolveSpecifier(CPlusObject, msg{.CPlusObject}, index, specifier{.CPlusObject}, form, properti);
|
||||
end;
|
||||
|
||||
procedure TBox.ResizeToPreferred;
|
||||
begin
|
||||
BBox_ResizeToPreferred(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.GetPreferredSize(width : double; height : double);
|
||||
begin
|
||||
BBox_GetPreferredSize(CPlusObject, width, height);
|
||||
end;
|
||||
|
||||
procedure TBox.MakeFocus(state : boolean);
|
||||
begin
|
||||
BBox_MakeFocus(CPlusObject, state);
|
||||
end;
|
||||
|
||||
function TBox.GetSupportedSuites(data : TMessage) : TStatus_t;
|
||||
begin
|
||||
Result := BBox_GetSupportedSuites(CPlusObject, data.CPlusObject);
|
||||
end;
|
||||
|
||||
function TBox.Perform(d : TPerform_code; arg : Pointer) : TStatus_t;
|
||||
begin
|
||||
Result := BBox_Perform(CPlusObject, d, arg);
|
||||
end;
|
||||
|
||||
{
|
||||
procedure TBox._ReservedBox1;
|
||||
begin
|
||||
BBox__ReservedBox1(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox._ReservedBox2;
|
||||
begin
|
||||
BBox__ReservedBox2(CPlusObject);
|
||||
end;
|
||||
|
||||
function TBox.operator=( : TBox) : TBox;
|
||||
begin
|
||||
Result := BBox_operator=(CPlusObject, );
|
||||
end;
|
||||
}
|
||||
|
||||
{
|
||||
procedure TBox.InitObject(data : TMessage);
|
||||
begin
|
||||
BBox_InitObject(CPlusObject, data.CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.DrawPlain;
|
||||
begin
|
||||
BBox_DrawPlain(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.DrawFancy;
|
||||
begin
|
||||
BBox_DrawFancy(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.ClearAnyLabel;
|
||||
begin
|
||||
BBox_ClearAnyLabel(CPlusObject);
|
||||
end;
|
||||
}
|
||||
|
||||
{
|
||||
procedure TBox.char *fLabel;
|
||||
begin
|
||||
BBox_char *fLabel(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.BRect fBounds;
|
||||
begin
|
||||
BBox_BRect fBounds(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.border_style fStyle;
|
||||
begin
|
||||
BBox_border_style fStyle(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.BView *fLabelView;
|
||||
begin
|
||||
BBox_BView *fLabelView(CPlusObject);
|
||||
end;
|
||||
|
||||
procedure TBox.uint32 _reserved[1];
|
||||
begin
|
||||
BBox_uint32 _reserved[1](CPlusObject);
|
||||
end;
|
||||
}
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user