MODIFY LABEL in standalone EXE, no VFP-screen

[Kruno]

I need a standalone application (no VFP screen) to preview/print address labels and to let modify LBX-file.
Running as APP - all ok.
Running as EXE preview/print labels is ok, but MODIFY LABEL is not.

After regular closing program a process left and must be killed manually.
Obviously MODIFY LABEL is showing somewhere. How to get it visible to user ?

Kruno

Main prog in project (to get it standalone):

DO FORM labeltest
READ events

And LABELTEST.SCX (code from class browser, SHOWWINDOW and QUERYUNLOAD for no-VFP-screen purpose):

PUBLIC olabeltest
olabeltest=NEWOBJECT("labeltest")
olabeltest.Show
READ EVENTS && add this line only if you want whole SCX-code to use in PRG, nonvisualy
RETURN

DEFINE CLASS labeltest AS form

	ShowWindow = 2
	DoCreate = .T.
	Caption = "Form1"
	Name = "labeltest"

	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 42, ;
		Left = 130, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command1", ;
		Name = "Command1"

	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 124, ;
		Left = 132, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command1", ;
		Name = "Command2"


	PROCEDURE QueryUnload
		use
		CLEAR EVENTS
	ENDPROC


	PROCEDURE Init
		CREATE CURSOR c1 (f1 c(10))
		INSERT INTO c1 VALUES ('AAAA')
	ENDPROC


	PROCEDURE command1.Click
		thisform.WindowState= 2
		this.Visible=.f.
		LABEL FORM cust preview
		this.Visible=.t.
		thisform.WindowState= 0
	ENDPROC


	PROCEDURE command2.Click
		thisform.WindowState= 2
		this.Visible=.f.
		MODIFY LABEL cust
		this.Visible=.t.
		thisform.WindowState= 0
	ENDPROC

ENDDEFINE

 

[billch]

Do not include your label files in the project. However, do include them in your distribtion of files to your client.


Bill Chambers
Chambers & Associates

http://www.ChambersData.com