Can I use TXBrowse class from Resource?

[dutch]

I'm very impress with TXBrowse but I've used TWbrowse from Resource?
How can I replace TWbrowse from resource with TXBrowse?
If it's possible, could I have an example pls.

Regards,
Dutch

[Armando]

Dutch:

Try using

oBrw:CreateFromResource( 10 ) // 10 is your browse ID

Instead

oBrw:CreateFromCode()

Regards

[ukoenig]

Hello Dutch,

I see, you are changing from TW / TC-Browse
to xBrowse.
You can have a look at the topic DB-Tools.
It is a nice sample, what you can do.
In the moment, it is a little bit to early,
to put the source in the forum, because
it is still a lot to do.
It might give you a overview of the handling.

Greetings from germany
Uwe

[nageswaragunupudi]

You should also change wbrowse to xbrowse in the resource file.

[Otto]

Hello NageswaraRao,

would you be so kind to post a little rc- and prg-file with a demo for
fwcodesnips.com.

Thanks in advance
Otto

[StefanHaupt]

Hello Otto,

here is a small rc and prg sample

Code: Select all  Expand view

Test DIALOG DISCARDABLE 39, 40, 429, 272
STYLE WS_POPUP|WS_CAPTION|WS_SYSMENU
CAPTION "Test"
FONT 8, "Verdana"
BEGIN
  CONTROL "", 110, "TOutLook2003", 0x00800000, 3, 4, 111, 250
  CONTROL "Exit", 1001, "Button", WS_TABSTOP, 381, 234, 45, 20
  CONTROL "", 1000, "msctls_progress32", 0x00000000, 120, 238, 255, 16
  CONTROL "", 5000, "TXBrowse", WS_TABSTOP, 120, 6, 306, 224
END


Code: Select all  Expand view

DEFINE DIALOG oDlg RESOURCE "Test"
....
::oBrw := TXBrowse():New( oDlg )
....
::oBrw:CreateFromResource( 5000 )



[Otto]

Hello Stefan,

Thank you.
BTW, do you know how I could extend the VSX resource editor that I can select "TXBrowse"?
At the moment I can use copy and paste from a other project.
But it is not elegant.
Regards,
Otto

[dutch]

Dear StefanHaupt,

Thanks, I've got it.

Dear Antonio,

In xbrowse.ch is not including REDEFINE command.
Have you done the transalator command for REDEFINE? or I have to do by ourselve.

Thanks&Regards,
Dutch

[Antonio Linares]

Otto,

[Antonio Linares]

Dutch,

> In xbrowse.ch is not including REDEFINE command.

We are going to implement it asap,

[Otto]

Thank you, Antonio,

I am surprised you can do this without adding a own control to the TOOLBOX.
Great. Are you using VSX much?
Regards,
Otto

[Antonio Linares]

Otto,

>
I am surprised you can do this without adding a own control to the TOOLBOX.
>

You can do the same using Borland resources workshop

> Are you using VSX much ?

Sometimes, to learn how to use it.

[nageswaragunupudi]

Dear StefanHaupt,
In xbrowse.ch is not including REDEFINE command.
Have you done the transalator command for REDEFINE? or I have to do by ourselve.
Dutch

Actually you can use the same command for resources also like this:

Code: Select all  Expand view

@ 0,0 XBROWSE FIELDS <fileds> HEADERS <headers,...> PIXEL OF oDllg ALIAS <alias>

< your other code for other xbrowse set up if any >

oBrw:CreateFromResource( <ID> )   // instead of oBrw:CreateFromCode()
// do not use oDlg:oClient := oBrw

ACTIVATE DIALOG oDlg CETNERED


When you use oBrw:CreateFromResource( <ID> ) the @ <row>,<col> are ignored. You have to use CreateFromResource( <ID> ) after all your other code speicifications for your xbrowse.

[Antonio Linares]

NageswaraRao,

We should better have a REDEFINE XBROWSE ... to avoid confusions

[dutch]

Dear Antonio & nageswaragunupudi & Stefan

Thanks for your valuable help.

Regards,
Dutch