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

BTextControl and BStringView support

Browse Source
This commit is contained in:
ocoursiere
2003-01-15 22:22:20 +00:00
parent dbf593b43b
commit 294185223c
4 changed files with 2054 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

552
bepascal/bepascal/be/interface/StringView.cpp Normal file
View File

@@ -0,0 +1,552 @@
/* BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 Olivier Coursiere
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 _STRINGVIEW_CPP_
#define _STRINGVIEW_CPP_
/***********************************************************************
* AUTHOR: nobody <baron>
* FILE: StringView.cpp
* DATE: Mon Jan 13 21:52:29 2003
* DESCR:
***********************************************************************/
#include "StringView.h"
#include "view.h"
#include <beobj.h>
#if defined(__cplusplus)
extern "C" {
#endif
#if defined(__cplusplus)
}
#endif
class BPStringView : public BStringView, virtual public BPView
{
public:
BPStringView(TPasObject PasObject,
BRect bounds,
const char *name,
const char *text,
uint32 resizeFlags,
uint32 flags);
BPStringView(TPasObject PasObject, BMessage *archive);
virtual void AttachedToWindow(void);
virtual void Draw(BRect updateRect);
virtual void MessageReceived(BMessage *message);
virtual void MouseDown(BPoint point);
virtual void MouseUp(BPoint point);
virtual void MouseMoved(BPoint point, uint32 transit, const BMessage *message);
virtual void FrameMoved(BPoint parentPoint);
virtual void FrameResized(float width, float height);
virtual void AllAttached(void);
virtual void AllDetached(void);
private:
};
BPStringView::BPStringView(TPasObject PasObject,
BRect bounds,
const char *name,
const char *text,
uint32 resizeFlags,
uint32 flags)
:
BStringView( bounds,
name,
text,
resizeFlags,
flags),
BPView(PasObject, BRect(0,0,0,0), name, 0, flags),
BPHandler(PasObject, name),
BPasObject(PasObject)
{
}
BPStringView::BPStringView(TPasObject PasObject, BMessage *data)
:BStringView(data),
BPView(PasObject, data),
BPHandler(PasObject, data),
BPasObject(PasObject)
{
}
void BPStringView::MessageReceived(BMessage *message)
{
MessageReceived_hookCall(message);
BStringView::MessageReceived(message);
}
void BPStringView::Draw(BRect updateRect)
{
BStringView::Draw(updateRect);
Draw_hookCall(updateRect);
}
void BPStringView::AttachedToWindow(void)
{
BStringView::AttachedToWindow();
AttachedToWindow_hookCall();
}
void BPStringView::AllAttached(void)
{
BStringView::AllAttached();
}
void BPStringView::AllDetached(void)
{
BStringView::AllDetached();
}
void BPStringView::FrameMoved(BPoint parentPoint)
{
BStringView::FrameMoved(parentPoint);
}
void BPStringView::FrameResized(float width, float height)
{
BStringView::FrameResized(width, height);
}
void BPStringView::MouseDown(BPoint point)
{
BStringView::MouseDown(point);
}
void BPStringView::MouseMoved(BPoint point, uint32 transit, const BMessage *message)
{
BStringView::MouseMoved(point, transit, message);
}
void BPStringView::MouseUp(BPoint point)
{
BStringView::MouseUp(point);
}
#if defined(__cplusplus)
extern "C" {
#endif
TCPlusObject BStringView_Create(TPasObject PasObject,
BRect bounds,
const char *name,
const char *text,
uint32 resizeFlags,
uint32 flags)
{
return new BPStringView(PasObject,bounds,
name,
text,
resizeFlags,
flags);
}
/***********************************************************************
* Method: BStringView::BStringView
* Params: BMessage *data
* Effects:
***********************************************************************/
TCPlusObject BStringView_Create_1(TPasObject PasObject, BMessage *data)
{
return new BPStringView(PasObject, data);
}
/***********************************************************************
* Method: BStringView::~BStringView
* Params:
* Effects:
***********************************************************************/
void BStringView_Free(BStringView *StringView)
{
delete StringView;
}
/***********************************************************************
* Method: BStringView::Instantiate
* Params: BMessage *data
* Returns: BArchivable *
* Effects:
***********************************************************************/
BArchivable *
BStringView_Instantiate(BStringView *StringView, BMessage *data)
{
return StringView->Instantiate(data);
}
/***********************************************************************
* Method: BStringView::Archive
* Params: BMessage *data, bool deep
* Returns: status_t
* Effects:
***********************************************************************/
status_t
BStringView_Archive(BStringView *StringView, BMessage *data, bool deep)
{
return StringView->Archive(data, deep);
}
/***********************************************************************
* Method: BStringView::SetText
* Params: const char *text
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_SetText(BStringView *StringView, const char *text)
{
StringView->SetText(text);
}
/***********************************************************************
* Method: BStringView::Text
* Params:
* Returns: const char *
* Effects:
***********************************************************************/
const char *
BStringView_Text(BStringView *StringView)
{
return StringView->Text();
}
/***********************************************************************
* Method: BStringView::SetAlignment
* Params: alignment flag
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_SetAlignment(BStringView *StringView, alignment flag)
{
StringView->SetAlignment(flag);
}
/***********************************************************************
* Method: BStringView::Alignment
* Params:
* Returns: alignment
* Effects:
***********************************************************************/
alignment
BStringView_Alignment(BStringView *StringView)
{
return StringView->Alignment();
}
/***********************************************************************
* Method: BStringView::AttachedToWindow
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_AttachedToWindow(BStringView *StringView)
{
StringView->AttachedToWindow();
}
/***********************************************************************
* Method: BStringView::Draw
* Params: BRect bounds
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_Draw(BStringView *StringView, BRect bounds)
{
StringView->Draw(bounds);
}
/***********************************************************************
* Method: BStringView::MessageReceived
* Params: BMessage *msg
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_MessageReceived(BStringView *StringView, BMessage *msg)
{
StringView->MessageReceived(msg);
}
/***********************************************************************
* Method: BStringView::MouseDown
* Params: BPoint pt
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_MouseDown(BStringView *StringView, BPoint pt)
{
StringView->MouseDown(pt);
}
/***********************************************************************
* Method: BStringView::MouseUp
* Params: BPoint pt
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_MouseUp(BStringView *StringView, BPoint pt)
{
StringView->MouseUp(pt);
}
/***********************************************************************
* Method: BStringView::MouseMoved
* Params: BPoint pt, uint32 code, const BMessage *msg
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_MouseMoved(BStringView *StringView, BPoint pt, uint32 code, const BMessage *msg)
{
StringView->MouseMoved(pt, code, msg);
}
/***********************************************************************
* Method: BStringView::DetachedFromWindow
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_DetachedFromWindow(BStringView *StringView)
{
StringView->DetachedFromWindow();
}
/***********************************************************************
* Method: BStringView::FrameMoved
* Params: BPoint new_position
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_FrameMoved(BStringView *StringView, BPoint new_position)
{
StringView->FrameMoved(new_position);
}
/***********************************************************************
* Method: BStringView::FrameResized
* Params: float new_width, float new_height
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_FrameResized(BStringView *StringView, float new_width, float new_height)
{
StringView->FrameResized(new_width, new_height);
}
/***********************************************************************
* Method: BStringView::ResolveSpecifier
* Params: BMessage *msg, int32 index, BMessage *specifier, int32 form, const char *property
* Returns: BHandler *
* Effects:
***********************************************************************/
BHandler *
BStringView_ResolveSpecifier(BStringView *StringView, BMessage *msg, int32 index, BMessage *specifier, int32 form, const char *property)
{
return StringView->ResolveSpecifier(msg, index, specifier, form, property);
}
/***********************************************************************
* Method: BStringView::ResizeToPreferred
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_ResizeToPreferred(BStringView *StringView)
{
StringView->ResizeToPreferred();
}
/***********************************************************************
* Method: BStringView::GetPreferredSize
* Params: float *width, float *height
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_GetPreferredSize(BStringView *StringView, float *width, float *height)
{
StringView->GetPreferredSize(width, height);
}
/***********************************************************************
* Method: BStringView::MakeFocus
* Params: bool state
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_MakeFocus(BStringView *StringView, bool state)
{
StringView->MakeFocus(state);
}
/***********************************************************************
* Method: BStringView::AllAttached
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_AllAttached(BStringView *StringView)
{
StringView->AllAttached();
}
/***********************************************************************
* Method: BStringView::AllDetached
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BStringView_AllDetached(BStringView *StringView)
{
StringView->AllDetached();
}
/***********************************************************************
* Method: BStringView::GetSupportedSuites
* Params: BMessage *data
* Returns: status_t
* Effects:
***********************************************************************/
status_t
BStringView_GetSupportedSuites(BStringView *StringView, BMessage *data)
{
return StringView->GetSupportedSuites(data);
}
/***********************************************************************
* Method: BStringView::Perform
* Params: perform_code d, void *arg
* Returns: status_t
* Effects:
***********************************************************************/
status_t
BStringView_Perform(BStringView *StringView, perform_code d, void *arg)
{
return StringView->Perform(d, arg);
}
/***********************************************************************
* Method: BStringView::_ReservedStringView1
* Params:
* Returns: void
* Effects:
***********************************************************************/
/*void
BStringView__ReservedStringView1(BStringView *StringView)
{
StringView->_ReservedStringView1();
}
*/
/***********************************************************************
* Method: BStringView::_ReservedStringView2
* Params:
* Returns: void
* Effects:
***********************************************************************/
/*void
BStringView__ReservedStringView2(BStringView *StringView)
{
StringView->_ReservedStringView2();
}
*/
/***********************************************************************
* Method: BStringView::_ReservedStringView3
* Params:
* Returns: void
* Effects:
***********************************************************************/
/*void
BStringView__ReservedStringView3(BStringView *StringView)
{
StringView->_ReservedStringView3();
}
*/
/***********************************************************************
* Method: BStringView::operator=
* Params: const BStringView &
* Returns: BStringView &
* Effects:
***********************************************************************/
/*BStringView &
BStringView_operator=(BStringView *StringView, const BStringView &)
{
return StringView->operator=();
}
*/
#if defined(__cplusplus)
}
#endif
#endif /* _STRINGVIEW_CPP_ */

