Style of dialog

[Detlef]

Hi all,
I made a step from fwh 10.2 to version 21.11.
The enhancements made in the mean time are very impressive.

i like very much the style of the edit dialog of xbrowse.

But I can't find out how it's done.
Please, could anyone give me an idea how to do this?

Thanks,
Detlef

[Marc Venken]

In the sample of Yunus, there is a nice sample included.

This one is also interesting :

Code: Select all  Expand view  RUN

  aData := { { "Name", Space(40) }, ;
             { "DOB",  CToD(''), nil, nil, { || aData[ 2, 2 ] < STOD('19900101' ) } }, ; // valid
             { "Salary", 0, nil, NumPict(11,2) }, ; // picture clause
             { "State", "NY", nil, { { "NY", "NewYork" }, { "CA", "California" } } }, ; // dbcombo
             { "Married", .f. }, ; // auto checkbox
             { "Country", "USA", .f. }, ; // not editable
             { "Notes",   "",  nil, 'M' } } // MemoEdit
  lModified := MsgGet( "EDIT VALUES", "Short Msg", aData )

 

[Detlef]

Thanks, Marc.
I'll have a look at this.

[nageswaragunupudi]

Source is in source\classes\tdatarow.prg

[Detlef]

Thanks Mr. Rao.
I already found that.
But I'm not able to discover how the look of the Edit Dialog is made.
That flat style.
Is it due to the TScrollPanel?
I didn't yet work with panels.

[nageswaragunupudi]

Is it due to the TScrollPanel?

Yes.
What is the FWH version you are using?

[Detlef]

Mr. Rao,
I made a big step from FWH 10.2. to version 21.11. In the meantime I didn't write programs.
I'll try some coding with panels to learn about them.
Until now I do dialogs with pelles rc editor and don't even know how to place a panel into a dialog.
But I’ll try

[James Bott]

Detlef,

don't even know how to place a panel into a dialog.

Code: Select all  Expand view  RUN

oPanel:= ...
oDlg:oClient:= oPanel

[Detlef]

James,
many thanks for your hint.

I'm still struggling to find out the handling of panels.
i have a dialog defined by resource with many gets and some buttons.
My try was to define a panel "oPanel := oPanel := TPanel():New( )"
and to change all REDEFINE xyz OF oDlg to REDEFINE xyz OF oPanel
plus set "oDlg:oClient := oPanel"
But this doesn't work.

I'll have to study more of the fwh internals.

[James Bott]

Detlef,

Why do you want to put a panel on a dialog?

I generally put panels on windows, mostly to add spacer bars.

If you looking to put various controls on a panel you may have to do that either manually, or with your resource designer. You may have to manually add a panel object to the resource editor. And I don't know how to do that.

James

[Detlef]

James,

my application starts with a dialog because so it’s easier for me to design it by pelles rc-editor.
Using a window instead I would have hours to design the screen and placing all gets, browses and buttons.
My concern was to get the neat look of the xBrowse edit dialog as you can see at top of my post.
May be there are other ways to reach that.
I'm still studying samples and sources.

Have a nice weekend.
-Detlef