Moderator: Rathinagiri
Yeah, this idea was already submitted. Is something about we have to think how to do it at this forum.PeteWG wrote:Just a humble proposition: it wouldn't be better if patches were posted in the same place along with the current release?
Code: Select all
/*
* HMG Embedded Child Window Demo
* (c) 2002-2010 Roberto Lopez <mail.box.hmg@gmail.com>
*/
#include "hmg.ch"
Function Main
SET SCROLLSTEP TO 10
DEFINE WINDOW Win_Main ;
ROW 0 ;
COL 0 ;
WIDTH 600 ;
HEIGHT 400 ;
TITLE 'HMG Panel Window Demo' ;
WINDOWTYPE MAIN
DEFINE BUTTON BUTTON_1
ROW 40
COL 20
Width 300
CAPTION 'Click me!'
ACTION CallModalWindow()
END BUTTON
END WINDOW
center window Win_Main
activate window Win_Main
return
function CallModalWindow
DEFINE WINDOW Win_Modal ;
ROW 0 ;
COL 0 ;
WIDTH 600 ;
HEIGHT 600 ;
TITLE 'HMG Panel Window Demo' ;
WINDOWTYPE MODAL
DEFINE WINDOW PanelWindow ;
ROW 30 ;
COL 30 ;
WIDTH 500 ;
HEIGHT 300 ;
WINDOWTYPE PANEL
DEFINE LABEL LABEL_1
ROW 10
COL 20
VALUE 'Panel windows...'
WIDTH 300
END LABEL
DEFINE BUTTON BUTTON_1
ROW 40
COL 20
Width 300
CAPTION 'Click me!'
ACTION MsgInfo('Button clicked!')
END BUTTON
define textbox text1
row 70
col 100
width 200
height 20
value 'this is text control'
end textbox
define label Label1
row 100
col 100
width 200
height 100
BackColor {0,255,0}
value "this is test label - CLICK FOR CHANGE COLOUR"
On Click this.BackColor := {255,0,0}
end label
define control ContextMenu Label1
MenuItem "Click me!" action msginfo("This is Context Menu of Label1")
end menu
END WINDOW
DEFINE BUTTON BUTTON_2
ROW 350
COL 10
WIDTH 300
CAPTION 'Click to print preview'
ACTION PrintPreview()
CAPTION 'Button in basic window'
END BUTTON
END WINDOW
Win_Modal.Center
Activate Window Win_Modal
Return
*---------------------------
function PrintPreview
local cPrinter := GetDefaultPrinter()
SELECT PRINTER cPrinter ;
ORIENTATION PRINTER_ORIENT_PORTRAIT ;
PAPERSIZE PRINTER_PAPER_A4 ;
QUALITY PRINTER_RES_MEDIUM ;
PREVIEW
START PRINTDOC name "Print preview"
START PRINTPAGE
@ 40, 40 PRINT RECTANGLE TO 60,150;
COLOR BLACK;
PENWIDTH 0.2
@ 50, 50 print "Something to print... It doesn't matter what :)";
FONT "ARIAL CE" ;
SIZE 12 ;
UNDERLINE BOLD ;
COLOR BLACK
END PRINTPAGE
END PRINTDOC
PanelWindow.Label1.BackColor := {0,255,0}
PanelWindow.Label1.BackColor := {0,255,0}
PanelWindow.Label1.Value := "Now, click on this label and any other control in this panel window will not take any action"
return .t.
+1mol wrote:I've found and error in hmg 3.2 / hmg 3.1.5.
Scenario:
1. Define Main window
2. Define modal window with panel window
3. All controls of panel windows are active
4. Print something from modal window with screen preview
5. Controls in panel window become unusable
What's going on?
What I know, Printer Preview had 4 windows: one for proper Preview, one for Buttons (Next page... Zoom... etc.), one for ThumbNails and one of simulates a WaitWindow.mol wrote:I've found and error in hmg 3.2 / hmg 3.1.5.
Scenario:
1. Define Main window
2. Define modal window with panel window
3. All controls of panel windows are active
4. Print something from modal window with screen preview
5. Controls in panel window become unusable
What's going on?
Sure ! But please note: very very old problem this. Previous than version 3.0.35...mol wrote:So, if print preview disables all modal windows, it will be enough to do reverse action after closing preview
I fixed!mol wrote:I've found and error in hmg 3.2 / hmg 3.1.5.
Scenario:
1. Define Main window
2. Define modal window with panel window
3. All controls of panel windows are active
4. Print something from modal window with screen preview
5. Controls in panel window become unusable
What's going on?