| Цитата(SerK @ 7.8.2008, 20:14) | Давно не было возможности посетить форум, но вопросы по этой теме остались.
Есть у меня книга Шамиса, по ней пытаюсь прописать в своем компонента редактор свойств TStringProperty. Работает во время проектирования, но при компиляции выдается сообщение об ошибке:
| Код |
[Linker Error] Unresolved external '__tpdsc__ Designeditors::TStringProperty' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\LIB\PROBAEDITPROPP.LIB|E:\Мои проекты-С++\Компоненты\ ProbaEditProp\ProbaEditProp.cpp
[Linker Error] Unresolved external 'Designeditors::TStringProperty::' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\LIB\PROBAEDITPROPP.LIB|E:\Мои проекты-С++\Компоненты \ProbaEditProp\ProbaEditProp.cpp
|
Уже три дня бьюсь на этой проблемой, пересмотрел все справки, примеры в Борланде, не могу найти ошибку.
Вячеслав, спасибо за помощь, ваш совет как прописать PropertyList, действует, но тоже до компиляции. В чем тут дело? Уже голова пухнет.
Вот код компонента (чисто пробный пример, он реализует одно только свойство - строковый редактор для Caption):
| Код |
//Файл Н:
//---------------------------------------------------------------------------
#ifndef ProbaEditPropH
#define ProbaEditPropH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <DesignIntf.hpp>
#include <DesignEditors.hpp>
//---------------------------------------------------------------------------
class PACKAGE TProbaEditProp : public TGraphicControl
{
private:
String FCaption;
protected:
public:
__fastcall TProbaEditProp(TComponent* Owner);
__fastcall virtual ~TProbaEditProp(void);
__published:
__property String Caption={read=FCaption,write=FCaption};
};
//---------------------------------------------------------------------------
class TMyPropertyEditor : public TStringProperty
{
public:
TPropertyAttributes __fastcall GetAttributes();
void __fastcall GetValues(TGetStrProc StrVal);
void __fastcall Edit();
void __fastcall CreateFormDialog();
};
//---------------------------------------------------------------------------
#endif
//Файл СРР:
#include <vcl.h>
#pragma hdrstop
#include "ProbaEditProp.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
static inline void ValidCtrCheck(TProbaEditProp *)
{
new TProbaEditProp(NULL);
}
//---------------------------------------------------------------------------
__fastcall TProbaEditProp::TProbaEditProp(TComponent* Owner)
: TGraphicControl(Owner)
{
}
//---------------------------------------------------------------------------
TPropertyAttributes __fastcall TMyPropertyEditor::GetAttributes()
{
return TPropertyAttributes()<<paDialog;
}
//---------------------------------------------------------------------------
void __fastcall TMyPropertyEditor::GetValues(TGetStrProc StrVal)
{
}
//---------------------------------------------------------------------------
void __fastcall TMyPropertyEditor::Edit()
{
CreateFormDialog();
}
//---------------------------------------------------------------------------
namespace Probaeditprop
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TProbaEditProp)};
RegisterComponents("MySamples", classes, 0);
PTypeInfo typeinfo=*GetPropInfo(__typeinfo(TProbaEditProp),
"Caption")->PropType;
RegisterPropertyEditor(typeinfo,__classid(TProbaEditProp),
"Caption",__classid(TMyPropertyEditor));
}
}
//---------------------------------------------------------------------------
__fastcall TProbaEditProp::~TProbaEditProp(void)
{
Destroying();
}
void __fastcall TMyPropertyEditor::CreateFormDialog()
{
TForm *formStrDialog=new TForm(Application);
formStrDialog->Left=200;
formStrDialog->Top=Screen->DesktopHeight/3;
formStrDialog->BorderStyle=bsDialog;
formStrDialog->Caption="Вставить текст";
TMemo *memo=new TMemo(formStrDialog);
memo->Parent=formStrDialog;
memo->Left=7;
memo->Top=7;
memo->Width=formStrDialog->ClientWidth-14;
memo->Height=formStrDialog->ClientHeight-45;
TButton *buttNo=new TButton(formStrDialog);
buttNo->Parent=formStrDialog;
buttNo->Left=memo->Left+memo->Width-buttNo->Width;
buttNo->Top=memo->Top+memo->Height+7;
buttNo->Caption="Нет";
buttNo->ModalResult=mrCancel;
TButton *buttYes=new TButton(formStrDialog);
buttYes->Parent=formStrDialog;
buttYes->Left=buttNo->Left-buttYes->Width-5;
buttYes->Top=buttNo->Top;
buttYes->Caption="Да";
buttYes->ModalResult=mrOk;
buttYes->TabOrder=1;
formStrDialog->ShowModal();
if(formStrDialog->ModalResult==mrOk)
{SetValue(memo->Text);}
else {formStrDialog->Close();}
delete formStrDialog;
}
|
Кстати, этот компонент можно установить и опробовать.
Может у кого есть готовый отлаженный пример, буду очень благодарен, вышлю исходный код компонента типа TListView, где заголовки, ячейки закрашиваются градиентом, разными цветами, используется разноцветные надписи и тд.
Приблизительный будущий вид компонента (это не фотошоп) в присоединенном файле: |
Добавь в проект run-time package designide.bpi
А вообще лучше выделять у компонента все редакторы и пр. design time прибамбахи в отдельную dll (пакет) и грузить ее динамически (через LoadPackage), иначе придется вместе с приложением таскать все редакторы компонентов и кусок самого Builder IDE  |
)
designide.bpi бинарный файл (статическая библиотека), не надо его редактировать (да и не получится) 