FiveTech Software tech support forums

Also nTop and nleft can be changed STATIC FUNCTION RESIZECONTROLS(nSizeType,nWidth,nHeight, oWnd ) LOCAL oCtl LOCAL i , aHlp[4] , j , Factor := Hash() STATIC aCoordinates := {} STATIC StartWidth , StartHeight IF EMPTY( aCoordinates ) FOR EACH oCtl IN oWnd:aControls AADD(aCoordinates , Array(4)) i :=...

I suppose that the goal is that when the window is reduced with 50% , also the objects (nWidth , nHeight) are reduced with 50% Same can be done with ntop , nleft Frank # include "Fivewin.ch" FUNCTION MAIN() LOCAL oWnd LOCAL cVar := SPACE( 35 ) DEFINE WINDOW oWnd @ 1, 1 GET cVar @ 6, 1 BUTT...

Enricio

thank you very much , as always it works

I hope i am not to late : congratulations to italy with welth cup !!!


Frank

Hello In mine aplication , i use Memowrit("C:\TEMP\efkes.rtf",cText) Shellexecute(0 ,0 , "C:\TEMP\efkes.rtf" ,0 ,0 , 1) To edit a rtf-file When the rtf-file is not closed , and this commands are executed again with a different cText , the editor is activated with the old text fil...

Hello In Clipper we can : ? "Test" ?? "Continue after test" Now we have oPrn:say(nrow,ncol,"test") oPrn:say(nrow, ???? , "Continue after test") How we know the column position ? With courier new i have no problems , but with other fonts it seems that we have t...

Got as errors : xRC: alaska.rc(16): error: Invalid syntax. xRC: alaska.rc(16): error: Invalid syntax. xRC: alaska.rc(16): error: Invalid syntax. xRC: alaska.rc(16): error: Invalid syntax. xRC: alaska.rc(16): error: Invalid syntax. xRC: alaska.rc(16): error: Invalid syntax. xRC: alaska.rc(16): error:...

Hello, Today , i have problems , when i try to use : ? Shellexecute(GetActiveWindow(),"open",xlsfile) // returns 42 , not a error The xlsfile is created with ClipWks (for xharbour) and can be launched from windows with clicking on it. FUNC MAIN(cFile) IF cFile == nil cFile := "c:\prog...

Enrico

In mine main aplication was the xhb-function IsdIGIT(str) overwritten by isdigit(Str,count) , as in funcky .

This function gives a wrong result for str==CHR(32) , so in ::untransform ::minus wasn't set corectly

Frank

Antonio,

Thanks for the info , now i found it . It works as expected

Frank

Antonio Executing this code from method lostfocus give as difference : if ! Empty( ::cPicture ) .and. ::oGet:type == "N" //tracelog(::Varget()) ::oGet:Assign() ::oGet:Picture := ::cPicture ::oGet:UpdateBuffer() ::oGet:KillFocus() endif ::oGet:SetFocus() // to avoid oGet:buffer be nil # ifd...

Antonio It is important to me that this is fixed : my customer can't agree with an aplication where no negative numbers can't be entered. Now , i have the modifyed tget.prg i use to test , linked in testget2.prg. Now , i see a difference in method lostfocus. In mine aplication seems for some reason ...

The last i found is that in method lostfocus if ! ::oGet:BadDate .and. ! ::lReadOnly .and. ; ( ::oGet:changed .or. ::oGet:unTransform() <> ::oGet:original ) ::oGet:Assign() // for adjust numbers # ifdef TEST if ! Empty( ::cPicture ) .and. ::oGet:type == "N" trace(::Varget() , ::lPassword ,...

Hello, 3 weeks ago i asked the same question , but i was on vacation for two weeks , so i try it again In mine main aplication i have a dialog from resources , with a lot of get's (numeric value) Each numeric get has a picture clause : REDEFINE GET oGet VAR nInp ID 157 PICTURE "@K #99" OF ...

Hello, Intering a negative value in a get (big main aplication) changed in a positive number when the get looses focus. I tryed samples testget2 , and it gives no problems. Working with xbuild i checked : both points to the same xhb root folder (xharbour + c compiler) Last build (march) both points ...

REDEFINE DTPICKER Obj VAR Van ID 10 OF oDlg

with :


CONTROL "", 10 , "SysDateTimePick32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP | DTS_SHOWNONE , 205 , 9 , 60, 12