Win, Dlg, Bar, Btn, Fld-Painter and Font-Edit => UPDATE 2.2a

Win, Dlg, Bar, Btn, Fld-Painter and Font-Edit => UPDATE 2.2a

Postby ukoenig » Mon Feb 14, 2011 12:14 pm

A all in one Solution :
Backgrounds for Window, Dialog, Folder and Font-painter

All Selections are included in one Dialog.
Only Controls for selected Combinations are visible :
Window, Dialog, Folder => Color, Gradient, Brush, Image
A Fonteditor can be added to Dialog- and Folder-Preview for => Say, Radio and Checkbox

The Download is splitted, to keep Updates small in Size.

1. Exe- and Link-Files ( 0.9 MB ) Release 2.2 :
http://www.pflegeplus.com/fw_downloads/Backpart1.zip
2. Editor and Freeimage ( 2.1 MB ) :
http://www.pflegeplus.com/fw_downloads/Backpart2.zip
3. Images ( 0.8 MB ) :
http://www.pflegeplus.com/fw_downloads/Backpart3.zip

You can have a look at the new Release :
viewtopic.php?f=3&t=18167&p=111550#p111550

Check Pathdefines in GO1.bat and MAKE1.rmk !!!!
to create a EXE-file
Images are stored in Subdirectory ????? \BITMAPS

SPECIFICATION :

BACKGROUND-Tests
Color,Gradient,Brush,Image
for
Window,Dialog,Folder

CONTROL-Transparent-Tests on Dialog and Folderpages ( Class TFOLDEX )
Say, Checkbox, Radios

FOLDER-TAB-Settings
Height, Seperator, Font-Style and Color

FONT-Settings
Style, Size, Width, Color

Full Screen-preview and Realtime-preview of Selections / Settings

Create Prg- and Exe-File

Reset to use and Test a INI-File with selected Values.
That makes it possible, to create User-defined-backgrounds with values loaded at Application-Start


Vars used from INI-File :
Code: Select all  Expand view

// WINDOW
// ---------------
nOption1 := 4 // WINDOW = Color, Gradient, Brush, Image
nMove1 := 0.50 // Gradient-Position
nColor1a := 14853684 // 1. Color
nColor1b := 16312263 // 2. Color Gradient
aColors1 := { { nMove1, nColor1a, nColor1b }, { nMove1, nColor1b, nColor1a } }
lDirect1 := .T. // Gradient Direction
cBrush1 := "Marble.bmp" // Brush
cImage1 := "Back3.jpg" // Image

// DIALOG
// -----------
nOption2 := 4 // DIALOG = Color, Gradient, Brush, Image
nMove2 := 0.50
nColor2a := 14853684
nColor2b := 16312263
aColors2 := { { nMove2, nColor2a, nColor2b }, { nMove2, nColor2b, nColor2a } }
lDirect2 := .T.
cBrush2 := "Marble.bmp"
cImage2 := "Back1.jpg"
nTColor2 := 65535 // Text-Color

// FOLDER
// -----------
nOption3 := 3 // FOLDER = Color, Gradient, Brush, Image
nMove3 := 0.50
nColor3a := 14853684
nColor3b := 16312263
aColors3 := { { nMove3, nColor3a, nColor3b }, { nMove3, nColor3b, nColor3a } }
lDirect3 := .T.
cBrush3 := "Marble.bmp"
cImage3 := "Back1.jpg"
nTabH := 25 // Tab-Height
nTabS := 5 // Tab-Separator
cTabBmp := "16edit.bmp" // Tab-Bmp
cTabBrush := "Marble.bmp" // Tab-Brush
nTColor3        := 65535 // Tab-Text-Color
 


Easy to use

Image

Overview ( only Controls in Relation to Window, Dialog and Folder will be visible )

Image

Full Screen-preview

Image

The created Exe-File

Image

Selected Controls in Relation to Color, Gradient, Brush and Image

Image

The different Folder-Settings

Image

The Font-Editor for Dialog / Folder - Say, Radio, Checkbox and Tabs
( shows a added Font-color-editor )

Image

Best Regards
Uwe :lol:
Last edited by ukoenig on Thu Mar 03, 2011 3:48 pm, edited 20 times in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: All in One : Wind.,Dlg.,Folder-Backgrd., Font-Painter DOWNLD

Postby Bayron » Mon Feb 14, 2011 6:24 pm

Thanks Uwe for sharing, as always you provide us with great tools...
=====>

Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: All in One : Wind.,Dlg.,Folder-Backgrd., Font-Painter DOWNLD

Postby ukoenig » Mon Feb 14, 2011 8:25 pm

Hello Byron,

nice to hear, You like it.
I fixed a little Bug inside the PRG-creator ( belongs to Dialog-gradient-background )
You can Download a fixed Version :
1. Exe- and Link-Files ( 0.9 MB ) Release 2.2 :
http://www.pflegeplus.com/fw_downloads/Backpart1.zip

Maybe still something missing ?

Added to created PRG ( Dialog-gradient ):

ACTIVATE DIALOG oWndDlg NOWAIT ;
ON INIT NEW_BRUSH(oWndDlg) ; // only needed for Gradient.-painting
ON PAINT F_BACKGRD( 4, oFld, hDC,0.5,14853684,16312263,.T.,"Marble.bmp","Back1.jpg")

