FiveTech Software tech support forums

... // For other looking design, but windows related? I saw a post that this can have a conflict when a Dialog is reused? FW_SetUnicode( .T. ) WndCenter( oWnd:hWnd ) tGet():lDisColors := .F. // WHEN( .F. ) COR. tGet():nClrTextDis := CLR_HBLUE tGet():nClrPaneDis := CLR_SOFTYELLOW IF Set( _SET_INSERT, ...

... oBtn[2] id 103 of odlf action(lSelecao := .f., oDlf:End()) cancel oDlf:lHelpicon := .f. activate dialog oDlf on init(IIf(ValType( nRow ) != 'N', WndCenter(oDlf:hWnd), oDlf:move(nRow,nCol))) return(dDate) /*************************************************************************************************************/ ...

... oBtn[2] id 103 of odlf action(lSelecao := .f., oDlf:End()) cancel oDlf:lHelpicon := .f. activate dialog oDlf on init(IIf(ValType( nRow ) != 'N', WndCenter(oDlf:hWnd), oDlf:move(nRow,nCol))) return(dDate) /*************************************************************************************************************/ ...

... oDlg, "Shell.Explorer.2",-3,-2,oDlg:nWidth-20,178 ),; oLbx:Do( "Navigate", curdir() + "\aviso.html"),; if(lCenter, WndCenter( oDlg:hWnd),)} if lAguarda ACTIVATE DIALOG oDlg ON INIT (oDlg:Move(aPos[1],aPos[1]), ; oDlg:SetColor(CLR_WHITE, oCor),; if(lTransparente, ...

... * Enhancement: CLASS TScintilla METHOD MnuMargen(), added clause COLORS to the popup menu definition: MENU oMnu POPUP COLORS * Fix: function WndCenter() was not properly working for a window contained inside a parent window. Now it is ok. * TGET.prg: Painting of right/center aligned text ...

... @ 0, 50 XIMAGE oImage2 SIZE 32, 32 FILENAME "C:\fwh\bitmaps\32x32\App.bmp" NOBORDER OF oWnd oImage2 :oCursor := oCursor En la función WndCenter() en FWH/source/winapi/wndcente.c hay que hacer esta modificación:   if( hParent && IsWindow( hParent ) )      GetClientRect( ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

Hi Antonio , I try to make some test on FLH this morning. After install UBUNTU 14.04 LTS and all the packages needs to compile FLH i've a lot of errors like this: compiling... Harbour 2.1.0rc2 (Rev. 16643) Copyright (c) 1999-2011, http://harbour-project.org/ Compiling 'tutor01.prg'... Lines 1097, Fu...

... // ntop,nleft,nbottom,nright end case next // aRect = GetWndRect( ::hWnd ) ::Move( ntop,nleft,::nWidth*rsl0, ::nHeight*rsl1, .T. ) if ::lCentered WndCenter( ::hWnd ) else if Empty( ::cResName ) ::Move( ::nTop, ::nLeft ) endif endif return in prg: ACTIVATE DIALOG odlg ON INIT (odlg:autoresize())

... aRect[1] + ( aRect[3] / 2 ) - ( nMaxHeight / 2 ), ; aRect[2] + ( aRect[4] / 2 ) - ( nMaxWidth / 2 ), , , .f. ) ELSE // centered on Main-window WndCenter(oDlg:hWnd) ENDIF Best Regards Uwe :lol:

Hi Antonio Here is the stripped down list, for clarity purpose the irrelevant entries are removed. ---------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------...

... de Cliente" Endif if IsAppThemed() *FixSays( oBar:hWnd ) endif #ifndef __XPP__ oFactor:Set3dLook() #endif oWnd:cargo := oDevice WndCenter( oWnd:hWnd ) SysRefresh() SetResources(hOldRes) oWnd:oHScroll:bPos := {|nPos| hScroll(GO_POS, .f., nPos)} oWnd:oVScroll:bPos := {|nPos| vScroll(GO_POS, ...

... ) hCtrl = GetWindow( hCtrl, GW_HWNDNEXT ) lEnd = ! ( ( hCtrl != 0 ) .and. ( GetParent( hCtrl ) == ::hWnd ) ) end endif endif #endif if ::lCentered WndCenter( ::hWnd ) else if Empty( ::cResName ) ::Move( ::nTop, ::nLeft ) endif endif if ::cCaption != nil SetWindowText( ::hWnd, ::cCaption ) endif ...

... ) Auto800( oWnd:aDialogs[nContador], .F. ) EndFor EndIf EndIf EndIf If lRepaint If( ( "DIALOG" $ oWnd:Classname() ) .and. oWnd:lCentered, WndCenter( oWnd:hWnd ) , Nil ) oWnd:Show() EndIf EndIf Return Nil ////////////////////////////////// Una vez que incluyas esta función en tus fuentes, ...

... DEFAULT nState OF oIni GET cIncPath SECTION "Pre-processor" ; ENTRY "IncludePath" DEFAULT cIncPath OF oIni ENDINI IF nRow == 0 .AND. nCol == 0 WndCenter(odlge:hWnd) ELSE odlge:Move(nRow, nCol, nWidth, nHeight) ENDIF IF nState == ST_ICONIZED //odlge:Minimize() ELSEIF nState == ST_ZOOMED //odlge:Maximize() ...