FiveTech Software tech support forums

hi,

i have use NOMAXIMIZE, NOMINIMIZE so only "X" Buuton is left
but you can "resize" Form as there is no Keyword NOSIZE / NORESIZE under Fivewin :(

---

i try to use
oASKFORM:bResized := { |nType, nWidth, nHeight| oASKFORM:SetSize(nWidth, nHeight) }
which was not the Solution :(

i have to use ...

... DEFINE Window oWndIva From 0,0 to MaxRow(),MaxCol();
ICON oIconAbm;
COLOR "N/W+";
TITLE OemToAnsi("Apuntes con Iva");
BORDER NONE NOSYSMENU NOMINIMIZE NOMAXIMIZE
Barra()
Cfactura()
Dfactura()
Barra2()
Linea()
Lineas()
DbSelectArea("civa")
oDCObra:Enable()
oBtnRas:SetFocus()
DEFINE ...

... oWndCon OF oWnd From 0,0 to MaxRow(),MaxCol();
ICON oIconAbm;
COLOR "N/W+";
TITLE OemToAnsi("Fichero De Conceptos");
BORDER NONE NOSYSMENU NOMINIMIZE NOMAXIMIZE
SET MESSAGE OF oWndCon TO "" KEYBOARD DATE CENTERED
Barra() // Dialog 1
Codigo() // Dialog 2
Datos() // Dialog 3
oDDAbmCon ...

DEFINE WINDOW <oWnd> NOMINIMIZE, NO MAXIMIZE TITLE "Window 1"


Creating a new Window:

DEFINE WINDOW <oWnd> ;

[ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ] ;
[ TITLE <cTitle> ] ;
[ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ];
[ OF <oParent> ] ;
[ BRUSH <oBrush> ] ;
[ CURSOR <oCursor ...

... for data from barcode scanner.

One more question : when i open MDI Child

DEFINE WINDOW oWndChild MDICHILD OF oWnd ;
FROM 5,5 TO 6,6;
COLOR "N/W" ;
TITLE " New Sale " ;
border none nomaximize nominimize

oWnd is in static it creates new instance but not the timer ? (Timer created ON INIT of Dialog)

... DEFINE WINDOW oUser ;
FROM 2,2 to 25,65 ;
of oWndMDI ;
TITLE "USERINFO Administrative Browse" ;
MENU BuildMenu(oRsUser) ;
ICON oICO ;
NOMINIMIZE ;
NOZOOM ;
MDICHILD

@ 0, 0 xBROWSE oBrow of oUser ;
RECORDSET oRsUser ;
COLUMNS "USERID", ;
"WRITE", ;
"MGR", ;
"SUPER", ;
"lastlog ...

... DEFINE WINDOW oChild TITLE "Consulta de Cheques Posfechados" MDICHILD ;
FROM 0,0 TO 850,1250; //690,1025
COLOR "N/W" PIXEL ;
border none nominimize nomaximize //prevent resizing nominimize

DEFINE DIALOG oDlg RESOURCE "d_consulta_cheques1" of oChild


REDEFINE DTPICKER cfecini ID 101 OF oDlg ...

Dear Mr.Rao,

It is true that we can disable maximize or minimize buttons by simply using clauses NOMAXIMIZE, NOMINIMIZE, etc. while creating the window. But still the user can resize the window by dragging the right bottom corner of the window.

aMinMaxInfo gives us the full control on resizing ...

Dear Mr.Rao,

Your Quote
It is true that we can disable maximize or minimize buttons by simply using clauses NOMAXIMIZE, NOMINIMIZE, etc. while creating the window. But still the user can resize the window by dragging the right bottom corner of the window.

aMinMaxInfo gives us the full control on ...

Where is the need to adopt such complex approach? Cant we simply disable these buttons while creating the window ( normal, MDI, MDICHILD ) by using the syntax already provided by FWH?

CREATE WINDOW ....... NOMINIMIZE NOMAXIMIZE

This does the job. Or am I missing something?

... window using the Windows Style.

Regards
Anser
It is true that we can disable maximize or minimize buttons by simply using clauses NOMAXIMIZE, NOMINIMIZE, etc. while creating the window. But still the user can resize the window by dragging the right bottom corner of the window.

aMinMaxInfo gives ...

define window oWnd mdichild of wndMain();
title "Audit Trail" nominimize nosysmenu

activate window oWnd maximized

... 0
nOldSal := 0
aStates := {}

DEFINE BITMAP oBmp RESOURCE "Head"

If nSample == 7
DEFINE WINDOW aWChild[ nSample ] OF oWnd BORDER NONE NOMINIMIZE NOMAXIMIZE ;
TITLE "Sample " + LTrim( Str( nSample ) ) BRUSH aBrush[ 8 ] ;
FROM 0,0 TO oWnd:nBottom, oWnd:nRight PIXEL ;
ICON oIco ;
MDICHILD ...

... CleanUp()
RETURN(.F.)
ENDIF
oRs:MoveFirst()
DEFINE WINDOW oGRP ;
FROM 2,2 to 30,70 ;
of oWndMDI ;
TITLE cTITLE ;
MENU BuildMenu( oRs ) ;
NOMINIMIZE ;
NOZOOM ;
MDICHILD
@ 0, 0 LISTBOX oBrow FIELDS ;
oRs:Fields("CODE"):Value, ;
oRs:Fields("DESC"):Value, ;
oRs:Fields("progid"):Value ...

... eof
oRs:MoveFirst()
ENDIF

DEFINE WINDOW oUser ;
FROM 2,2 to 25,65 ;
of oWndMDI ;
TITLE "USERINFO Records Browse" ;
MENU BuildMenu(oRs) ;
NOMINIMIZE ;
NOZOOM ;
MDICHILD

@ 0, 0 LISTBOX oBrow FIELDS ;
oRs:Fields("USERID"):Value, ;
oRs:Fields("READ"):Value, ;
oRs:Fields("WRITE"):Value ...