FiveTech Software tech support forums

... close to the top using a GET with action ? With a background-color it doesn't look very nice. I'm using it for a color-selection. in METHOD CreateButton() CLASS TGet I noticed everywhere < ::nHeight - 4 > http://www.pflegeplus.com/IMAGES/Getact1.jpg I tested oCGet[2]:lAdjustBtn ...

... => FONTTOTEXT( 641 ) Called from: .\ALARM.PRG => (b)PAGE2( 749 ) Called from: .\source\classes\TGET.PRG => (b)TGET:CREATEBUTTON( 952 ) Called from: .\source\classes\BUTTON.PRG => TBUTTONBMP:CLICK( 179 ) regards Uwe :?:

I add this code to method createbutton() after line 943 in FWH 18/12 if !::lKeepFocus        ::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:refresh(),if(valtype(::bValid) == "B",;   ...

In method createbutton() is this line ::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:SetFocus() } It respects not the present data ::lKeepFocus!! Should be: ::oBtn:bAction := {||  ( ...

... 414 ) Called from: D:\Programs\ESTUDI~1\PRG\cobranzas.prg => (b)DETACOBRANZA2( 417 ) Called from: .\source\classes\TGET.PRG => (b)TGET:CREATEBUTTON( 628 ) Called from: .\source\classes\BUTTON.PRG => TBUTTONBMP:CLICK( 179 ) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( ...

... 0 ) Called from: .\SOURCE32\Comm_Prg\TUsersMsf.prg => (b)TUSERSMSF:REGET( 497 ) Called from: .\source\classes\TGET.PRG => (b)TGET:CREATEBUTTON( 527 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 658 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( ...

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...

... a la izquierda en lugar de la derecha como lo hace normalmente. Para eso estoy modificando las coordenadas de creación del boton en el método CreateButton(), lo que es sencillo, peeeeeero.... No puedo cambiar el márgen izquierdo para que el texto del Get no quede debajo del botón. He puesto ...

... resizign is necessary is not being destroyed. Fixed now http://forums.fivetechsupport.com/viewtopic.php?f=3&t=30352 * Fix: Class TGet Methods CreateButton(), GotFocus() and LostFocus() have been modified so a GET button (clause ACTION) with a WHEN .F. get the focus: http://forums.fivetechsupport.com/viewtopic.php?p=174059#p174059 ...

Maestro, La forma en que ha pasado dio error. Sin embargo, cambié el TGet y así lo hizo: METHOD CreateButton() CLASS TGet ... ::oBtn:lCancel = .f. // Inicia FALSO para ser habilitado na GOTFOCUS (Alexandre Pereira) ... METHOD LostFocus( hCtlFocus ) CLASS TGet ... // Desabilitando ...

Antonio Linares wrote:Frances,

Please try this before you call CreateButton():

oGet:oBtn:End()

Antonio,

This solved my issue.

Frances,

Please try this before you call CreateButton():

oGet:oBtn:End()

Antonio,

Please refer to this testbed
https://drive.google.com/folderview?id= ... =drive_web

If from redefine.. no need to add :createbutton() but if from @1,1 Get... I must in order to create tBtnBmp instead of tbuttonbmp.

Please kindly check.

Frances,

You don't need this line as FWH creates the button automatically:

oGet:CreateButton()

Also, are you using a dialog box ? You will not be able to disable a button until it has a valid Windows handle, so it has to be done from the ON INIT clause of the dialog.

Elvira, Hay un bug en el método CreateButton() de la clase tGet.prg Busca este código: if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET" Sin embargo, debería ser en realidad Upper( ::Super :ClassName() ...