FiveTech Software tech support forums

... ) local oBtn @ 238, 6 BUTTON oBtn PROMPT FWString( "Copy to clipboard" ) ; OF oDlg SIZE 180, 28 PIXEL ; ACTION ( CopyToClipboard( oDlg:aControls[ 1 ]:GetText() ), oDlg:end() ) return nil //----------------------------------------------------------------------------//

I get an icon associated with a file type
img:=BmpFromIcon(EXTRACTASSICON( 0, nam, @sol))
img:=TBitmap():Define(,, oWnd:aControls[1]:aDialogs[2], img)

img - is an object of TBitMap. How can I save this bitmap to a file ?

... Build 9200 Time from start: 0 hours 1 mins 1 secs Error occurred at: 13/10/2017, 17:02:11 Error description: Error BASE/1004 No exported method: ACONTROLS Args: [ 1] = A { ... } length: 1 Stack Calls =========== Called from: => ACONTROLS( 0 ) Called from: .\source\classes\TFIVEDIT.PRG => ...

... a folder then it not create any controls are into the folder I think we must modify the cGenPrg method of window class line 1304 if ! Empty( ::aControls ) cPrg += CRLF AEval( ::aControls, { | oCtrl | cPrg += oCtrl:cGenPRG( lDlgUnits ) } ) endif I think we must insert something of this : for ...

... //width,col if rsl0<>1; //<=800*600, not needed rsl1:=getsysmetrics(1)/if(res==800,600,768) //base height ,nrow for i:=1 TO LEN(::acontrols) oCtrol = odlg:aControls[i] // top:nrow, left:ncol,bottom: nrow, right:ncol aRect = GetCoors( oCtrol:hWnd ) do case case oCtrol:classname()=="TCOMBOBOX" ...

... de la ventana ////////////////////////////////////////// Function UpdateControls( oWnd, oTimer ) LOCAL c oTimer:Deactivate() For c = 1 to Len(oWnd:aControls) oWnd:aControls[c]:Refresh() next oTimer:Activate() return .t. /* #pragma BEGINDUMP #include <windows.h> #include <math.h> #include ...

... de la ventana ////////////////////////////////////////// Function UpdateControls( oWnd, oTimer ) LOCAL c oTimer:Deactivate() For c = 1 to Len(oWnd:aControls) oWnd:aControls[c]:Refresh() next oTimer:Activate() return .t. #pragma BEGINDUMP #include <windows.h> #include <math.h> #include ...

... as well with these changes : // --------------- FUNCTION OBJ_UPDATE( oFld2, nTextColor, nBackColor ) // ---FOLDER --- AEval( oFld2:aDialogs[ 2 ]:aControls, { |o| IF( o:ClassName == "TSAY", ( o:SetColor( nTextColor, nBackColor ), o:Refresh() ), NIL ), ; IF( o:ClassName == "TRADIO", ...

... RADIOS and CHECKBOXES at runtime. It only works on SAY FUNCTION OBJ_UPDATE( oFld2, nTextColor, nBackColor ) // FOLDER AEval( oFld2:aDialogs[ 2 ]:aControls, { |o| IF( o:ClassName == "TSAY", o:SetColor( nTextColor, nBackColor ), NIL ), ; // works !!! IF( o:ClassName == "TRADIO", ...

... RESOURCE 0x30050 DEFINE BUTTON OF oBar PROMPT "Setup" RESOURCE 0x1005D ACTION oDlg:End() BTNRIGHT TOOLTIP "Exit" AEval( oBar:aControls, { |oBtn| oBtn:bColorMap := { |o| If( o:lMOver, { CLR_BLACK, CLR_HRED }, nil ) } } ) RETURN NIL ----------------- regards Uwe :?:

... BUTTON OF oBar PROMPT "Refresh" RESOURCE 0x30050 DEFINE BUTTON OF oBar PROMPT "Setup" RESOURCE 0x1005D BTNRIGHT AEval( oBar:aControls, { |oBtn| oBtn:bColorMap := { |o| If( o:lMOver, { CLR_BLACK, CLR_HRED }, nil ) } } ) RETURN NIL -------------- http://www.pflegeplus.com/IMAGES/Samples2.jpg ...

... * FROM " + cTable ) oDbf:lDateAsStr := .t. oDbf:Open() if lAsync oDbf:AutoFill(oDlg,,{|n| ChkCursor(n, oDbf, oDlg) } ) else aSend(oDlg:aControls, "disable()") oDlg:bValid := {|| .f. } oDlg:BMMoved := {|| CursorWait()} oDbf:Complete() aSend(oDlg:aControls, "enable()") ...

Hello Antonio,

As I understand all defined classes are in an array. But how looks this array, is there an example anywhere?
If I ask:

oFld:aDialogs[2]:aControls[n]:ClassName()

, I get all classnames, but how to retrieve the name of the class (Like oGet1, oGet2...)

Rene

René,

AEval( oDlg:aControls, { | oControl | If( Upper( oControl:ClassName() ) == "TGET", save oControl:GetText(), nil ) } )

Usando AScan() buscamos el primer control que sea distinto:

AScan( oDlg:aControls, { | oCtrl, n | oCtrl:bSetGet != nil .and. Eval( oCtrl:bSetGet ) != aInitValues[ n ] } ) != 0

un valor .T. significa que han habido cambios