From 294185223cd961db7db6d5668d2cfe30fd3e7590 Mon Sep 17 00:00:00 2001 From: ocoursiere Date: Wed, 15 Jan 2003 22:22:20 +0000 Subject: [PATCH] BTextControl and BStringView support --- bepascal/bepascal/be/interface/StringView.cpp | 552 ++++++++++++ .../bepascal/be/interface/TextControl.cpp | 807 ++++++++++++++++++ bepascal/bepascal/be/interface/stringview.pp | 262 ++++++ bepascal/bepascal/be/interface/textcontrol.pp | 433 ++++++++++ 4 files changed, 2054 insertions(+) create mode 100644 bepascal/bepascal/be/interface/StringView.cpp create mode 100644 bepascal/bepascal/be/interface/TextControl.cpp create mode 100644 bepascal/bepascal/be/interface/stringview.pp create mode 100644 bepascal/bepascal/be/interface/textcontrol.pp diff --git a/bepascal/bepascal/be/interface/StringView.cpp b/bepascal/bepascal/be/interface/StringView.cpp new file mode 100644 index 0000000..4d80e87 --- /dev/null +++ b/bepascal/bepascal/be/interface/StringView.cpp @@ -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 + * FILE: StringView.cpp + * DATE: Mon Jan 13 21:52:29 2003 + * DESCR: + ***********************************************************************/ +#include "StringView.h" +#include "view.h" +#include + + +#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_ */ + diff --git a/bepascal/bepascal/be/interface/TextControl.cpp b/bepascal/bepascal/be/interface/TextControl.cpp new file mode 100644 index 0000000..c1cb8f9 --- /dev/null +++ b/bepascal/bepascal/be/interface/TextControl.cpp @@ -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 + * FILE: Button.cpp + * DATE: Tue Dec 3 00:28:35 2002 + * DESCR: + ***********************************************************************/ +#include "TextControl.h" + +#include "control.h" +#include + + +#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 + * 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_ */ + diff --git a/bepascal/bepascal/be/interface/stringview.pp b/bepascal/bepascal/be/interface/stringview.pp new file mode 100644 index 0000000..86e5de2 --- /dev/null +++ b/bepascal/bepascal/be/interface/stringview.pp @@ -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. diff --git a/bepascal/bepascal/be/interface/textcontrol.pp b/bepascal/bepascal/be/interface/textcontrol.pp new file mode 100644 index 0000000..43bcb15 --- /dev/null +++ b/bepascal/bepascal/be/interface/textcontrol.pp @@ -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.