... nuevamente, pongo un ejemplo de la situacion: Function Menu() local oDlg1, oLbx1, oGet2, oGet3 SET 3DLOOK ON // Microsoft 3D Look DEFINE DIALOG oDlg5 FROM 13,15 TO 38,76 ; TITLE "Control de Tickets " ; nTicket:=0 Libre:=.t. @ 0.25, 19.5 TBTNGET oGet2 VAR nTicket OF oDlg1 ; SIZE 50, ...
... define the colors from any function and use oBtn[1]:Refresh() BITMAP shows the selected color nBColorF1 : REDEFINE BITMAP oBMP[1] FILENAME NIL OF oDlg5 ; ID 110 PIXEL ADJUST BORDER oBMP[1]:cTooltip := "1. Color" oBMP[1]:bPainted := { |hDC| BMP_COLOR( oBmp[1], hDC, nBColorF1 ) } REDEFINE ...
... ( Workshop ). Converted from 32 to 24 Bit ( no Alpha-chanel ) with Pixelformer and included in RC-file : REDEFINE BUTTONBMP oBtn50 ID 30 OF oDlg5 ; ACTION ( oDlg5:End() ) ; BITMAP "Alert" PROMPT " Exit" TEXTRIGHT oBtn50:cToolTip = { "Close" + CRLF + ; "the ...
... x 600 i used for the Exit-Button : @260, 150 SBUTTON oBtn2 FONT oFont1 ; SIZE 50, 25 PIXELS ; FILENAME c_path + "\SYSTEM\Exit.bmp" ; OF oDlg5 PROMPT "&Exit" ACTION oDlg5:End() I could define from Top / Left like : @50, 50 SBUTTON ... and I will have the Button allways on ...
... / show the Button allways on the same Position on different Dialogsizes ??? // Defined Dialog-Position / Size := 50, 50 TO 700, 600 DEFINE DIALOG oDlg5 FROM nDlgTop, nDlgLeft TO nDlgWidth, nDlgHeight TITLE "Background-Tests" ICON oIco PIXEL // Button-Position not related to Dialogsize ...
... oSAY1:lTransparent := .T. is not needed for Transparent-painting. Just define the DIALOG transparent, it will make it easy for You. DEFINE DIALOG oDlg5 RESOURCE "TXTTEST2" TITLE "Text-Test" ; FONT oProgFont TRANSPARENT REDEFINE SAY oSAY1 VAR cText1 ID 110 OF oDlg5 COLOR T_COLOR ...
... better now. Download ( 2.0b ) : http://www.pflegeplus.com/fw_downloads/GrdTool1.zip I noticed, a normal : REDEFINE SAY oSAY1 VAR cText1 ID 110 OF oDlg5 COLOR T_COLOR, T_COLOR2 FONT oTextFont doesn't work with Dialog TRANSPARENT In case You still find something, just let me now. Also if You still ...
... ON INIT . Loading a Image from inside the Dialog, it is OK. ------------------------------------ DBSELECTAREA(2) REDEFINE XBROWSE oBrw ID 110 OF oDlg5 AUTOCOLS ALIAS "Customer" Doesn't work at Start !!! ( only from inside the Dialog ). The Image is shown Tiled. ----------------------------------------------------------------- ...
... the Folder-Part for testing. The Gradient and Image-Display in combination with Alpha-BMP's works perfect ( Test 6 and 10 ). Because of the oDLG5 with TRANSPARENT : < oFld:aDialogs[1]:SetBrush( oBrush1 ) > doesn't work. If I delete TRANSPARENT, it is OK. DEFINE DIALOG oDlg5 RESOURCE ...
... I would like to save the resized image to disk. Somebody knows a good solution for this ? I tested : hDC := GetDC( oImage:hWnd ) oDlg5:SaveToBmp( "Resized.bmp" ) ReleaseDC( oImage:hWnd, hDC ) but it didn't work. Could it be maybe possible, to use functions from the < freeimage.dll ...