TFolderEx / TFolder-Tool => Rel. 1.0a (Download)

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

TFolderEx / TFolder-Tool => Rel. 1.0a (Download)

Posted: Wed Nov 03, 2010 01:00 PM

Hello,

the first Relase of the new TFolderEx-Tool is ready for Download.
It is a complete new Toolstyle, using a Explorerbar.
No Exit-buttons are needed, to close a Sub-dialog.
A Buttonclick on any Button inside the Explorerbar, closes the old Dialog.
There are still some more Funktions, I'm working on like :
load and save projects from and to a DBF-file and the Source-creator.
There is still my Transparent-painting-problem with
Radios, Checkboxes and Groups, I hope to find a Solution.
The 2. Folder-preview-page uses the SButton-controls from Manuel Mercado.
This works perfect.

Page 1 ( FWH ) and Page 2 ( SBUTTTON )

Code (fw): Select all Collapse

// ------- PAGE 1 ( FWH-Controls with Transparent-problem ) -------

REDEFINE GROUP oGroup1 ID 210 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oFld:aDialogs[1] ;
FONT oFont2 PROMPT "Group Caption 1"

REDEFINE GROUP oGroup2 ID 310 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oFld:aDialogs[1] ;
FONT oFont2 PROMPT "Group Caption 2"

REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS { "One", "Two", "Three" } ;
ID 230 OF oFld:aDialogs[1] ;
STYLE CBS_DROPDOWN 
oCbx1:lTransparent := .F.

REDEFINE CHECKBOX oCheck1 VAR lCheck1 OF oFld:aDialogs[1] ;
ID 320  UPDATE

oCheck1:SetColor ( F_TCOLOR )
oCheck1:oFont := oFont2

REDEFINE RADIO oRadio1 VAR nItem OF oFld:aDialogs[1] ;
ID 350, 351, 352  UPDATE

oRadio1:SetFont( oFont2 )

// ------------- PAGE 2 ( SBUTTON works ) -----------------------

REDEFINE WHITE BOX ID 210 OF oFld:aDialogs[2]  TEXT "Group-Box 1" ;
FONT oFont2  COLORS CLR_WHITE, F_TCOLOR

REDEFINE COMBOBOX oCbx2 VAR cItem1 ITEMS { "One", "Two", "Three" } ;
ID 230 OF oFld:aDialogs[2] ;
STYLE CBS_DROPDOWN 

oCbx2:SetColor( F_TCOLOR, 16777215 )
oCbx2:SetFont( oFont2 )

REDEFINE STSAY oSay2 ID 220 OF oFld:aDialogs[2] FONT oFont3;
SHADED RIGHT ;
COLORS F_TCOLOR, F_TSHADOW ;
PIXEL BLINK F_TSHADOW, 500 

REDEFINE WHITE BOX ID 310 OF oFld:aDialogs[2]  TEXT "Group-Box 2" ;
FONT oFont2  COLORS CLR_WHITE, F_TCOLOR

REDEFINE SRADIO oCheck2 VAR lCheck2 ;
PROMPT "Test of TSRadio Check Box" ;
ID 320 OF oFld:aDialogs[2] ;
FONT oFont2 ;
COLOR F_TCOLOR, 16777215 ;
CHECK ;
MESSAGE "Checkbox THIN (default), Default colors"

REDEFINE SRADIO oRadio2 VAR nItem ;
ITEMS aItems2 ;
ID 350 OF oFld:aDialogs[2] ;
FONT oFont2 ;
COLOR F_TCOLOR, F_TSHADOW ;
MESSAGE "Button THIN (default), Default colors"

Any Ideas for further Extensions are willcome.
All Painting-functions are finished.

1. Color-painter ( Dialog and Folder )
2. Gradient-painter ( Dialog and Folder )
3. Brush and Image-painter ( Dialog and Folder )
4. Font-painter
5. Folder-tab Bitmap and Text-selection
6. Folder-tab Background-painter ( Gradient and Brush ).

This first Download includes all needed Extras.
The next Updates will be only the Exe-file.
The Display is tested and adjusted to Screenresolutions of
( Best Result with 1024 x 768 ), 1152 x 864, 1280 x 768 and 1280 x 1024
Download ( 4.5 MB ) :
http://www.pflegeplus.com/fw_downloads/TFoldEx1a.zip

Background-Color-Selection
The 1. Buttonline is used for Dialog-Backgrounds, the 2. for Folders.

Background-Gradient-Selection

Background-Brush-Selection

Background-Image-Selection

Dialog and Folder-tab-Fonts and Color ( Visual-Font-Painter )

Select Folder-Tab-Bmp's and Tab-Text
The Folder-Preview will only show as many Tabs defined in this Browser.
Load Images from predefined Subdirectorys : 16x16, 24x24 or 32x32
Using a SPACE-value, You can adjust the Tab-width. The Value < 0 > adjusts the Tab-with to Textwidth.

Create and define the Tab-backgrounds ( Gradient or Brush )
With the Slider-section of the Explorerbar, You can adjust Tab-height, Space-width
and Round ( using ROUND, creates a Round Tab-bottom, must be changed ? )

With the STYLE-selector, You can define the Tab-background :

Gradient selected :

Brush selected :

The 1. Page-Preview shows FWH-controls

The 2. Page-Preview shows SButton-controls ( from Manuel Mercado )

PREVIEW on Release 2.0
All Painters will have a Source-Button to show the PRG-part of the Design
It is possible, to create a complete Appl.-Prg and Exe-File .
In the Meantime, maybe it is possible, to fix some Problems I found ???