JUDSON ROSA Posted February 5, 2022 Report Share Posted February 5, 2022 Baixei a RFOLDER DO Ricardo , so nao consigo usar com RESOURCE , somente para @ comandos alguem usa que possa me enviar ??? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 5, 2022 Report Share Posted February 5, 2022 Altamente recomendável, que você use FOLDEREX, muito melhor e mais moderno. Super simples de dominar e cheio dos paranauês. Abs. Regards, saludos. Quote Link to comment Share on other sites More sharing options...
JUDSON ROSA Posted February 5, 2022 Author Report Share Posted February 5, 2022 ei sei kapy , mais ele nao so tem nas versoes mais novas ? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 5, 2022 Report Share Posted February 5, 2022 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.