Форум: "Компоненты";
Текущий архив: 2007.06.10;
Скачать: [xml.tar.bz2];
ВнизДизайнТайм VS Рантайм Найти похожие ветки
← →
DevilDevil © (2006-08-15 19:09) [0]При изменении свойства, в ДизайнТайм всё работает как надо; в рантайм не хочет. У кого нибудь возникала такая проблема?
← →
Юрий Зотов © (2006-08-15 22:29) [1]Похоже, что свойство не сохраняется в DFM.
← →
Phoroon~ © (2006-08-15 23:46) [2]Кого предок, твое свойство.
← →
DevilDevil © (2006-08-16 16:57) [3]> Юрий Зотов © (15.08.06 22:29) [1]
Похоже, что свойство не сохраняется в DFM.
Да, действительно. Посмотрел DFM, компонент не сохраняется
> Phoroon~ © (15.08.06 23:46) [2]
> Кого предок, твое свойство.
думаю, лучше показать:class TCellStyleStruct : public TPersistent
{
private:
TBorder FLeftBorder;
TBorder FRightBorder;
TBorder FTopBorder;
TBorder FBottomBorder;
TBorder * __fastcall GetLeftBorder (){return &FLeftBorder ;}
TBorder * __fastcall GetRightBorder (){return &FRightBorder ;}
TBorder * __fastcall GetTopBorder (){return &FTopBorder ;}
TBorder * __fastcall GetBottomBorder(){return &FBottomBorder;}
void __fastcall SetBorderColor(TColor Value);
void __fastcall SetBorderStyle(TPenStyle Value);
TFont* FFont;
void __fastcall SetFont (TFont *F){FFont->Assign(F); }
TColor FBorderColor;
TPenStyle FBorderStyle;
TColor FCellColor;
void __fastcall SetCellColor(TColor Value) {FCellColor = Value;}
public:
__fastcall TCellStyleStruct(TPersistent &AOwner);
__fastcall ~TCellStyleStruct(void){ delete FFont; };//TPersistent::~TPersistent();};
//----------------------
__property TBorder *LeftBorder = {read=GetLeftBorder };
__property TBorder *RightBorder = {read=GetRightBorder };
__property TBorder *TopBorder = {read=GetTopBorder };
__property TBorder *BottomBorder = {read=GetBottomBorder};
__published:
__property TColor CellColor = {read=FCellColor, write=SetCellColor};
__property TFont *Font = {read=FFont, write=SetFont};
__property TColor BorderColor = {read=FBorderColor, write=SetBorderColor};
__property TPenStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle};
};
__fastcall TCellStyleStruct::TCellStyleStruct(TPersistent& AOwner)
{
TPersistent::TPersistent(AOwner);
FFont = new TFont;
FCellColor = clWhite;
// Color = clBlack; PenStyle = psSolid;
ZeroMemory(&FLeftBorder , sizeof(TBorder) );
ZeroMemory(&FRightBorder , sizeof(TBorder) );
ZeroMemory(&FTopBorder , sizeof(TBorder) );
ZeroMemory(&FBottomBorder, sizeof(TBorder) );
FBorderColor = clBlack;
FBorderStyle = psSolid;
}
← →
DevilDevil © (2006-08-16 16:58) [4]всмысле... моё свойство - класс, реализация которого приведена выше
← →
DevilDevil © (2006-08-16 17:01) [5]> Юрий Зотов © (15.08.06 22:29) [1]
Сам компонент сохраняется. Не сохраняется свойство
← →
DevilDevil © (2006-08-16 19:18) [6]ДОШЛО:
__published:
__property TCellStyleStruct* StyleStandart1 = {read=GetcsStandart1};
Я write не прописал... а как write для свойства-класса прописать?
← →
DevilDevil © (2006-08-16 19:23) [7]Фууу. Ну я и...
private:
TCellStyleStruct* __fastcall GetcsStandart1()
{return FCellStyles[0];};
__fastcall SetcsStandart1(TCellStyleStruct* Value)
{FCellStyles[0]->Assign(Value);};
__published:
__property TCellStyleStruct* StyleStandart1 = {read=GetcsStandart1, write=SetcsStandart1};
Страницы: 1 вся ветка
Форум: "Компоненты";
Текущий архив: 2007.06.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.057 c