RFOLDER PARA RESOURCE

[JUDSON ROSA]

Baixei a  RFOLDER DO Ricardo ,  so nao consigo usar com RESOURCE , somente para @ comandos

alguem usa que possa me enviar ???

[kapiaba]

Altamente recomendável, que você use FOLDEREX, muito melhor e mais moderno. Super simples de dominar e cheio dos paranauês.

Abs.

 

Regards, saludos.

[JUDSON ROSA]

ei sei kapy , mais ele nao so tem nas versoes mais novas ?

[kapiaba]

Qual a sua versão? Tente compilar este exemplo, se subir, lindo de morrer, já Elvis.

// SAMPLES\FOLDXSIL.PRG
	#Include "fivewin.ch"
#Include "constant.ch"
	FUNCTION test()
	   LOCAL oDlg, oFolder, oFont, oBold, oTitle, oRect
   LOCAL oFld1, oFld2
   LOCAL nBottom   := 42
   LOCAL nRight    := 123.2
   LOCAL nWidth    :=  Max( nRight * DLG_CHARPIX_W, 180 )
   LOCAL nHeight   := nBottom * DLG_CHARPIX_H
   LOCAL oBtnConferma, oBtnChiudi
   // LOCAL cFolder_Fivewin := "C:\work\fwh\"
   LOCAL cFolder_Fivewin := "C:FWH1905"
   LOCAL aBitmaps  := { cFolder_Fivewin + "bitmaps\32x32\users.bmp", ;
                        cFolder_Fivewin + "bitmaps\32x32\delete.bmp", ;
                        cFolder_Fivewin + "bitmaps\32x32\fivetech.bmp", ;
                        cFolder_Fivewin + "bitmaps\32x32\quit.bmp", }
	   DEFINE FONT oFont  NAME "Segoe UI" SIZE 0, - 14
   DEFINE FONT oBold  NAME "Segoe UI" SIZE 0, - 12 BOLD
   DEFINE FONT oTitle NAME "Segoe UI" SIZE 0, - 14 BOLD
	   DEFINE DIALOG oDlg SIZE nWidth, nHeight                ;
      TITLE "Configurazione in xHarbour" PIXEL FONT oFont ;
      STYLE nOR( WS_CAPTION, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )
	   @ 3, 3 FOLDEREX oFolder PIXEL LEFT STRETCH;
      PROMPT "&Generale", "&Stampe", "&Spiaggia", "&Planning"        ;
      ON PAINT TAB PaintTab( Self, nOption )                         ;
      TAB HEIGHT 120 ROUND 5 BITMAPS aBitmaps                        ;
      ALIGN FLDBMP_LEFT, FLDBMP_CENTER, FLDBMP_CENTER, FLDBMP_CENTER ;
      OPTION 2                                                       ;
      ON PAINT TEXT( If( nOption == ::nOption .and. nOption == 2, CLR_BLUE, CLR_BLACK ) ) OF oDlg
	   oFolder:nLayOut := 2
	   @ 3, 0 FOLDEREX oFld1 OF oFolder:aDialogs[ 1 ] PIXEL  ;
      PROMPT "&Impostazione", "&Visualizza", "&Azienda"  ;
      TAB HEIGHT 30   FONT oFont
	   @ 3, 10 FOLDEREX oFld2 OF oFolder:aDialogs[ 2 ] PIXEL ;
      PROMPT "&Predefinita", "Prenotazione", "Pagamento" ;
      TAB HEIGHT 30 FONT oFont
	   @ 195, 250 BUTTONBMP oBtnConferma;
      RESOURCE "INVOICE_SAVE" ;
      PROMPT "  &Salva" SIZE 55, 15 PIXEL OF  oDlg;
      TOOLTIP "fai click per salvare";
      TEXTRIGHT FONT oTitle ;
      ACTION   ( oDlg:end( IDOK ) )
	   @ 195, 250 BUTTONBMP oBtnChiudi;
      RESOURCE "INVOICE_EXIT" ;
      PROMPT "  &Chiudi" SIZE 55, 15  PIXEL OF  oDlg;
      TOOLTIP "fai click per chiudere";
      TEXTRIGHT FONT oTitle ;
      ACTION  ( oDlg:end( IDCANCEL ) )
	   oDlg:bResized  := < ||
   oRect                := oDlg:GetCliRect()
   oFolder:nWidth       := oRect:nRight - 20
   oFolder:nHeight      := oRect:nBottom - 60
	   oFld1:nWidth  := oFolder:nWidth - 140
   oFld1:nHeight := oFolder:nHeight - 20
   oFld2:nWidth  := oFolder:nWidth - 140
   oFld2:nHeight := oFolder:nHeight - 20
	   oBtnConferma:nTop    := oRect:nBottom - 34
   oBtnConferma:nLeft   := oRect:nRight - 260
   oBtnChiudi:nTop      := oRect:nBottom - 34
   oBtnChiudi:nLeft     := oRect:nRight - 140
	   oFld1:refresh()
   oFld2:refresh()
	   RETURN NIL
   >
	   ACTIVATE DIALOG oDlg CENTERED  ;
      ON INIT ( Eval( oDlg:bResized ) )
	   IF oDlg:nresult == IDOK
	   ENDIF
	   RELEASE FONT  oFont
   RELEASE FONT  oBold
   RELEASE FONT  oTitle
	RETURN NIL
	FUNCTION PaintTab( o, nOption )
	   LOCAL hBrush, hBmp, nLastRow
	   IF nOption == o:nOver .OR. nOption == o:nOption
      o:SetAlphaLevel( nOption, 255 )
   ELSE 
      o:SetAlphaLevel( nOption, 50 )
   ENDIF 
   
   IF nOption == o:nOption .and. nOption == 2
      hBmp = ReadBitmap( 0, "C:\FWH1905\bitmaps\backgrnd\MAGENTA.bmp" )
      hBrush = CreatePatternBrush( hBmp )
      DeleteObject( hBmp )
      IF o:nLayOut == 2
         nLastRow = o:aPos[ o:aLines[ o:aOrder[ 1 ] ][ 1 ] ][ 1 ] + o:nFolderHeight
         SetBrushOrgEx( o:hDC, nLastRow + 2, 1 )  
      ELSE 
         SetBrushOrgEx( o:hDC, 2, 2 ) 
      ENDIF
      RETURN hBrush
   ENDIF   
   
RETURN o:SetFldColors( o, nOption )

Regards, saludos.