Re: SaveComponentToFile && controlname

Author

Message

Pieter E.

Posted: 12/19/2004 12:44:24

Dear Sergey,

It works great!

Thanks for your great support!

Pieter E.

"Sergey Tkachenko" <[email protected]> wrote:

>When exporting HTML, OnSaveComponentToFile is called for all controls in

the

>document.

>In your code, you try to get information about the current item, i.e. item

>at the position of caret:

>rve->GetControlInfo(rve->CurItemNo, ...);

>But the current item is not necessary a control to save, and may be not

even

>a control at all.

>Unfotrunately, this event does not have parameters specifying the control

>location in the document.

>You need to find it yourself.

>Use this function:

>bool FindControlLocation(TCustomRVData* RVData, TControl* Ctrl,

> TCustomRVData* &CtrlRVData, int &CtrlItemNo)

> for (int i=0; i<RVData->ItemCount; i++)

> {

> if (RVData->GetItemStyle(i)==rvsComponent &&

> ( (TRVControlItemInfo*)(RVData->GetItem(i)))->Control==Ctrl)

> {

> CtrlItemNo = i;

> CtrlRVData = RVData;

> return true;

> }

> if (RVData->GetItemStyle(i)==rvsTable)

> {

> TRVTableItemInfo*table = (TRVTableItemInfo*)(RVData->GetItem(i));

> for (int r=0; r<table->Rows->Count; r++)

> for (int c=0; c<table->Rows->Items[r]->Count; c++)

> if (table->Cells[r][c])

> {

> if (FindControlLocation(table->Cells[r][c]->GetRVData(), Ctrl,

> CtrlRVData, CtrlItemNo))

> return true;

> }

> return false;

>How to use:

>case rvsfHTML:

> AnsiString aName;

> TCustomRVData*CtrlRVData;

> int CtrlItemNo;

> if (!FindControlLocation(rve->RVData, (TControl*)SaveMe, CtrlRVData,

>CtrlItemNo)

> return;

> // now you can use CtrlRVData->GetControlInfo(CtrlItemNo, aName, aCtrl,

>AVAlign, iTag);

> // but it's simpler:

> aName = CtrlRVData->GetItemText(CtlItemNo);

> if(SaveMe->InheritsFrom(__classid(TButton)))

> {

> OutStr = "<input type=button name=" + aName + ">";

> return;

> }

> break;

>> Dear Sergey,

>> I'm trying to save a TRichViewEdit to a HTML file. I've inserted some

>components

>> like a TEdit and TButton. In the SaveComponentToFile event I'd like to

get

>> the name of a control using the following code:

>> case rvsfHTML:

>> AnsiString aName;

>> TControl *aCtrl;

>> TRVVAlign AVAlign;

>> int iTag;

>> int iIndex;

>> rve->GetControlInfo(rve->CurItemNo, aName, aCtrl, AVAlign, iTag);

>> if(SaveMe->InheritsFrom(__classid(TButton)))

>> {

>> OutStr = "<input type=button name=" + aName + ">";

>> return;

>> }

>> break;

>> I get an error when I save the TRichViewEdit to a HTML-file. When I remove

>> the "rve->GetControlInfo(rve->CurItemNo, aName, aCtrl, AVAlign, iTag);"

>everything

>> works correctly, only I can't get the name of the control.

>> Is there another way to get the controlname??

>> Thanks.

>> Pieter E.