807
bepascal/bepascal/be/interface/TextControl.cpp Normal file
View File

@@ -0,0 +1,807 @@
/* 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
*/
#ifndef _TEXTCONTROL_CPP_
#define _TEXTCONTROL_CPP_
/***********************************************************************
* AUTHOR: nobody <baron>
* FILE: Button.cpp
* DATE: Tue Dec 3 00:28:35 2002
* DESCR:
***********************************************************************/
#include "TextControl.h"
#include "control.h"
#include <beobj.h>
#if defined(__cplusplus)
extern "C" {
#endif
#if defined(__cplusplus)
}
#endif
class BPTextControl : public BTextControl, virtual public BPControl {
public:
BPTextControl(TPasObject PasObject,
BRect frame,
const char *name,
const char *label,
const char *initial_text,
BMessage *message,
uint32 rmask = B_FOLLOW_LEFT | B_FOLLOW_TOP,
uint32 flags = B_WILL_DRAW | B_NAVIGABLE);
//virtual ~BPTextControl();
BPTextControl(TPasObject PasObject,BMessage *data);
static BArchivable *Instantiate(BMessage *data);
//virtual status_t Archive(BMessage *data, bool deep = true) const;
//virtual void SetText(const char *text);
const char *Text() const;
virtual void SetValue(int32 value);
//virtual status_t Invoke(BMessage *msg = NULL);
BTextView *TextView() const;
//virtual void SetModificationMessage(BMessage *message);
BMessage *ModificationMessage() const;
//virtual void SetAlignment(alignment label, alignment text);
void GetAlignment(alignment *label, alignment *text) const;
//virtual void SetDivider(float dividing_line);
float Divider() const;
virtual void Draw(BRect updateRect);
virtual void MouseDown(BPoint where);
virtual void AttachedToWindow();
//virtual void MakeFocus(bool focusState = true);
virtual void SetEnabled(bool state);
virtual void FrameMoved(BPoint new_position);
virtual void FrameResized(float new_width, float new_height);
virtual void WindowActivated(bool active);
virtual void GetPreferredSize(float *width, float *height);
virtual void ResizeToPreferred();
virtual void MessageReceived(BMessage *msg);
/*virtual BHandler *ResolveSpecifier(BMessage *msg,
int32 index,
BMessage *specifier,
int32 form,
const char *property);
*/
virtual void MouseUp(BPoint pt);
virtual void MouseMoved(BPoint pt, uint32 code, const BMessage *msg);
virtual void DetachedFromWindow();
virtual void AllAttached();
virtual void AllDetached();
//virtual status_t GetSupportedSuites(BMessage *data);
//virtual void SetFlags(uint32 flags);
/*----- Private or reserved -----------------------------------------*/
//virtual status_t Perform(perform_code d, void *arg);
private:
};
BPTextControl::BPTextControl(TPasObject PasObject,
BRect frame,
const char *name,
const char *label,
const char *initial_text,
BMessage *message,
uint32 rmask = B_FOLLOW_LEFT | B_FOLLOW_TOP,
uint32 flags = B_WILL_DRAW | B_NAVIGABLE)
:
BTextControl(frame,name,label,initial_text,
message,rmask,flags),
BPControl(PasObject, frame, name, label, message,
rmask, flags),
BPView(PasObject, frame, name, rmask, flags),
BPHandler(PasObject, name),
BPasObject(PasObject)
{
}
BPTextControl::BPTextControl(TPasObject PasObject, BMessage *archive)
:BTextControl(archive),
BPControl(PasObject, archive),
BPView(PasObject, archive),
BPHandler(PasObject, archive),
BPasObject(PasObject)
{
}
void BPTextControl::MessageReceived(BMessage *message)
{
MessageReceived_hookCall(message);
BTextControl::MessageReceived(message);
}
void BPTextControl::Draw(BRect updateRect)
{
BTextControl::Draw(updateRect);
Draw_hookCall(updateRect);
}
void BPTextControl::AttachedToWindow(void)
{
BTextControl::AttachedToWindow();
AttachedToWindow_hookCall();
}
void BPTextControl::WindowActivated(bool active)
{
BTextControl::WindowActivated(active);
}
void BPTextControl::AllAttached(void)
{
BTextControl::AllAttached();
}
void BPTextControl::AllDetached(void)
{
BTextControl::AllDetached();
}
void BPTextControl::DetachedFromWindow(void)
{
BTextControl::DetachedFromWindow();
}
void BPTextControl::FrameMoved(BPoint parentPoint)
{
BTextControl::FrameMoved(parentPoint);
}
void BPTextControl::FrameResized(float width, float height)
{
BTextControl::FrameResized(width, height);
}
void BPTextControl::GetPreferredSize(float *width, float *height)
{
BTextControl::GetPreferredSize(width, height);
}
void BPTextControl::ResizeToPreferred(void)
{
BTextControl::ResizeToPreferred();
}
void BPTextControl::MouseDown(BPoint point)
{
BTextControl::MouseDown(point);
}
void BPTextControl::MouseMoved(BPoint point, uint32 transit, const BMessage *message)
{
BTextControl::MouseMoved(point, transit, message);
}
void BPTextControl::MouseUp(BPoint point)
{
BTextControl::MouseUp(point);
}
//void BPButton::TargetedByScrollView(BScrollView *scroller)
//{
// BButton::TargetedByScrollView(scroller);
//}
void BPTextControl::SetEnabled(bool enabled)
{
BTextControl::SetEnabled(enabled);
}
void BPTextControl::SetValue(int32 value)
{
BTextControl::SetValue(value);
}
#if defined(__cplusplus)
extern "C" {
#endif
/***********************************************************************
* AUTHOR: nobody <baron>
* FILE: TextControl.cpp
* DATE: Tue Jan 14 21:35:44 2003
* DESCR:
***********************************************************************/
/***********************************************************************
* Method: BTextControl::~BTextControl
* Params:
* Effects:
***********************************************************************/
void BTextControl_Free(BTextControl *TextControl)
{
delete TextControl;
}
TCPlusObject BTextControl_Create(TPasObject PasObject, BRect frame,
const char *name,
const char *label,
const char *initial_text,
BMessage *message,
uint32 resizeMask,
uint32 flags)
{
return new BPTextControl(PasObject, frame, name, label,initial_text, message, resizeMask, flags);
}
/***********************************************************************
* Method: BTextControl::BTextControl
* Params: BMessage *data
* Effects:
***********************************************************************/
TCPlusObject BTextControl_Create_1(TPasObject PasObject, BMessage *data)
{
return new BPTextControl(PasObject, data);
}
/***********************************************************************
* Method: BTextControl::Instantiate
* Params: BMessage *data
* Returns: BArchivable *
* Effects:
***********************************************************************/
BArchivable *
BTextControl_Instantiate(BTextControl *TextControl, BMessage *data)
{
return TextControl->Instantiate(data);
}
/***********************************************************************
* Method: BTextControl::Archive
* Params: BMessage *data, bool deep
* Returns: status_t
* Effects:
***********************************************************************/
status_t
BTextControl_Archive(BTextControl *TextControl, BMessage *data, bool deep)
{
return TextControl->Archive(data, deep);
}
/***********************************************************************
* Method: BTextControl::SetText
* Params: const char *text
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_SetText(BTextControl *TextControl, const char *text)
{
TextControl->SetText(text);
}
/***********************************************************************
* Method: BTextControl::Text
* Params:
* Returns: const char *
* Effects:
***********************************************************************/
const char *
BTextControl_Text(BTextControl *TextControl)
{
return TextControl->Text();
}
/***********************************************************************
* Method: BTextControl::SetValue
* Params: int32 value
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_SetValue(BTextControl *TextControl, int32 value)
{
TextControl->SetValue(value);
}
/***********************************************************************
* Method: BTextControl::Invoke
* Params: BMessage *msg
* Returns: status_t
* Effects:
***********************************************************************/
status_t
BTextControl_Invoke(BTextControl *TextControl, BMessage *msg)
{
return TextControl->Invoke(msg);
}
/***********************************************************************
* Method: BTextControl::TextView
* Params:
* Returns: BTextView *
* Effects:
***********************************************************************/
BTextView *
BTextControl_TextView(BTextControl *TextControl)
{
return TextControl->TextView();
}
/***********************************************************************
* Method: BTextControl::SetModificationMessage
* Params: BMessage *message
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_SetModificationMessage(BTextControl *TextControl, BMessage *message)
{
TextControl->SetModificationMessage(message);
}
/***********************************************************************
* Method: BTextControl::ModificationMessage
* Params:
* Returns: BMessage *
* Effects:
***********************************************************************/
BMessage *
BTextControl_ModificationMessage(BTextControl *TextControl)
{
return TextControl->ModificationMessage();
}
/***********************************************************************
* Method: BTextControl::SetAlignment
* Params: alignment label, alignment text
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_SetAlignment(BTextControl *TextControl, alignment label, alignment text)
{
TextControl->SetAlignment(label, text);
}
/***********************************************************************
* Method: BTextControl::GetAlignment
* Params: alignment *label, alignment *text
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_GetAlignment(BTextControl *TextControl, alignment *label, alignment *text)
{
TextControl->GetAlignment(label, text);
}
/***********************************************************************
* Method: BTextControl::SetDivider
* Params: float dividing_line
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_SetDivider(BTextControl *TextControl, float dividing_line)
{
TextControl->SetDivider(dividing_line);
}
/***********************************************************************
* Method: BTextControl::Divider
* Params:
* Returns: float
* Effects:
***********************************************************************/
float
BTextControl_Divider(BTextControl *TextControl)
{
return TextControl->Divider();
}
/***********************************************************************
* Method: BTextControl::Draw
* Params: BRect updateRect
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_Draw(BTextControl *TextControl, BRect updateRect)
{
TextControl->Draw(updateRect);
}
/***********************************************************************
* Method: BTextControl::MouseDown
* Params: BPoint where
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_MouseDown(BTextControl *TextControl, BPoint where)
{
TextControl->MouseDown(where);
}
/***********************************************************************
* Method: BTextControl::AttachedToWindow
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_AttachedToWindow(BTextControl *TextControl)
{
TextControl->AttachedToWindow();
}
/***********************************************************************
* Method: BTextControl::MakeFocus
* Params: bool focusState
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_MakeFocus(BTextControl *TextControl, bool focusState)
{
TextControl->MakeFocus(focusState);
}
/***********************************************************************
* Method: BTextControl::SetEnabled
* Params: bool state
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_SetEnabled(BTextControl *TextControl, bool state)
{
TextControl->SetEnabled(state);
}
/***********************************************************************
* Method: BTextControl::FrameMoved
* Params: BPoint new_position
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_FrameMoved(BTextControl *TextControl, BPoint new_position)
{
TextControl->FrameMoved(new_position);
}
/***********************************************************************
* Method: BTextControl::FrameResized
* Params: float new_width, float new_height
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_FrameResized(BTextControl *TextControl, float new_width, float new_height)
{
TextControl->FrameResized(new_width, new_height);
}
/***********************************************************************
* Method: BTextControl::WindowActivated
* Params: bool active
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_WindowActivated(BTextControl *TextControl, bool active)
{
TextControl->WindowActivated(active);
}
/***********************************************************************
* Method: BTextControl::GetPreferredSize
* Params: float *width, float *height
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_GetPreferredSize(BTextControl *TextControl, float *width, float *height)
{
TextControl->GetPreferredSize(width, height);
}
/***********************************************************************
* Method: BTextControl::ResizeToPreferred
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_ResizeToPreferred(BTextControl *TextControl)
{
TextControl->ResizeToPreferred();
}
/***********************************************************************
* Method: BTextControl::MessageReceived
* Params: BMessage *msg
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_MessageReceived(BTextControl *TextControl, BMessage *msg)
{
TextControl->MessageReceived(msg);
}
/***********************************************************************
* Method: BTextControl::ResolveSpecifier
* Params: BMessage *msg, int32 index, BMessage *specifier, int32 form, const char *property
* Returns: BHandler *
* Effects:
***********************************************************************/
BHandler *
BTextControl_ResolveSpecifier(BTextControl *TextControl, BMessage *msg, int32 index, BMessage *specifier, int32 form, const char *property)
{
return TextControl->ResolveSpecifier(msg, index, specifier, form, property);
}
/***********************************************************************
* Method: BTextControl::MouseUp
* Params: BPoint pt
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_MouseUp(BTextControl *TextControl, BPoint pt)
{
TextControl->MouseUp(pt);
}
/***********************************************************************
* Method: BTextControl::MouseMoved
* Params: BPoint pt, uint32 code, const BMessage *msg
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_MouseMoved(BTextControl *TextControl, BPoint pt, uint32 code, const BMessage *msg)
{
TextControl->MouseMoved(pt, code, msg);
}
/***********************************************************************
* Method: BTextControl::DetachedFromWindow
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_DetachedFromWindow(BTextControl *TextControl)
{
TextControl->DetachedFromWindow();
}
/***********************************************************************
* Method: BTextControl::AllAttached
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_AllAttached(BTextControl *TextControl)
{
TextControl->AllAttached();
}
/***********************************************************************
* Method: BTextControl::AllDetached
* Params:
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_AllDetached(BTextControl *TextControl)
{
TextControl->AllDetached();
}
/***********************************************************************
* Method: BTextControl::GetSupportedSuites
* Params: BMessage *data
* Returns: status_t
* Effects:
***********************************************************************/
status_t
BTextControl_GetSupportedSuites(BTextControl *TextControl, BMessage *data)
{
return TextControl->GetSupportedSuites(data);
}
/***********************************************************************
* Method: BTextControl::SetFlags
* Params: uint32 flags
* Returns: void
* Effects:
***********************************************************************/
void
BTextControl_SetFlags(BTextControl *TextControl, uint32 flags)
{
TextControl->SetFlags(flags);
}
/***********************************************************************
* Method: BTextControl::Perform
* Params: perform_code d, void *arg
* Returns: status_t
* Effects:
***********************************************************************/
status_t
BTextControl_Perform(BTextControl *TextControl, perform_code d, void *arg)
{
return TextControl->Perform(d, arg);
}
/***********************************************************************
* Method: BTextControl::_ReservedTextControl1
* Params:
* Returns: void
* Effects:
***********************************************************************/
/*void
BTextControl__ReservedTextControl1(BTextControl *TextControl)
{
TextControl->_ReservedTextControl1();
}
*/
/***********************************************************************
* Method: BTextControl::_ReservedTextControl2
* Params:
* Returns: void
* Effects:
***********************************************************************/
/*void
BTextControl__ReservedTextControl2(BTextControl *TextControl)
{
TextControl->_ReservedTextControl2();
}
*/
/***********************************************************************
* Method: BTextControl::_ReservedTextControl3
* Params:
* Returns: void
* Effects:
***********************************************************************/
/*void
BTextControl__ReservedTextControl3(BTextControl *TextControl)
{
TextControl->_ReservedTextControl3();
}
*/
/***********************************************************************
* Method: BTextControl::_ReservedTextControl4
* Params:
* Returns: void
* Effects:
***********************************************************************/
/*void
BTextControl__ReservedTextControl4(BTextControl *TextControl)
{
TextControl->_ReservedTextControl4();
}
*/
/***********************************************************************
* Method: BTextControl::operator=
* Params: const BTextControl &
* Returns: BTextControl &
* Effects:
***********************************************************************/
/*BTextControl &
BTextControl_operator=(BTextControl *TextControl, const BTextControl &)
{
return TextControl->operator=();
}
*/
/***********************************************************************
* Method: BTextControl::CommitValue
* Params:
* Returns: void
* Effects:
***********************************************************************/
/*void
BTextControl_CommitValue(BTextControl *TextControl)
{
TextControl->CommitValue();
}
*/
/***********************************************************************
* Method: BTextControl::InitData
* Params: const char *label, const char *initial_text, BMessage *data
* Returns: void
* Effects:
***********************************************************************/
/*void
BTextControl_InitData(BTextControl *TextControl, const char *label, const char *initial_text, BMessage *data)
{
TextControl->InitData(label, initial_text, data);
}
*/
#if defined(__cplusplus)
}
#endif
#endif /* _TextControl_CPP_ */

