FiveTech Software tech support forums

... VEC0_JUSTIF := {2,2,2,0,2,2,2,2,2,2,2},; wAlias3:="MOVART" REDEFINE LISTBOX oBrw fields ID 999 OF oDlg ; COLOR CLR_BLACK, CLR_WHITE ; FONT oFont ALIAS (WALIAS) UPDATE oBrw:SetCols( VEC0_FIELD1, VEC0_ENC1, VEC0_SIZE1 ) Respecto a usar redefines con ids tenes que utilizar algun editor ...

... un bicho. OFAK DIALOG 60, 41, 328, 245 STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU CAPTION "Generar fichero OFAK" FONT 8, "MS Sans Serif" LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL { PUSHBUTTON "&Generar Fichero", 1, 104, 223, 63, 14 PUSHBUTTON "&Cancelar", ...

... por ejemplo al activar el dialogo. Toma cualquier prg y hace algo como lo siguiente: Local lista:={} REDEFINE GET oFecha VAR vFecha ID 102 FONT oFont2 of oDlg COLOR CLR_BLACK,RGB(255,255,168) REDEFINE GET oAtiende VAR cAtiende PICTURE "@Z 99" ID 101 FONT oFont of oDlg REDEFINE GET oCliente ...

... VEC0_JUSTIF := {2,2,2,0,2,2,2,2,2,2,2},; wAlias3:="MOVART" REDEFINE LISTBOX oBrw fields ID 999 OF oDlg ; COLOR CLR_BLACK, CLR_WHITE ; FONT oFont ALIAS (WALIAS) UPDATE oBrw:SetCols( VEC0_FIELD1, VEC0_ENC1, VEC0_SIZE1 ) Respecto a usar redefines con ids tenes que utilizar algun editor ...

... la clausula alias a la definicion de cada browse: WALIAS:='MOVART' REDEFINE LISTBOX oBrw fields ID 999 OF oDlg ; COLOR CLR_BLACK, CLR_WHITE ; FONT oFont ALIAS (WALIAS) UPDATE wAlias3:="MOVAR2" REDEFINE LISTBOX oBrw3 fields ID 998 OF oDlg ; COLOR CLR_BLACK, CLR_WHITE ; FONT oFont ALIAS (WALIAS3) ...

... la clausula alias a la definicion de cada browse: WALIAS:='MOVART' REDEFINE LISTBOX oBrw fields ID 999 OF oDlg ; COLOR CLR_BLACK, CLR_WHITE ; FONT oFont ALIAS (WALIAS) UPDATE wAlias3:="MOVAR2" REDEFINE LISTBOX oBrw3 fields ID 998 OF oDlg ; COLOR CLR_BLACK, CLR_WHITE ; FONT oFont ALIAS (WALIAS3) ...

I do not appear to be able to set the font for a LISTBOX unless I use resources. I am using @ 0,0 LISTBOX oLbx...... DEFINE oFont.... ACTIVATE oFont I then either want to add "FONT oFont" or oLbx:setFont(oFont) Is runtime font control not implemented ...

Frank, you are right. With Arial font the example shows different sizes 10 and 8. With Sans serif not. #include "fivewin.ch" /////////////// FUNCTION Main() /////////////// LOCAL aFont := array( 3 ) LOCAL ...

Hello, I try to define 3 sizes of fonts : DEFINE FONT Fnt[1] NAME "MS Sans Serif" SIZE 9 , 12 DEFINE FONT Fnt[2] NAME "MS Sans Serif" SIZE 0 , 10 DEFINE FONT Fnt[3] NAME "MS Sans Serif" SIZE 0 , 8 DEFINE DIALOG oDlg @ 1 , 1 SAY "SIZE 12" OF oDlg ...

... 5, -17, 508, 367 STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU CAPTION "客戶基本資料" FONT 12, "細明體" { CONTROL "", 301, "TCBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 1, 274, 506, 80 CONTROL "", 300, ...

... "FOLDER_DATOSG" ,"FOLDER_OPMER","OPVPREVIA","ENTREGA3","ENVIOS" // This is a get that belongs to that main dialog REDEFINE GET cFecha ID 103 FONT oFont3 OF oDlg PICTURE "@d" UPDATE // This are controls that belongs to the first folder REDEFINE GET oNumdoc VAR cOcNum ID 101 FONT oFont1 OF ...

... REDEFINE BTNGET oDesde VAR cDesde ID 113 OF oDlg ; RESOURCE "B_Cld" PICTURE "@D" VALID ValDesde(oBrw,vCodigo,@cDesde,oDesde,@vSaldo,oSaldo) ; FONT oFont3; ACTION (aRec :=GetCoors(oDesde:hWnd),; cDesde:=Calend(cDesde,aRec[1],aRec[4],oDlg),; oDesde:Refresh(),oDesde:SetFocus()) Regards Hello, ...

... y me lo produce el control tsbrowse. AQUI VA EL .RC que uso. PIDEUSU DIALOG 65, 46, 276, 208 STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE FONT 8, "MS Sans Serif" { EDITTEXT 102, 231, 166, 32, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP LTEXT "Clave de acceso del usuario", -1, 130, 169, 91, ...