RETURN NIL
//------------------------
FUNCTION NEW_BRUSH(oWndDlg)
...

Best Regards
Uwe :lol:
Last edited by ukoenig on Wed Feb 16, 2011 11:04 pm, edited 1 time in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: All in One : Wind.,Dlg.,Folder-Backgrd., Font-Painter DOWNLD

Postby Bayron » Mon Feb 14, 2011 8:41 pm

I don't just like it, I LOVE IT, thanks to programmers like you, is that I am starting to scratch the surface of FiveWin, so Internet don't have enough terabytes of hard drive space to write Thanks the times I want to Thank You and many other programmers for the help that you bring us...
=====>

Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: All in One : Win-, Dlg-, Fld-Backgrd., Font-Edit UPD. 2.2a

Postby ukoenig » Wed Feb 16, 2011 8:58 pm

Here is a Update with some small fixes and new Functions
The Zip-file includes some Gradient-JPG's. Please copy to Sub-directory \Bitmaps

1. UPDATE Exe- and Link-Files ( 1.0 MB ) Release 2.2a :
http://www.pflegeplus.com/fw_downloads/Backpart1_1.zip

Only needed for new Install ( no Changes ) :
2. Editor and Freeimage ( 2.1 MB ) :
http://www.pflegeplus.com/fw_downloads/Backpart2.zip
3. Images ( 0.8 MB ) :
http://www.pflegeplus.com/fw_downloads/Backpart3.zip

Image

Button-group added on Preview-Main-window, to switch the Dialog ON / OFF
The Dialog Exit-button only closes the Dialog and enables to view a full Window-background
The Window-Exit-button closes the Preview

Image

Full preview of Window-background with closed Dialog

Image

I created some Gradient JPG's
You can copy them from here, if You like it to use them as Window-background.

LOCAL aRect3 := GetSysmetrics( 1 ) // Screen-Height
LOCAL aRect4 := GetSysmetrics( 0 ) // Screen-Width
LOCAL oTmp

DEFINE IMAGE oTmp FILENAME c_Path + "\bitmaps\" + cImage1
oBrush := TBrush():new( ,,,, ResizeBmp( oTmp:hBitmap, aRect4, aRect3, .T. ) )
DEFINE WINDOW oWnd FROM 0, 0 TO aRect3, aRect4 ;
TITLE "Window- and Dialog-test" MDI MENU TMenu():New() BRUSH oBrush PIXEL
oTmp:End()


Image

Image

Image

Image

Image

Image

Image

Image

Image

Image

Image

Best Regards
Uwe :lol:
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: All in One : Win-, Dlg-, Fld-Backgrd., Font-Edit UPD. 2.2a

Postby Bayron » Thu Feb 17, 2011 8:42 pm

Great work Uwe, I want to create something similar to:
Image

from source code, but I think that there is not a function to do that already, using something similar to oBar:bClrGrad way to paint gradients...
=====>

Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: All in One : Win-, Dlg-, Fld-Backgrd., Font-Edit UPD. 2.2a

Postby ukoenig » Thu Feb 17, 2011 9:33 pm

Hello Bayron,

the next release 3.0 will include a new Painter BUTTONBAR

1. Select from Dialog-painter the Background
2. create a Gradient
3. Select a Button-font with the Fontpainter

4. Inside the Bar-dialog :

a ) select Barheight
b ) select Bar-position Top or Right
c ) select transparent or 2007 Button-style
d ) select BMP-Buttonposition
e ) select Button-BMP-Size

Image

A full Screen-preview :

Image

A bar-sample :

DEFINE BUTTONBAR oBar SIZE 100, nBarheight _3D OF oWndBar
oBar:bClrGrad := { | lInvert | If( ! lInvert, ;
{ { nMove,nColor1,nColor2 },;
{ nMove,nColor2,nColor1 } },;
{ { nMove,nColor2,nColor1 },;
{ nMove, nColor1,nColor2 } } ) }
oBar:nClrText := nTColor
oBar:l2007 := .T. // needed to paint gradient bars
oBar:GoTop()
// oBar:GoRight()

Best Regards
Uwe :lol:
Last edited by ukoenig on Fri Feb 18, 2011 2:37 pm, edited 6 times in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: All in One : Win-, Dlg-, Fld-Backgrd., Font-Edit UPD. 2.2a

Postby Bayron » Thu Feb 17, 2011 9:59 pm

Wonderful....
=====>

Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: Win, Dlg, Bar, Btn, Fld-Painter and Font-Edit => UPDATE 2.2a

Postby ukoenig » Sat Feb 19, 2011 11:55 am

New Buttonpainter added : Class BTNBMP !!!
Create any Button-style / size and Test Buttonfonts / Colors on a defined Dialog-background

Image

Best Regards
Uwe :P
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Win, Dlg, Bar, Btn, Fld-Painter and Font-Edit => UPDATE 2.2a

Postby Bayron » Sat Feb 19, 2011 3:07 pm

That is a Tool that will be useful to Beginners and Pro's....!!!!

Thanks Uwe....
=====>

Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 86 guests