262
bepascal/bepascal/be/interface/stringview.pp Normal file
View File

@@ -0,0 +1,262 @@
{ 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 stringview;
interface
uses
beobj, interfacedefs,view,Message, Archivable, SupportDefs, Rect, Handler;
type
TStringView = class(TView)
private
public
constructor Create(bounds : TRect; name : pchar; texte : pchar; resizeflags, flags : cardinal); virtual;
destructor Destroy; override;
function Instantiate(data : TMessage) : TArchivable;
function Archive(data : TMessage; deep : boolean) : TStatus_t;
procedure SetText(texte : PChar);
function Text : PChar;
procedure SetAlignment(flag : TAlignment);
function Alignment : TAlignment;
procedure AttachedToWindow; override;
procedure Draw(bounds : TRect); override;
procedure MessageReceived(msg : TMessage);override;
procedure MouseDown(pt : TPoint);override;
procedure MouseUp(pt : TPoint);override;
procedure MouseMoved(pt : TPoint; code : Cardinal; msg : TMessage);override;
procedure DetachedFromWindow;override;
procedure FrameMoved(new_position : TPoint);override;
procedure FrameResized(new_width : double; new_height : double);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);
procedure AllAttached;override;
procedure AllDetached;override;
function GetSupportedSuites(data : TMessage) : TStatus_t;
function Perform(d : TPerform_code; arg : Pointer) : TStatus_t;
// procedure _ReservedStringView1;
// procedure _ReservedStringView2;
// procedure _ReservedStringView3;
// function operator=( : TStringView) : TStringView;
// procedure char *fText;
// procedure alignment fAlign;
// procedure uint32 _reserved[3];
end;
function BStringView_Create(AObject : TBeObject;bounds : TCPlusObject; name : pchar; texte : pchar; resizeflags, flags : cardinal): TCPlusObject; cdecl; external BePascalLibName name 'BStringView_Create';
procedure BStringView_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_Free';
function BStringView_Instantiate(AObject : TCPlusObject; data : TCPlusObject) : TArchivable; cdecl; external BePascalLibName name 'BStringView_Instantiate';
function BStringView_Archive(AObject : TCPlusObject; data : TCPlusObject; deep : boolean) : TStatus_t; cdecl; external BePascalLibName name 'BStringView_Archive';
procedure BStringView_SetText(AObject : TCPlusObject; text : PChar); cdecl; external BePascalLibName name 'BStringView_SetText';
function BStringView_Text(AObject : TCPlusObject) : PChar; cdecl; external BePascalLibName name 'BStringView_Text';
procedure BStringView_SetAlignment(AObject : TCPlusObject; flag : TAlignment); cdecl; external BePascalLibName name 'BStringView_SetAlignment';
function BStringView_Alignment(AObject : TCPlusObject) : TAlignment; cdecl; external BePascalLibName name 'BStringView_Alignment';
procedure BStringView_AttachedToWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_AttachedToWindow';
procedure BStringView_Draw(AObject : TCPlusObject; bounds : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_Draw';
procedure BStringView_MessageReceived(AObject : TCPlusObject; msg : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_MessageReceived';
procedure BStringView_MouseDown(AObject : TCPlusObject; pt : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_MouseDown';
procedure BStringView_MouseUp(AObject : TCPlusObject; pt : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_MouseUp';
procedure BStringView_MouseMoved(AObject : TCPlusObject; pt : TCPlusObject; code : Cardinal; msg : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_MouseMoved';
procedure BStringView_DetachedFromWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_DetachedFromWindow';
procedure BStringView_FrameMoved(AObject : TCPlusObject; new_position : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_FrameMoved';
procedure BStringView_FrameResized(AObject : TCPlusObject; new_width : double; new_height : double); cdecl; external BePascalLibName name 'BStringView_FrameResized';
function BStringView_ResolveSpecifier(AObject : TCPlusObject; msg : TCPlusObject; index : integer; specifier : TCPlusObject; form : integer; properti : PChar) : THandler; cdecl; external BePascalLibName name 'BStringView_ResolveSpecifier';
procedure BStringView_ResizeToPreferred(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_ResizeToPreferred';
procedure BStringView_GetPreferredSize(AObject : TCPlusObject; width : double; height : double); cdecl; external BePascalLibName name 'BStringView_GetPreferredSize';
procedure BStringView_MakeFocus(AObject : TCPlusObject; state : boolean); cdecl; external BePascalLibName name 'BStringView_MakeFocus';
procedure BStringView_AllAttached(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_AllAttached';
procedure BStringView_AllDetached(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_AllDetached';
function BStringView_GetSupportedSuites(AObject : TCPlusObject; data : TCPlusObject) : TStatus_t; cdecl; external BePascalLibName name 'BStringView_GetSupportedSuites';
function BStringView_Perform(AObject : TCPlusObject; d : TPerform_code; arg : Pointer) : TStatus_t; cdecl; external BePascalLibName name 'BStringView_Perform';
//procedure BStringView__ReservedStringView1(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView__ReservedStringView1';
//procedure BStringView__ReservedStringView2(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView__ReservedStringView2';
//procedure BStringView__ReservedStringView3(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView__ReservedStringView3';
//function BStringView_operator=(AObject : TCPlusObject; : TStringView) : TStringView; cdecl; external BePascalLibName name 'BStringView_operator=';
//procedure BStringView_char *fText(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_char *fText';
//procedure BStringView_alignment fAlign(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_alignment fAlign';
//procedure BStringView_uint32 _reserved[3](AObject : TCPlusObject); cdecl; external BePascalLibName name 'BStringView_uint32 _reserved[3]';
implementation
constructor TStringView.Create(bounds : TRect; name : pchar; texte : pchar; resizeflags, flags : cardinal);
begin
CreatePas;
CPlusObject := BStringView_Create(Self,bounds.CPlusObject,name,texte,resizeflags, flags);
end;
destructor TStringView.Destroy;
begin
BStringView_Free(CPlusObject);
inherited;
end;
function TStringView.Instantiate(data : TMessage) : TArchivable;
begin
Result := BStringView_Instantiate(CPlusObject, data.CPlusObject);
end;
function TStringView.Archive(data : TMessage; deep : boolean) : TStatus_t;
begin
Result := BStringView_Archive(CPlusObject, data.CPlusObject, deep);
end;
procedure TStringView.SetText(texte : PChar);
begin
BStringView_SetText(CPlusObject, texte);
end;
function TStringView.Text : PChar;
begin
Result := BStringView_Text(CPlusObject);
end;
procedure TStringView.SetAlignment(flag : TAlignment);
begin
BStringView_SetAlignment(CPlusObject, flag);
end;
function TStringView.Alignment : TAlignment;
begin
Result := BStringView_Alignment(CPlusObject);
end;
procedure TStringView.AttachedToWindow;
begin
// BStringView_AttachedToWindow(CPlusObject);
end;
procedure TStringView.Draw(bounds : TRect);
begin
// BStringView_Draw(CPlusObject, bounds.CPlusObject);
end;
procedure TStringView.MessageReceived(msg : TMessage);
begin
//BStringView_MessageReceived(CPlusObject, msg.CPlusObject);
end;
procedure TStringView.MouseDown(pt : TPoint);
begin
//BStringView_MouseDown(CPlusObject, pt.CPlusObject);
end;
procedure TStringView.MouseUp(pt : TPoint);
begin
//BStringView_MouseUp(CPlusObject, pt.CPlusObject);
end;
procedure TStringView.MouseMoved(pt : TPoint; code : Cardinal; msg : TMessage);
begin
//BStringView_MouseMoved(CPlusObject, pt.CPlusObject, code, msg);
end;
procedure TStringView.DetachedFromWindow;
begin
//BStringView_DetachedFromWindow(CPlusObject);
end;
procedure TStringView.FrameMoved(new_position : TPoint);
begin
//BStringView_FrameMoved(CPlusObject, new_position.CPlusObject);
end;
procedure TStringView.FrameResized(new_width : double; new_height : double);
begin
//BStringView_FrameResized(CPlusObject, new_width, new_height);
end;
function TStringView.ResolveSpecifier(msg : TMessage; index : integer; specifier : TMessage; form : integer; properti : PChar) : THandler;
begin
// Result := BStringView_ResolveSpecifier(CPlusObject, msg.CPlusObject, index, specifier.CPlusObject, form, properti);
end;
procedure TStringView.ResizeToPreferred;
begin
//BStringView_ResizeToPreferred(CPlusObject);
end;
procedure TStringView.GetPreferredSize(width : double; height : double);
begin
BStringView_GetPreferredSize(CPlusObject, width, height);
end;
procedure TStringView.MakeFocus(state : boolean);
begin
BStringView_MakeFocus(CPlusObject, state);
end;
procedure TStringView.AllAttached;
begin
//BStringView_AllAttached(CPlusObject);
end;
procedure TStringView.AllDetached;
begin
//BStringView_AllDetached(CPlusObject);
end;
function TStringView.GetSupportedSuites(data : TMessage) : TStatus_t;
begin
Result := BStringView_GetSupportedSuites(CPlusObject, data.CPlusObject);
end;
function TStringView.Perform(d : TPerform_code; arg : Pointer) : TStatus_t;
begin
//Result := BStringView_Perform(CPlusObject, d, arg);
end;
{procedure TStringView._ReservedStringView1;
begin
BStringView__ReservedStringView1(CPlusObject);
end;
procedure TStringView._ReservedStringView2;
begin
BStringView__ReservedStringView2(CPlusObject);
end;
procedure TStringView._ReservedStringView3;
begin
BStringView__ReservedStringView3(CPlusObject);
end;
function TStringView.operator=( : TStringView) : TStringView;
begin
Result := BStringView_operator=(CPlusObject, );
end;
procedure TStringView.char *fText;
begin
BStringView_char *fText(CPlusObject);
end;
procedure TStringView.alignment fAlign;
begin
BStringView_alignment fAlign(CPlusObject);
end;
procedure TStringView.uint32 _reserved[3];
begin
BStringView_uint32 _reserved[3](CPlusObject);
end;
}
end.

433
bepascal/bepascal/be/interface/textcontrol.pp Normal file
View File

@@ -0,0 +1,433 @@
{ 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 textcontrol;
interface
uses
beobj, Control, Message, Archivable, SupportDefs, Rect, Handler,interfacedefs;
type
TTextControl = class(TControl)
private
public
destructor Destroy;override;
constructor Create(frame : TRect; name, aLabel,initial : PChar; message : TMessage; resizingMode, flags : Cardinal); virtual;
constructor Create(data : TMessage);override;
function Instantiate(data : TMessage) : TArchivable;
function Archive(data : TMessage; deep : boolean) : TStatus_t;
procedure SetText(texte : PChar);
function Text : PChar;
procedure SetValue(valu : integer);
function Invoke(msg : TMessage) : TStatus_t;
function TextView : TTextControl;
procedure SetModificationMessage(message : TMessage);
function ModificationMessage : TMessage;
procedure SetAlignment(alabel : TAlignment; texte : TAlignment);
procedure GetAlignment(alabel : TAlignment; texte : TAlignment);
procedure SetDivider(dividing_line : double);
function Divider : double;
procedure Draw(updateRect : TRect);override;
procedure MouseDown(where : TPoint);override;
procedure AttachedToWindow;override;
procedure MakeFocus(focusState : boolean);override;
procedure SetEnabled(state : boolean);
procedure FrameMoved(new_position : TPoint);override;
procedure FrameResized(new_width : double; new_height : double);override;
procedure WindowActivated(active : boolean);override;
procedure GetPreferredSize(width : double; height : double);
procedure ResizeToPreferred;override;
procedure MessageReceived(msg : TMessage);override;
function ResolveSpecifier(msg : TMessage; index : integer; specifier : TMessage; form : integer; properti : PChar) : THandler;
procedure MouseUp(pt : TPoint);override;
procedure MouseMoved(pt : TPoint; code : Cardinal; msg : TMessage);override;
procedure DetachedFromWindow;override;
procedure AllAttached;override;
procedure AllDetached;override;
function GetSupportedSuites(data : TMessage) : TStatus_t;
procedure SetFlags(flags : Cardinal);
function Perform(d : TPerform_code; arg : Pointer) : TStatus_t;
{ procedure _ReservedTextControl1;
procedure _ReservedTextControl2;
procedure _ReservedTextControl3;
procedure _ReservedTextControl4;
function operator=( : TTextControl) : TTextControl;
procedure CommitValue;
procedure InitData(label : PChar; initial_text : PChar; data : TMessage);
procedure _BTextInput_ *fText;
procedure char *fLabel;
procedure BMessage *fModificationMessage;
procedure alignment fLabelAlign;
procedure float fDivider;
procedure uint16 fPrevWidth;
procedure uint16 fPrevHeight;
procedure uint32 _reserved[3];
procedure uint32 _more_reserved[4];
procedure bool fClean;
procedure bool fSkipSetFlags;
procedure bool fUnusedBool1;
procedure bool fUnusedBool2;
}
end;
procedure BTextControl_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_Free';
function BTextControl_Create(AObject : TBeObject; frame : TCPlusObject; name, aLabel ,initial: PChar; message : TCPlusObject; resizingMode, flags : Cardinal): TCPlusObject; cdecl; external BePascalLibName name 'BTextControl_Create';
function BTextControl_Create(AObject : TBeObject; data : TCPlusObject): TCPlusObject; cdecl; external BePascalLibName name 'BTextControl_Create_1';
function BTextControl_Instantiate(AObject : TCPlusObject; data : TCPlusObject) : TArchivable; cdecl; external BePascalLibName name 'BTextControl_Instantiate';
function BTextControl_Archive(AObject : TCPlusObject; data : TCPlusObject; deep : boolean) : TStatus_t; cdecl; external BePascalLibName name 'BTextControl_Archive';
procedure BTextControl_SetText(AObject : TCPlusObject; text : PChar); cdecl; external BePascalLibName name 'BTextControl_SetText';
function BTextControl_Text(AObject : TCPlusObject) : PChar; cdecl; external BePascalLibName name 'BTextControl_Text';
procedure BTextControl_SetValue(AObject : TCPlusObject; value : integer); cdecl; external BePascalLibName name 'BTextControl_SetValue';
function BTextControl_Invoke(AObject : TCPlusObject; msg : TCPlusObject) : TStatus_t; cdecl; external BePascalLibName name 'BTextControl_Invoke';
function BTextControl_TextView(AObject : TCPlusObject) : TTextControl; cdecl; external BePascalLibName name 'BTextControl_TextView';
procedure BTextControl_SetModificationMessage(AObject : TCPlusObject; message : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_SetModificationMessage';
function BTextControl_ModificationMessage(AObject : TCPlusObject) : TMessage; cdecl; external BePascalLibName name 'BTextControl_ModificationMessage';
procedure BTextControl_SetAlignment(AObject : TCPlusObject; alabel : TAlignment; texte : TAlignment); cdecl; external BePascalLibName name 'BTextControl_SetAlignment';
procedure BTextControl_GetAlignment(AObject : TCPlusObject; alabel : TAlignment; texte : TAlignment); cdecl; external BePascalLibName name 'BTextControl_GetAlignment';
procedure BTextControl_SetDivider(AObject : TCPlusObject; dividing_line : double); cdecl; external BePascalLibName name 'BTextControl_SetDivider';
function BTextControl_Divider(AObject : TCPlusObject) : double; cdecl; external BePascalLibName name 'BTextControl_Divider';
procedure BTextControl_Draw(AObject : TCPlusObject; updateRect : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_Draw';
procedure BTextControl_MouseDown(AObject : TCPlusObject; where : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_MouseDown';
procedure BTextControl_AttachedToWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_AttachedToWindow';
procedure BTextControl_MakeFocus(AObject : TCPlusObject; focusState : boolean); cdecl; external BePascalLibName name 'BTextControl_MakeFocus';
procedure BTextControl_SetEnabled(AObject : TCPlusObject; state : boolean); cdecl; external BePascalLibName name 'BTextControl_SetEnabled';
procedure BTextControl_FrameMoved(AObject : TCPlusObject; new_position : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_FrameMoved';
procedure BTextControl_FrameResized(AObject : TCPlusObject; new_width : double; new_height : double); cdecl; external BePascalLibName name 'BTextControl_FrameResized';
procedure BTextControl_WindowActivated(AObject : TCPlusObject; active : boolean); cdecl; external BePascalLibName name 'BTextControl_WindowActivated';
procedure BTextControl_GetPreferredSize(AObject : TCPlusObject; width : double; height : double); cdecl; external BePascalLibName name 'BTextControl_GetPreferredSize';
procedure BTextControl_ResizeToPreferred(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_ResizeToPreferred';
procedure BTextControl_MessageReceived(AObject : TCPlusObject; msg : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_MessageReceived';
function BTextControl_ResolveSpecifier(AObject : TCPlusObject; msg : TCPlusObject; index : integer; specifier : TCPlusObject; form : integer; properti : PChar) : THandler; cdecl; external BePascalLibName name 'BTextControl_ResolveSpecifier';
procedure BTextControl_MouseUp(AObject : TCPlusObject; pt : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_MouseUp';
procedure BTextControl_MouseMoved(AObject : TCPlusObject; pt : TCPlusObject; code : Cardinal; msg : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_MouseMoved';
procedure BTextControl_DetachedFromWindow(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_DetachedFromWindow';
procedure BTextControl_AllAttached(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_AllAttached';
procedure BTextControl_AllDetached(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_AllDetached';
function BTextControl_GetSupportedSuites(AObject : TCPlusObject; data : TCPlusObject) : TStatus_t; cdecl; external BePascalLibName name 'BTextControl_GetSupportedSuites';
procedure BTextControl_SetFlags(AObject : TCPlusObject; flags : Cardinal); cdecl; external BePascalLibName name 'BTextControl_SetFlags';
function BTextControl_Perform(AObject : TCPlusObject; d : TPerform_code; arg : Pointer) : TStatus_t; cdecl; external BePascalLibName name 'BTextControl_Perform';
{procedure BTextControl__ReservedTextControl1(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl__ReservedTextControl1';
procedure BTextControl__ReservedTextControl2(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl__ReservedTextControl2';
procedure BTextControl__ReservedTextControl3(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl__ReservedTextControl3';
procedure BTextControl__ReservedTextControl4(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl__ReservedTextControl4';
function BTextControl_operator=(AObject : TCPlusObject; : TTextControl) : TTextControl; cdecl; external BePascalLibName name 'BTextControl_operator=';
procedure BTextControl_CommitValue(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_CommitValue';
procedure BTextControl_InitData(AObject : TCPlusObject; label : PChar; initial_text : PChar; data : TMessage); cdecl; external BePascalLibName name 'BTextControl_InitData';
procedure BTextControl__BTextInput_ *fText(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl__BTextInput_ *fText';
procedure BTextControl_char *fLabel(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_char *fLabel';
procedure BTextControl_BMessage *fModificationMessage(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_BMessage *fModificationMessage';
procedure BTextControl_alignment fLabelAlign(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_alignment fLabelAlign';
procedure BTextControl_float fDivider(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_float fDivider';
procedure BTextControl_uint16 fPrevWidth(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_uint16 fPrevWidth';
procedure BTextControl_uint16 fPrevHeight(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_uint16 fPrevHeight';
procedure BTextControl_uint32 _reserved[3](AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_uint32 _reserved[3]';
procedure BTextControl_uint32 _more_reserved[4](AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_uint32 _more_reserved[4]';
procedure BTextControl_bool fClean(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_bool fClean';
procedure BTextControl_bool fSkipSetFlags(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_bool fSkipSetFlags';
procedure BTextControl_bool fUnusedBool1(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_bool fUnusedBool1';
procedure BTextControl_bool fUnusedBool2(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_bool fUnusedBool2';
}
implementation
destructor TTextControl.Destroy;
begin
BTextControl_Free(CPlusObject);
inherited;
end;
constructor TTextControl.Create(frame : TRect; name, aLabel,initial : PChar; message : TMessage; resizingMode, flags : Cardinal);
begin
CreatePas;
CPlusObject := BTextControl_Create(Self, frame.CPlusObject, name, aLabel,initial, message.CPlusObject, resizingMode, flags);
end;
constructor TTextControl.Create(data : TMessage);
begin
CreatePas;
CPlusObject := BTextControl_Create(Self, data.CPlusObject);
end;
function TTextControl.Instantiate(data : TMessage) : TArchivable;
begin
Result := BTextControl_Instantiate(CPlusObject, data.CPlusObject);
end;
function TTextControl.Archive(data : TMessage; deep : boolean) : TStatus_t;
begin
Result := BTextControl_Archive(CPlusObject, data.CPlusObject, deep);
end;
procedure TTextControl.SetText(texte : PChar);
begin
BTextControl_SetText(CPlusObject, texte);
end;
function TTextControl.Text : PChar;
begin
Result := BTextControl_Text(CPlusObject);
end;
procedure TTextControl.SetValue(valu : integer);
begin
BTextControl_SetValue(CPlusObject, valu);
end;
function TTextControl.Invoke(msg : TMessage) : TStatus_t;
begin
Result := BTextControl_Invoke(CPlusObject, msg.CPlusObject);
end;
function TTextControl.TextView : TTextControl;
begin
Result := BTextControl_TextView(CPlusObject);
end;
procedure TTextControl.SetModificationMessage(message : TMessage);
begin
BTextControl_SetModificationMessage(CPlusObject, message.CPlusObject);
end;
function TTextControl.ModificationMessage : TMessage;
begin
Result := BTextControl_ModificationMessage(CPlusObject);
end;
procedure TTextControl.SetAlignment(alabel : TAlignment; texte : TAlignment);
begin
BTextControl_SetAlignment(CPlusObject, alabel, texte);
end;
procedure TTextControl.GetAlignment(alabel : TAlignment; texte : TAlignment);
begin
BTextControl_GetAlignment(CPlusObject, alabel, texte);
end;
procedure TTextControl.SetDivider(dividing_line : double);
begin
BTextControl_SetDivider(CPlusObject, dividing_line);
end;
function TTextControl.Divider : double;
begin
Result := BTextControl_Divider(CPlusObject);
end;
procedure TTextControl.Draw(updateRect : TRect);
begin
end;
procedure TTextControl.MouseDown(where : TPoint);
begin
end;
procedure TTextControl.AttachedToWindow;
begin
end;
procedure TTextControl.MakeFocus(focusState : boolean);
begin
BTextControl_MakeFocus(CPlusObject, focusState);
end;
procedure TTextControl.SetEnabled(state : boolean);
begin
BTextControl_SetEnabled(CPlusObject, state);
end;
procedure TTextControl.FrameMoved(new_position : TPoint);
begin
end;
procedure TTextControl.FrameResized(new_width : double; new_height : double);
begin
// BTextControl_FrameResized(CPlusObject, new_width, new_height);
end;
procedure TTextControl.WindowActivated(active : boolean);
begin
//BTextControl_WindowActivated(CPlusObject, active);
end;
procedure TTextControl.GetPreferredSize(width : double; height : double);
begin
//BTextControl_GetPreferredSize(CPlusObject, width, height);
end;
procedure TTextControl.ResizeToPreferred;
begin
//BTextControl_ResizeToPreferred(CPlusObject);
end;
procedure TTextControl.MessageReceived(msg : TMessage);
begin
//BTextControl_MessageReceived(CPlusObject, msg.CPlusObject);
end;
function TTextControl.ResolveSpecifier(msg : TMessage; index : integer; specifier : TMessage; form : integer; properti : PChar) : THandler;
begin
Result := BTextControl_ResolveSpecifier(CPlusObject, msg.CPlusObject, index, specifier.CPlusObject, form, properti);
end;
procedure TTextControl.MouseUp(pt : TPoint);
begin
//BTextControl_MouseUp(CPlusObject, pt.CPlusObject);
end;
procedure TTextControl.MouseMoved(pt : TPoint; code : Cardinal; msg : TMessage);
begin
//BTextControl_MouseMoved(CPlusObject, pt.CPlusObject, code, msg);
end;
procedure TTextControl.DetachedFromWindow;
begin
//BTextControl_DetachedFromWindow(CPlusObject);
end;
procedure TTextControl.AllAttached;
begin
//BTextControl_AllAttached(CPlusObject);
end;
procedure TTextControl.AllDetached;
begin
//BTextControl_AllDetached(CPlusObject);
end;
function TTextControl.GetSupportedSuites(data : TMessage) : TStatus_t;
begin
Result := BTextControl_GetSupportedSuites(CPlusObject, data.CPlusObject);
end;
procedure TTextControl.SetFlags(flags : Cardinal);
begin
BTextControl_SetFlags(CPlusObject, flags);
end;
function TTextControl.Perform(d : TPerform_code; arg : Pointer) : TStatus_t;
begin
Result := BTextControl_Perform(CPlusObject, d, arg);
end;
{procedure TTextControl._ReservedTextControl1;
begin
BTextControl__ReservedTextControl1(CPlusObject);
end;
procedure TTextControl._ReservedTextControl2;
begin
BTextControl__ReservedTextControl2(CPlusObject);
end;
procedure TTextControl._ReservedTextControl3;
begin
BTextControl__ReservedTextControl3(CPlusObject);
end;
procedure TTextControl._ReservedTextControl4;
begin
BTextControl__ReservedTextControl4(CPlusObject);
end;
function TTextControl.operator=( : TTextControl) : TTextControl;
begin
Result := BTextControl_operator=(CPlusObject, );
end;
procedure TTextControl.CommitValue;
begin
BTextControl_CommitValue(CPlusObject);
end;
procedure TTextControl.InitData(label : PChar; initial_text : PChar; data : TMessage);
begin
BTextControl_InitData(CPlusObject, label, initial_text, data.CPlusObject);
end;
procedure TTextControl._BTextInput_ *fText;
begin
BTextControl__BTextInput_ *fText(CPlusObject);
end;
procedure TTextControl.char *fLabel;
begin
BTextControl_char *fLabel(CPlusObject);
end;
procedure TTextControl.BMessage *fModificationMessage;
begin
BTextControl_BMessage *fModificationMessage(CPlusObject);
end;
procedure TTextControl.alignment fLabelAlign;
begin
BTextControl_alignment fLabelAlign(CPlusObject);
end;
procedure TTextControl.float fDivider;
begin
BTextControl_float fDivider(CPlusObject);
end;
procedure TTextControl.uint16 fPrevWidth;
begin
BTextControl_uint16 fPrevWidth(CPlusObject);
end;
procedure TTextControl.uint16 fPrevHeight;
begin
BTextControl_uint16 fPrevHeight(CPlusObject);
end;
procedure TTextControl.uint32 _reserved[3];
begin
BTextControl_uint32 _reserved[3](CPlusObject);
end;
procedure TTextControl.uint32 _more_reserved[4];
begin
BTextControl_uint32 _more_reserved[4](CPlusObject);
end;
procedure TTextControl.bool fClean;
begin
BTextControl_bool fClean(CPlusObject);
end;
procedure TTextControl.bool fSkipSetFlags;
begin
BTextControl_bool fSkipSetFlags(CPlusObject);
end;
procedure TTextControl.bool fUnusedBool1;
begin
BTextControl_bool fUnusedBool1(CPlusObject);
end;
procedure TTextControl.bool fUnusedBool2;
begin
BTextControl_bool fUnusedBool2(CPlusObject);
end;
}
end.