Jimmy wrote:hi,
karinha wrote:Perfect Jimmy, but even so, I would never use this model. It doesn't make sense in a SIMPLE FOLDEREX.
perhaps i do not understand what you and Silvio try to do.
Silvio wrote:or do all the dialogs in the folder have to be the same size?
i prefer not to change size or other Style within a Dialog
i would never use so much FolderEX like in your Sample or 2-line TAB, for me it is "too much" in a Dialog.
i like to use Simple Design Style and CODE which is easy to read and understand
karinha wrote:I think the same as you Jimmy. The problem is that I work in a commercial company and the CUSTOMER is in charge. In this example, the customer ordered "ONLY" 20 FOLDERs. He pays a fortune, and I have to do it, you know?
Pienso lo mismo que tú Jimmy. El problema es que trabajo en una empresa comercial y el CLIENTE está a cargo. En este ejemplo, el cliente pidió "SÓLO" 20 FOLDERs. Él paga una fortuna y yo tengo que hacerlo, ¿sabes?
Regards, saludos.
RESOLVED
As a teacher of an Italian high school for thirty-six years, I can only tell you that you, Mr. Karinha, still have to study a lot, you don't apply yourself, you think you know everything about fivewin but instead you make big mistakes, look at the test carefully and learn !!!!!
Next time, instead of talking nonsense, you'll see if it can be done or not
Code: Select all | Expand
#include "FiveWin.ch"
#include "Constant.ch"
#define DEF_COLOR1 nRgb( 245,244,234)
#define DEF_COLOR2 nRgb(233,229,206)
#define DEF_COLOR3 RGB( 238,236,219 )
#define DEF_COLOR4 nRgb(218,214,179)
#define DLG_nColorDlg RGB(245,245,235)
#define DLG_nColortitle1 RGB(219,230,244)
#define DLG_nColortitle2 RGB(207,221,239)
#define DLG_nColorBar1 RGB(250,250,245)
#define DLG_nColorBar2 RGB(245,245,235)
#define DLG_nColorBtn1 RGB(245,245,235)
#define DLG_nColorBtn2 RGB(250,250,245)
#define DLG_nColorBtnB RGB(195,195,185)
Function Test()
local oDlg,oFld,oFont,oBold
local oBar,oBtnAnnulla,oBtnAiuto,oBtnConferma
local aFolder := {"Menu1","Menu2","Menu3","Menu4","Menu5","Menu6"}
local aCooDlg := {0,0}
// per la dialog e folder
local nHeight:= 680
local aPt := { 111,200 }
local nBottom:= 41
local nRight := 94.6
local nHt := nBottom * DLG_CHARPIX_H
local nWd := Max( nRight * DLG_CHARPIX_W, 180 )
aCooDlg[1]:=nWd
aCooDlg[2]:=nHt
oFont := TFont():New( "TAHOMA", 0, 18,, )
oBold := TFont():New( "TAHOMA", 0, 14,,.t. )
DEFINE DIALOG oDlg SIZE 870,nHeight PIXEL TRUEPIXEL;
FONT oFont title "test folder" COLOR CLR_BLACK, DLG_nColorDlg ;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
WS_MINIMIZEBOX)
aPt := ClientToScreen( oDlg:hWnd, aPt )
//-------------------------------------------------ButtonBar
DEFINE BUTTONBAR oBar OF oDlg SIZE 84, 70 2015 BOTTOM NOBORDER
DEFINE BUTTON oBtnAnnulla OF oBar ;
FILENAME "DLG_NO";
PROMPT "Annulla" TOOLTIP "Esci" ;
ACTION ( oDlg:end( IDCANCEL ) )
DEFINE BUTTON oBtnAiuto OF oBar ;
FILENAME "HLP_DLG";
PROMPT "Aiuto" TOOLTIP "Aiuto" ;
ACTION NIL GROUP
DEFINE BUTTON oBtnConferma OF oBar BTNRIGHT ;
FILENAME "DLG_OK";
PROMPT "Conferma" ;
TOOLTIP "Conferma i dati" ;
ACTION ( oDlg:end( IDOK ) )
oBar:bClrGrad := { | lPressed | If( ! lPressed,;
{ { 1, DLG_nColorBar1, DLG_nColorBar1} },;
{ { 1, DLG_nColorBar2, DLG_nColorBar2} } ) }
//-----------------------------------------------------------------//
@100,0 FOLDEREX oFolder PROMPTS aFolder ;
SIZE oDlg:nWidth,oDlg:nHeight-oBar:nheight PIXEL ;
FONT oFont ;
COLOR nRgb( 245,244,234) ROUND 0
oFolder:bAction := { || IF(oFolder:nOption=3 .or. oFolder:nOption=6 ,;
(oDlg:nHeight:=400,oDlg:Move( aPt[ 1 ] , aPt[ 2 ] )),;
(oDlg:nHeight:=680,oDlg:Move( aPt[ 1 ] , aPt[ 2 ] )) ) }
oDlg:bResized := <||
local oRect := oDlg:GetCliRect()
oFolder:nTop := oRect:ntop+120
oFolder:nHeight := oRect:nbottom-190
oFolder:nWidth := oRect:nWidth
oBar:GoDown()
oBar:refresh()
return nil
>
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( oDlg:Move( aPt[ 1 ] , aPt[ 2 ] ),;
Eval( oDlg:bResized),;
ChangeButtons(oBar ),;
oBar:refresh(),;
Eval(oFolder:baction) )
//------------------------------------------------------------------------//
function ChangeButtons( oBar )
AEval( oBar:aControls, { | oCtrl | oCtrl:nTop += 4, oCtrl:nHeight -= 4 } )
return .T.
//----------------------------------------------//
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com