Next FWH 8.02 Tabs

[James Bott]

Antonio,

>This class uses Bitmaps, so you have to provide different bitmaps

Just to clarify, when you refer to bitmaps you are referring to bitmaps for the background gradient color, not to bitmap icons on the tabs, correct?

Can these tabs display bitmap icons also?

James

[Antonio Linares]

James,

The background is a bitmap and the tabs themselves are bitmaps too.

> Can these tabs display bitmap icons also?

Yes, we can also paint small bitmaps on top of the tabs
We are going to provide a sample asap

[Antonio Linares]

Using bitmaps on the tabs:

[James Bott]

Antonio,

Great work.

Can we see the code for the sample (not the class, just the code for the sample used to create the screenshot)?

James

[Antonio Linares]

James,

Code: Select all

function Main()

   local oTabs1, oTabs2

   DEFINE WINDOW oWnd TITLE "Testing FiveWin Tabs" ;
      COLOR CLR_WHITE, CLR_BLUE

   @ 8, 0 TABS oTabs1 PROMPTS "&One", "&Two", "T&hree", "&Four" OF oWnd ;
      BITMAPS "people.bmp", "open2.bmp", "print.bmp", "zoom2.bmp" ;
      ACTION oWnd:Say( 5, 5, oTabs1:nOption )

   oWnd:oTop = oTabs1

   @ 8, 0 TABS oTabs2 PROMPTS "&One", "&Two", "T&hree", "&Four" OF oWnd ;
      BITMAPS "people.bmp", "open2.bmp", "print.bmp", "zoom2.bmp" ;
      ACTION oWnd:Say( 7, 5, oTabs2:nOption )

   oWnd:oBottom = oTabs2

   ACTIVATE WINDOW oWnd

return nil

[James Bott]

Antonio,

Thanks. It looks real easy. Nice!

James

[Antonio Linares]

The text in the top tabs has been moved down one pixel, so it looks better now

[Antonio Linares]

Here you have an EXE to try:

http://rapidshare.com/files/85924536/test.zip.html

[Antonio Linares]

Almost finished:

[vilian]

Antonio,

And in the other controls the 2007 definition of colors must also be made through bitmaps?

[Antonio Linares]

Vilian,

In Class TMsgBar yes, it also uses a bitmap

[Antonio Linares]

Finished:

[Patrick Mast]

Finished:

Great!

[FiveWiDi]

James,

Code: Select all

function Main()

   local oTabs1, oTabs2

   DEFINE WINDOW oWnd TITLE "Testing FiveWin Tabs" ;
      COLOR CLR_WHITE, CLR_BLUE

   @ 8, 0 TABS oTabs1 PROMPTS "&One", "&Two", "T&hree", "&Four" OF oWnd ;
      BITMAPS "people.bmp", "open2.bmp", "print.bmp", "zoom2.bmp" ;
      ACTION oWnd:Say( 5, 5, oTabs1:nOption )

   oWnd:oTop = oTabs1

   @ 8, 0 TABS oTabs2 PROMPTS "&One", "&Two", "T&hree", "&Four" OF oWnd ;
      BITMAPS "people.bmp", "open2.bmp", "print.bmp", "zoom2.bmp" ;
      ACTION oWnd:Say( 7, 5, oTabs2:nOption )

   oWnd:oBottom = oTabs2

   ACTIVATE WINDOW oWnd

return nil

Antonio,

Cómo lo ves el crear unas cláusulas TOP, BOTTOM, LEFT, RIGHT?

Saludos
Carlos G.

[Antonio Linares]

Carlos,

It is already implemented:

oTabs:nOrientation = OR_TOP | OR_BOTTOM | OR_LEFT | OR_RIGHT

We could set it from the CH command