Xailer forum

Hurricane

Olá, use apenas destroy e sem condicionais ( já faz o :close() ): AEVAL(oDataSource:aDataSet, {|o|o:destroy()}) Versão mais compacta e parametrizável: FUNCTION CerrarTodoDS( aDS ) local oDS LOCAL nPos aDS:=IF( aDS == NIL, DataSources(), aDS ) for nPos:=Len(aDS) TO 1 STEP -1 oDS:=aDS[nPos] AEVAL(oDS:...

Hurricane

Hi, Inconsistencies: 1 - FASTEDIT: when starting typing* (Eg: z, x), it only activates the editing mode, ignoring the typed letter. 2 - FASTEDIT: when starting typing* (Eg: a, b), will enter a number. 3 - In the form designer, if you click further to the right of a column, it will not be selected, b...

Hurricane

Hi,

I'm completing a new plugin...
how do I change the TLabel:cText value? that is in the Form Designer and reflect it in the Object Inspector.

regards,

Hurricane

Hi, The onSaveCol event is sending an TEditForGrid object, instead of TBrwColMod (as described in the documentation). METHOD BrwSaveCol( oSender, oCol, xValue ) CLASS tfrmLbEdit /*REDECLARE oCol as TBrwColMod if oCol:nDataCol = 4 ... endif */ // Only one column is editable, it won't break my code. m...

Hurricane

Hi,

correct is hb_dirCreate( <cDirectory> ) -> nError.

: dir_create.png (3.69 KiB) Visto 356 veces

Hurricane

sample

Hurricane

Hi,

I have attached a small example.

Is this the correct way to freeze the column?
Via Form Designer, it is not possible to click directly on any column to adjust it in the Object Inspector.

regards,

Hurricane

Hi, if this line of code is active, column 1 will not apply the color of nClrPane: ::oBrowseMod1:aGridData:=Directory('*.*') #include "Xailer.ch" CLASS TForm2 FROM TForm COMPONENT oBrowseMod1 METHOD CreateForm() METHOD FormInitialize( oSender ) ENDCLASS #include "Form2.xfm" //---...

Hurricane

Hi, To simulate with Form Designer: include two columns delete the first column delete the second column (KABUMM) Subsystem Call: BASE System Code: 1132 Default Status: .F. Description: Bound error Operation: array access Arguments: [ 1] = Type: A Val: [ 2] = Type: N Val: 2 Involved File: Dos Error ...

Hurricane

Hi, it works fine when I insert the control directly into the Form, but when I insert it inside a container (groupBox...), both are selected. I sent you an email with a small complete example. just add: oPlugin:IInspector:oActiveForm:ReplaceSelection(oCtrl) add_control2.png I tested this but it keep...

Hurricane

Hi, after i inserted the control into the Form, it is not selected, (I need to click on control to activate in object inspector). I will email you a small complete project. if nsBtn = BTN_MSK with object oCtrl:=TDbMaskEdit():New(oParent) :SetBounds( aPos[1], aPos[2], 80, 20 ) //:oDataField:=cField :...

Hurricane

Hi, I added a button to my routine in Code Editor, but how to make it not duplicate when compiling the plugin? With two lines of code, I improvised and it works fine: function install_ColorPicker(self) local oBand AEval( ::IEditor:oRebar:aItems, {|o|IF(HB_IsChar(o:cargo) .and. o:cargo == UTIL_NAME, ...

Hurricane

Olá, veja o exemplo SAMPLES\VIDEO\VideoPlayer.XPJ O arquivo fonte da classe TVideoPlayer esta junto. METHOD FormInitialize( oSender ) CLASS TVideo DeleteMenu( GetSystemMenu( ::Handle ), 2, MF_BYPOSITION ) WITH OBJECT ::oMCI := TVideoPlayer():New( Self ) //:cMediaFile := "fp.avi" :cMediaFil...

Hurricane

Olá, eu olhei o código fonte da classe. Troque :destroy() por :free(). após o :create(), adicione :lInstalled e informe se retorna .T. ou .F. no final do loop, após cada envio, adicione a função sleep(50), apenas para teste. Qual o domínio de e-mail (remetente) esta usando? No total, há quantos envi...

Hurricane

Olá,

Código: Seleccionar todo

::oBrw:oHeader:EditFilter(2)

: edit_filter.png (9.53 KiB) Visto 1143 veces

Alfonso escribió: ↑Lun Ene 24, 2022 8:41 pm Cuando estan activados los filtros de un browse, ¿existe alguna propiedad o forma, para que cuando se inicializa el browse el foco este en alguna de las columnas del filtro no en los registros?

Hurricane

Hi, 1 - In TSQLiteDataSouce: assign the full name of the DB file (:cConnect) 2 - add TSQLQuery: define SQL statement (:cSelect) assign/select the DataSource (:oDataSource) activate (:lOpen) * 3 - In TDBBrowse: assign/select the TSQLQuery (:oDataSet) If there are no columns in the browse, they will b...

Hurricane

Hi,

what is this feature? how to use?
> Support of BEGIN JSON-EN JSON in Treeview of the active module

regards,

Hurricane

Hi, I haven't received any notifications from the forum for 7 months. (a few days after I was added to the Pro Users group). In "Manage subscriptions", it shows all the forums I'm subscribed to. In "Edit notification options", is enabled, I haven't changed anything. I did the Uns...

Hurricane

simples, Objeto x Variável simples, com objeto precisa procurar em tempo de execução as propriedades da classe, é natural que seja mais lento, não é um problema. Em cada trecho de código, o programador sempre terá que escolher o que deve usar, até uma função no lugar errado tornará mais lento. Na pr...

Hurricane

Hi Ignacio, I created a form for the IDE, when it is in focus, the Xailer shortcuts don't work: F9, F11, CTRL+11.... but the shortcut for my other plugin works. When Project Manager or Object Inspector is in focus, Xailer shortcuts work. I have sent a complete example to your email. I added a quick ...

Hurricane

Hi,

in this way:

: img_cbx.png (362 Bytes) Visto 512 veces

regards,

Hurricane

Hi, I think the Xailer needs some additional code to fix. On Lazarus it worked. In Xailer it works only with the csDROPDOWNLIST style. With the OnChange event it doesn't work either. After selection cText is out of date. And the proper event depends on the logic applied to the form, I'm using 3 comb...

Hurricane

Hi, After selecting an item, TComboBox:cText does not have the correct value. This will happen if you use csDROPDOWN. I have attached a project with the example. troubleshooter: (Are there any different alternatives?) METHOD CbxCloseUp( oSender ) CLASS TForm1 ::LOADFILES(.t.) RETURN Nil //----------...

Hurricane

Thanks for your help. It worked, but I needed to add Parent to avoid the error. // with object oObj:=TDbMaskEdit():New() // --> GETNEWID(0) Error BASE/1004 No exported method: GETNEWID *** The object is NIL or doesn't exists *** with object oObj:=TDbMaskEdit():New(::IInspector:oActiveForm) :SetBound...

Hurricane

Hi, I'm trying to create a plugin to insert controls on the Form. Where am I going wrong? I added the control, but with problems... Control is in edit mode with object oObj:=TDbMaskEdit():New(::IInspector:oActiveForm) // Parent is TFormEditor :SetBounds( 50, 30, 80, 20 ) :cVarname := "oTmp"...

Se encontraron 262 coincidencias

Re: Mensaje de error -TDbfDataSet not destroyed correctly.

TBrowseMod - inconsistencies

IDEInspector - how to change TLabel:cText?

TBrowseMod - Message not found: TEditForGrid:NDATACOL

Code Editor - incorrect function hint

Re: TBrowseMod/Column:nClrPane - doesn't work when....

TBrowseMod - freeze column and more

TBrowseMod/Column:nClrPane - doesn't work when....

Error: TBROWSEMOD:DELCOL

Re: AddExistingControl - control does not select, activates

AddExistingControl - control does not select, activates

Code Editor - new button, no duplication

Re: Reproducir MP3

Re: Archivo adjunto duplicado en Mail

Re: Filtro del browse

Re: Sqlite datasource for DBBrowse

IDE: BEGIN JSON-EN JSON

no forum notification

Re: Problemas de lentitud

New Form - IDE shortcuts don't work

how to add image in TComboBox?

Re: ComboBox:cText problem

ComboBox:cText problem

Re: addControl - how to add control?

addControl - how to add control?