FiveTech Support Forums

Hello,

I finished the Message-painter to make it possible, to center Messages on a Dialog.

MyMsgbox.prg ( from Ramesh ) is rewritten.
The new PRG is included.

What*s new :

1. any Message-Brush
2. optional centered to Dialog or Window
3. Font-Size and Color-selection ( "Arial" is used )
4. Buttonstyle changed to BTNBMP
5. Test Messages on any Dialog-background
6. create PRG- and EXE-file of selected Message

Check the MAKE-file to compile
The Preview-dialog doesn't need a exit-button
The Dialog is auto-closed if needed ( changing the Folder-page or open a Background-painter ).

Download :
http://www.service-fivewin.de/DOWNLOADS/msgpaint3.zip

The Painter



Steps, to create a EXE-file :
1. < Windows > select / define the Window-background with Button < Create >


2. < Dialog > select / define the Dialog-background with Button < Create >


3. < MessageBox > select / define Brushes and Font-style / Color with Button < Create >

4. select one of the options < Color, Gradient, Brush >
5. select Dialog ( centered ) or Window
6. inside the Preview-dialog select one of the 9 templates
7. close the selected Message.
8. select Button < create EXE >
9. the PRG will be created, when finished, You will be asked to create the EXE-file
10. the created EXE will be opend.
11. next click the button < Show Msg >
12. the selected Message will be displayed.

13. without creating a EXE-file, You can choose < save to INI / Exit > instead of the normal < Exit >
Selecting a Template the next session, all saved Brushes and Font-settings are used.

The created PRG / EXE



Best Regards
Uwe

A little Update, to center a Message on a moved Dialog as well.
( The change is also included in the full Download )

added :

oDlg:bMoved := {|| oDlg:CoorsUpdate(), ;
aRect[1] := oDlg:nTop, aRect[2] := oDlg:nLeft, ;
aRect[3] := oDlg:nHeight, aRect[4] := oDlg:nWidth }

Download ( 0.8 MB only Exe-file )

http://www.pflegeplus.com/fw_downloads/msgpaint1a.zip

Best Regards
Uwe

New Update with some fixes.
A combination of SetDlgGradient(.... and Your own seperate Gradient-define, is supported now.

1. select < Gradient-function > from the Dialog-background



2. select < Gradient > from the Message-background



3. select create EXE > to get the PRG and EXE
a) select < Dialog >
b) inside the dialog < show message >



MsgPaint 1.2

Download ( 6.5 MB )
http://www.service-fivewin.de/DOWNLOADS/msgpaint2.zip

Best Regards
Uwe

Update 3.1 with some new options :

Download : http://www.service-fivewin.de/DOWNLOADS/Msgpaint3.zip
Startscreen


Windows-background


Dialog-background


Message-settings


Message-selection


Messages


Best regards
Uwe

The download dont work

tx

Uwe, all links and images are broken. Do not work.

Regards, saludos.

Uwe, all links and images are broken. Do not work.

Last post links updated :!: :!: :!:

regards
Uwe :D

Wonderful job. Beautiful Pictures. But, there is an error in the logic:

Application

===========

Path and name: c:\LIXO\Msgpaint3\Mymsg.exe (32 bits)

Size: 2,622,464 bytes

Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130326)

FiveWin Version: FWHX 13.05

Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 6 secs

Error occurred at: 05/22/23, 12:03:32

Error description: Error BASE/1003 Variable does not exist: CMSTYLESEL

Stack Calls

===========

Called from: .\Mymsg.PRG => MESSAGES( 549 )

Called from: .\Mymsg.PRG => (b)SHOW_MSG( 338 )

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 466 )

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 657 )

Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1719 )

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1446 )

Called from: .\source\classes\WINDOW.PRG => _FWH( 3180 )

Called from: => WINRUN( 0 )

Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 993 )

Called from: .\Mymsg.PRG => MAIN( 90 )

Regards, saludos.