FiveTech Software tech support forums

... ? Porque me da error de "Bound error, array asign" en esta sintaxis?: REDEFINE SBUTTON oBoton234 ID 211 PROMPT "Lugar" RESOURCE "PUNTOS" OF ODLG5 ; ACTION (ist:=1, ISTITU(ODLG5),oGeta:SetFocus() ) FONT oFont ; COLORS CLR_BLACK, nRgb(98,150,0), CLR_WHITE OFFICE TOOLTIP "Lista de Títulos" ...

... shown with different colors Bitmap 1 ( same resource ) --------------------------------- REDEFINE BITMAP oBmp1 ID 770 ADJUST RESOURCE "Blanc" OF oDlg5 hDC := oBmp1:GetDC() oBmp1:bPainted := { |hDC|OnPaint( hDC,oBMP1,nCOLOR1) } oBmp1:ReleaseDC() Bitmap 2 ( same resource ) --------------------------------- ...

... I'm busy to have a Titlebar-designer for the FWH-users. I found the function Gradient : For just a try, i did this : REDEFINE SAY oSay1 ID 101 OF oDlg5 PROMPT e_TEXT ; COLOR Gradient( GETDC(oSay1), { 10, 0, 50, 800 },CLR_BLUE, CLR_WHITE, .T. ) http://www.pflegeplus.com/pictures/gradient.jpg ...

... http://www.pflegeplus.com/pictures/default.jpg // Brush Dialog // -------------------------------------- oBrw7 := TXBrowse():New( oDlg5 ) oBrw7:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrw7:nColDividerStyle := LINESTYLE_BLACK oBrw7:nRowDividerStyle := LINESTYLE_BLACK oBrw7:SetArray( ...

... aCOLTWAHL[8] := { "8", "Cyan" } aCOLTWAHL[9] := { "9", "SELECT" } // Text-Color s_COLTWAHL := e_COLTWAHL // Default value oBrw2 := TXBrowse():New( oDlg5 ) oBrw2:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrw2:nColDividerStyle := LINESTYLE_BLACK oBrw2:nRowDividerStyle := LINESTYLE_BLACK oBrw2:SetArray( ...

... 12 .F. .F. FONT3=Arial 14 .F. .F. [BarFonts] FONT4=Arial 21 .F. .F. FONT5=Arial 27 .F. .F. FONT6=Arial 29 .F. .F. REDEFINE BUTTON oBtn11 ID 835 OF oDlg5 ; ACTION ( oFont0 := ChooseFont(), ; oFont13 := BUILDFONT(oFont0), ; // oFont13 created with TFont():New(oFont0) aTYPE4[1] := oFont13:cFacename, ...

... aTYPE4[2], .f., ; aTYPE4[3], , , ,aTYPE4[4] ) // Set the 1 InfoBar Font // ----------------------------- REDEFINE SAY oSAY4 VAR e_FTYP4 ID 800 OF oDlg5 REDEFINE BUTTON oBtn7 ID 805 OF oDlg5 ; ACTION ( oSAY4:GetFont(), oSAY4:SelFont(), ; aTYPE4[1] := oSAY4:oFont:cFaceName, ; aTYPE4[2] := oSAY4:oFont:nHeight, ...