Re: [MSEide-MSEgui-talk] Widget Style

[fredvs]

Hello Med.

In attachment, demo + picture using templates for frame and face for tabs.

It is not exactly what you wanted but it is not so far.

med_tab.zip
  

 

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Widget Style

[fredvs]

>  I wanted to frame only the  selected tab.  that the deal.

To change the face of the selected tab, I use a template but you may use
directly the properties:

 mytab.tab_faceactivetab.template := myfacetemplate;

But yes, I dont see a property tab_frameactivetab (only tab_frametab).
Maybe you cannot change frame of the active tab but only the face.
If it is the case, maybe you may create a face with the frame you want
included.

Or add in msegui the missing property tab_frameactivetab (but this I let you
do).

Fre;D 



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Widget Style

[fredvs]

Hello Med.

In ideU the tab-widgets have a custom look, see attachment.

Maybe you may take a look at the code to see how I did.

 

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Widget Style

[fredvs]

Re-hello Med.

Oooops, ok, I found the discussion.

OK, that "Style" property was a new property introduced by Leandro (Lainz)
in this new BRAGui widget MSEgui demo.
https://github.com/bgrabitmap/bgragui

At the beginning I did not catch that this property was new and it was a
addition of Leandro.
He did it so fast, just discover msegui and in few days later proposed that
new widgets, adding that new "Style" property!

Maybe you may try his widgets and then you will see that new "Style"
property in your object inspector.
See in readme.txt ---> MSEIDE Instructions

I did try it, it is great and working perfectly but for this you will need
to make mseide-bgrabitmap compatible.

Fre;D







--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Widget Style

[fredvs]

Hello Med.

Sorry but I dont remember that discussion, could you give a link?

About "skins" and mse, I never used it but there is a demo (not tested) in
mseuniverse:
https://github.com/mse-org/mseuniverse/tree/master/skins 

(But I dont remember anything about that "Style" property, please light my
memory).

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Conversion between ordinals and pointers is not portable ?

[fredvs]

Re-re hello.

I did find this (from a Martin too):

this

  

It seams that using "ptruint" generate always or a hint or a warning (see
the difference in the discussion of the link).

To resume: let it like it is.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Conversion between ordinals and pointers is not portable ?

[fredvs]

Re-hello.

Sorry, I dont catch it; ;(

For example, that code produce the warning pointing to ptruint:
> Conversion between ordinals and pointers is not portable.

procedure tpointeransistringhashdatalist.add(const keys: array of string;
   startindex: pointer = pointer($0001));
var
 ca1: longword;
begin
 for ca1:= 0 to high(keys) do begin
  add(keys[ca1],pointer(ca1+ptruint(startindex)));
 end;
end;


I am using Linux 64 bit and changed in msetypes.pas

{$ifdef cpu64}
PtrUInt = QWord;
{$else}
PtrUInt = DWord;
{$endif}

But still the warning.

Where is the guilty?

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Conversion between ordinals and pointers is not portable ?

[fredvs]

> I did research about this in Lazarus forum and their solution for the
> "ptruint" hint is to use this:
> 
>  {$push}
>  {$hints off}{$warnings off}
>... // code using ptruint
>  {$pop}
> 
> ;-) !

> Oooopss...
> VERY dangerous - seems they don't really use this internally.


Huh, I forgot to to say that it was research in Lazarus-forum, not in
Lazarus code.

> and I'd plea to keep it.

Yes, sure.

> 32 bits of a DWord simply aren't sufficient to store the 64 bits of a
> pointer on a 64 bit system.

Hum, not sure to get all here.

In msetypes.pas, do you propose to change this:

  PtrUInt = DWord;

with this that ?:

{$ifdef cpu64}
PtrUInt = QWord;
   {$else}
PtrUInt = DWord;
   {$endif}

?







--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Conversion between ordinals and pointers is not portable ?

[fredvs]

Hello Sieghard.

Thanks, very clear.

I did research about this in Lazarus forum and their solution for the
"ptruint" hint is to use this:

 {$push}
 {$hints off}{$warnings off}
   ... // code using ptruint
 {$pop}

;-) !

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

[MSEide-MSEgui-talk] Conversion between ordinals and pointers is not portable ?

[fredvs]

Hello.

When compiling msegui applications, there are lot of hints of this kind:

> mseclasses.pas(3714,12) Hint: (4055) Conversion between ordinals and
> pointers is not portable

Line 3714 of mseclasses.pas (column 12 is "ptruint") is:

> if odd(ptruint(source)) then begin

What does it mean and how to fix that and what could be the problems?

Thanks.

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Image preview in mseide ImageList Editor?

[fredvs]

Re-re hello Med.

About image-preview for face.image, here what ideU does in last commit (and
that can be done for mseide):

 

Fre;D





--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Image preview in mseide ImageList Editor?

[fredvs]

Re-hello Med.

What can be easy done is to use mseFileDialogX with image preview for all
the msecomponent.face.image, so it will be easier to choose a image.

But for tstockGlyphButton, I dont see what you ask so please explain.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Image preview in mseide ImageList Editor?

[fredvs]

Hello Med.

>  It will be possible to extend or update tstockGlyphButton icons  with it
> ? 

Not sure to understand.
With tstockGlyphButton, you may choose the glyph image clicking on the
"glyph" property and it will show all the images.

See picture:

 

mseFileDialogX is only a file-dialog widget that has more features than the
original mseFileDialog (like image preview, size and date, etc...)

But maybe I miss something and you want to show/ask something else.
If so, please explain.

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

[MSEide-MSEgui-talk] Image preview in mseide ImageList Editor?

[fredvs]

Hello.

What do you think to enable a filedialog with image-preview in the ImageList
Editor of mseide?

This because if you dont know exactly the filename of a image, the classic
mse filedialog dont give any infos and it could be difficult to choose the
right one.

A preview is much more comfortable.

Here screenshot of ImageList Editor using filedialogX with preview in ideU.

 

Maybe it could be added in mseide too (deeply tested without problems).

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] mseide configure

[fredvs]

Hello Code DZ

> it works now 
Yep, nice and now you may mix Tfiledialog with TfiledialogX in a same form.

> btw the spacer between (ok and cancel) button in the setting dialog is
> unnecessary
Indeed, I dont know why it was there, removed in last commit c1f236ca0.

Maybe a new binary release of mseide would be needed. 

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] mseide configure

[fredvs]

Hello Code DZ.

OK, fixed (I hope) in commit fd0f8dc27.

But you will need to re-compile mseide first and then use that binary to
change msesettings code.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] mseide configure

[fredvs]

Hello Code DZ.

Hum, indeed, changing something in msesettings form add properties for each
tfilenameedit.controller :

  controller.panel = False
  controller.compact = False
  controller.showhidden = False

Those properties are for the new component tfilenameeditX.
There is then a conflict with controller of tfilenameeditX vs tfilenameedit.

There is a workaround, change all the tfilenameedit with tfilenameeditX.

In attachment, msesettings with tfilenameeditX, could you try it (and change
what you want)?

msesettings.zip
  

But yes, I will jump into it tonight and see why there is that conflict
between tfilenameedit and tfilenameeditX, thanks to note it.

Write you later.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

>   I think it's safe to apply the patch. 

OK, done with commit ee9b368b4

>  In the case of sum the same code is repeated 4 times , I believe.  I want
> to optimize that if it's possible?

Of course, please do it ( and do a pull-request when you are ready).

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

[MSEide-MSEgui-talk] test server

[fredvs]

It is a test to see if server is OK.



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] fpGUI lost drag n drop example in new environment

[fredvs]

Hello.

For fpGUI stuffs please use the site http://geldenhuys.co.uk/webnews/ or use
GitHub and create a issue: https://github.com/graemeg/fpGUI/issues .

Thanks.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

>  Is it safe to apply the patch ( buffdataset and VERSION.TXT ) ?

If you used the last buffdataset.pas that I provided for me all seems ok
too.

(Here is the file concerned:)
msebufdataset.zip
  

The new version will be then 5.4.2.  

> Is there an other patch to buffdataset?

All the change are in sumfield() methods and are in the file in assert,
nothing else was changed.

> I think Sumfield()  increase the code size because overloaded 4 times or
> more 

Hum, not sure to understand, could you give more infos?
What is overloaded?

Do you have something to give to compare?

Fre;D







--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] RTTI

[fredvs]

Hello Med.

OK.

But what about msebufdataset.pas, should I commit the changes?

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] RTTI

[fredvs]

Hello Med!

This work here (but still need the case of)

case sender of 
  tdbintegeredit: 
showMessage(GetStrProp(tdbintegeredit(sender).datalink.datasource.dataset,
'name'));



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] RTTI

[fredvs]

>  BTW GetStrProp ( sender, 'name') gives the  tdbintegeredit1,then
why not datalink.dataset?

I dont know, I have to jump into GetStrProp and friends.

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] RTTI

[fredvs]

Hello Med.

Yes, my ball shows it.

Like said in previous post, I have to learn that RTTI stuffs more.

But, what about to use something like this:

procedure infotiersfo.onsetValue(const sender: TObject; var avalue: Integer;
   var accept: Boolean);
begin

if sender is tdbintegeredit then
showMessage(tdbintegeredit(sender).datalink.datasource.dataset.name)
else if ...;




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] RTTI

[fredvs]

Re-hello Med.

Ok, I understand now what you want.
I dont know how to do to access properties with Getpropinfo().
(But I will be very happy to learn how to use it).

Sorry for the noise.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] RTTI

[fredvs]

Hello Med.

Here, using your demo, this work:

 PropInfo := getpropinfo(typeinfo(tdbintegeredit1),'datalink');
showmessage(PPropInfo(PropInfo)^.Name); 



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] RTTI

[fredvs]

Hello Med.

Sorry but once again, isolated code out of context is difficult to
understand.

Using your demo, doing this works:

  showMessage(tdbintegeredit1.datalink.fieldname);
  showMessage(tdbintegeredit1.datalink.datasource.dataset.name);
  
  showMessage(tdbrealedit1.datalink.fieldname);
  showMessage(tdbrealedit1.datalink.datasource.dataset.name);
  
 
showMessage(tdbwidgetcol(odbgrid.datacols.items[iCol]).datalink.fieldname);
 
showMessage(tdbwidgetcol(odbgrid.datacols.items[iCol]).datalink.datasource.dataset.name);






--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Re re re hello Med!

In attachment your project with name and type of column:


test__med.zip
  


 

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hi Med.

In attachment, your project with type of column enabled:

test__med.zip
  

 

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Yep Med.

Using this is ok here:

 if tdbwidgetcol(odbgrid.datacols.items[iCol]).datalink.field.datatype =
ftInteger
  then showMessage('It is a ftInteger');

(But maybe it is not what you want)

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

**Many** thanks for the demo, much easy to understand now.

Indeed, here there is a error with:
 
if tdbwidgetcols(odbgrid.datacols.items[iCol]).getitemclasstype =
tdbintegerEdit
 then showMessage( 'DONE ');

I get that error (and I dont understand why):

"testf" 0x00658f11 in SETOPTIONS1 (this=0x994d50, AVALUE=...) at
../../mseide-msegui/lib/common/editwidgets/msewidgetgrid.pas:1944

I will continue to try to find a solution but I am a little lost now.
I am nearly sure that there is a way to know what kind of class is used in
the tdbwidgetcols.

Maybe tonight I will have better idea.

Fre;D






--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Re... hello Med.

Maybe you may try a other way.

It seems to me that the kind of column in a BDStringgrid is assigned when
you connect the fields to the tmsesqlquery1-field.

So if you want to know the kind of column in a BDStringgrid, this should
work:

var
str : string;
datatype: tfieldtype;
...

str := odbgrid.datacols.cols[iCol]].datafield; // to get the name of the
field.
 
for x:= 0 to tmsesqlquery1.FieldDefs.count -1 do // look in query the same
name
begin
if str = tmsesqlquery1.FieldDefs[x].name then
datatype := tmsesqlquery1.FieldDefs[x].DataType; // Yep, you get the
datatype
end;

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Re_hello Med.

You may try this (from previous post):

if tdbwidgetcols(odbgrid.datacols.cols[iCol]).getitemclasstype =
tdbintegerEdit then 

There is also this one:

if tdbwidgetcols(odbgrid.datacols.items[iCol]).getitemclasstype =
tdbintegeredit then ...

But I really would prefer that you show more code to understand better what
you want.

Fre;D





--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

> the line code which raise this error:
> if tdbwidgetcols(odbgrid.datacols[iCol]).getitemclasstype = tdbintegerEdit
> then ...

Here I dont get error (but I dont have all your code and I dont find my
ball)

Hum, I dont understand fully the mse-synthax but could you try with this:
(see the ".cols" added after "datacols"):

tdbwidgetcols(odbgrid.datacols.cols[iCol]).getitemclasstype = tdbintegerEdit
then 

This compile and run without error too here.

Note that I never used that "getitemclasstype" property and also I dont know
if it is what we need to get the type of the column.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

To resume, I propose this for the patch:

   procedure sumfield(const afield: tfield; out asum: currency); 
  "afield" type could be: [ftinteger,ftsmallint,ftword,ftbcd,ftfloat] //
should we add ftlargeint?

  procedure sumfield(const afield: tfield; out asum: double); 
  "afield" type could be: [ftinteger,ftsmallint,ftword,ftfloat,ftcurrency])
//  // should we add ftlargeint?
 
  procedure sumfield(const afield: tfield; out asum: integer); 
   "afield" type could be: [ftinteger,ftsmallint,ftword,) // should we add
round([ftfloat,ftcurrency])?

   procedure sumfield(const afield: tfield; out asum: int64);  
   "afield" type could be: [ftlargeint,ftinteger,ftsmallint,ftword] //
should we add round([ftfloat,ftcurrency])?

Here the patched /mseide-msegui/lib/common/db/msebufdataset.pas:
msebufdataset.zip
  

Fre;D







--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

>  because not all programmers want  to sum  integer into currency?

Dis you try the msebufdataset.zip of my previuos post?
 

No problem if a programmer want to sum integer into integer, he may still
use:
 procedure sumfield(const afield: tfield; out asum: integer);

> this  patch an upgrade to 5.4.1 

I just wait for your green light, when you have done all the hard tests
without problems, I will propose the patch for commit into 5.4.1.

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

The last for tonight.

Could you try changing your /mseide-msegui/lib/common/db/msebufdataset.pas
with the one in attachment?

msebufdataset.zip
  

This one enable (I hope) to add integer-fields into currency variable.
I did some test to add integers into a currency/float variable and did not
note problems.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hi Med + Sieghard.

I would propose this:

procedure tmsebufdataset.sumfield(const afield: tfield; out asum: currency);
var
 int1,int2: integer;
 index1: integer;
 po1: precheaderty;
 po2: pprecheaderty;
 bo1,bo2: boolean;
 state1: tdatasetstate;
begin
 checksumfield(afield,[ftinteger,ftbcd,ftfloat]); // this changed
 index1:= afield.fieldno - 1;
 asum:= 0;
 bo1:= filtered and assigned(onfilterrecord);
 state1:= settempstate(tdatasetstate(dscheckfilter));
 try
  int2:= ffieldinfos[index1].base.offset;
  po2:= pointer(findexes[0]);
  case ffieldinfos[afield.fieldno-1].base.fieldtype of
   ftinteger: begin  // this added
if bo1 then begin
 for int1:= 0 to fbrecordcount - 1 do begin
  fcheckfilterbuffer:= pdsrecordty(pchar(ppointeraty(po2)[int1])-
 
sizeof(dsheaderty));
  bo2:= true;
  onfilterrecord(self,bo2);
  if bo2 and getfieldflag(
  @fcheckfilterbuffer^.header.fielddata.nullmask,index1) then
begin
   asum:= asum + pinteger(pchar(@fcheckfilterbuffer^.header)+int2)^;
  end;
 end;
end
else begin
 for int1:= 0 to fbrecordcount - 1 do begin
  po1:= ppointeraty(po2)^[int1];
  if getfieldflag(@po1^.fielddata.nullmask,index1) then begin
   asum:= asum + pinteger(pchar(po1)+int2)^;
  end;
 end;
end;
   end;
   ftbcd: begin
if bo1 then begin
 for int1:= 0 to fbrecordcount - 1 do begin
  fcheckfilterbuffer:= pdsrecordty(pchar(ppointeraty(po2)[int1])-
 
sizeof(dsheaderty));
  bo2:= true;
  onfilterrecord(self,bo2);
  if bo2 and getfieldflag(
  @fcheckfilterbuffer^.header.fielddata.nullmask,index1) then
begin
   asum:= asum + pcurrency(pchar(@fcheckfilterbuffer^.header)+int2)^;
  end;
 end;
end
else begin
 for int1:= 0 to fbrecordcount - 1 do begin
  po1:= ppointeraty(po2)^[int1];
  if getfieldflag(@po1^.fielddata.nullmask,index1) then begin
   asum:= asum + pcurrency(pchar(po1)+int2)^;
  end;
 end;
end;
   end;
   ftfloat: begin
if bo1 then begin
 for int1:= 0 to fbrecordcount - 1 do begin
  fcheckfilterbuffer:= pdsrecordty(
  
pchar(ppointeraty(po2)^[int1])-sizeof(dsheaderty));
  bo2:= true;
  onfilterrecord(self,bo2);
  if bo2 and getfieldflag(
@fcheckfilterbuffer^.header.fielddata.nullmask,index1) then
begin
   asum:= asum + pdouble(pchar(@fcheckfilterbuffer^.header)+int2)^;
  end;
 end;
end
else begin
 for int1:= 0 to fbrecordcount - 1 do begin
  po1:= ppointeraty(po2)^[int1];
  if getfieldflag(@po1^.fielddata.nullmask,index1) then begin
   asum:= asum + pdouble(pchar(po1)+int2)^;
  end;
 end;
end;
   end;
  end;
 finally
  restorestate(state1);
 end; 
end;


But if you allow to sum integers into currency variable, there is no reason
why not to do it too to sum integer into double variable.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Re-re-re hello Med.
Hello Sieghard.

After deeper look into procedure tmsebufdataset.sumfield(const afield:
tfield; out asum: currency);

Here my conclusion:

There are only:

case ffieldinfos[afield.fieldno-1].base.fieldtype of
   
 ftbcd:
ftfloat:

And I dont see really why tfinteger: is banned.

Maybe we can add tfinteger: in case and adapt the code for it.
And change checksumfield in first line with
checksumfield(afield,[ftinteger,ftbcd,ftfloat]);

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

> There is probably a raison?

It seems that Martin wanted that the field-type is the same as out-sum
variable.
It is the reason why he added the "checksumfield" method at init of each
"sumfield" method.

But why, I dont know (because your code shows that it is possible to add
integer fields into currency).
On the other side, like Sieghard said, imho summing integers into a currency
variable is a little strange.

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Re-hello med.

> s:=s+query.fieldbyname( < INTEGERFIELD>).value;

Ha, maybe I get it.

If I understand ok, with your code it works, but with Martin's code using
sumfield() it does not work.

If so, do you think it would be possible to create a new sumfield() that
uses your code and that will work?

Fre;D





--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

OK (but for me only part of code you give is like you are talking in
Martian).

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

> we can not sum integer field into a currency VAR with Martin's sumField
> Procedure?

Does it happen only with last msegui 5.4.0 or was it the case with previous
version 4.6.0 too?

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

It seems to me ok to add a parameter for your new object/method.

And I will be very happy to test this wonder in your MSE-DB demo.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

>  Your Crystal ball is very strong. It saw right  .

Yes, when I clean it a few, there are beautiful things to see sometimes.

By the way, a side is still dirty and I cannot wash it at the moment.

For example:

> There is a segmentation fault  lib/common/widgets/msewidgets.pas
>b4206 FUNCTION TCOL_SETOPTIONS1

I cannot read the code that raise that segmentation fault.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Re hello Med.

Ok, I am near my crystal ball.

Not sure to see well but it seems that you use a tdbstringgrid for grid.

If it is the case, could you try this:

- Add "msewidgetgrid," in the uses section of your "main.pas" file (if not
already there, of course).

- Use this to know what kind of column you have:

if twidgetcols(tdbstringgrid1.datacols[0]).getitemclasstype = tdbintegeredit
then ; 






--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

Would it not be possible to give a short complete demo of your code?

For me it is very difficult to understand-help only with short piece of
code.

With concrete example maybe other people and me could understand-help for
what you are looking for.

>  see piece of my mfm file. there is not an tgridintegerdatalist

Of course, I did use a twidgetgrid and a tgridintegerdatalist into the first
column of the twidgetgrid.

What kind of widget are you using for the grid?

Did you look at the code of the grid and the datacols property?

What happens is you use "grid.datacols[i]).getitemclasstype" ?

Could you give the code of your mfm file, mostly all concerning the grid you
use?

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Re-hello Med.

With this it compiles but I did not test for database:

 if twidgetcols(atwidgetgrid.datacols[i]).getitemclasstype =
tgridintegerdatalist then ;

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

> if  .col[i]  is tdbintegeredit then b1 else b2

In a form1.mfm, the kind of widget is declared as this:

object atwidgetgrid: twidgetgrid 
   ...
datacols.count = 1
datacols.items = <  
item[something]
  width = 20
  widgetname = 'mycol'
  dataclass = tgridintegerdatalist
 end  
...

So I did try to access the "dataclass" property with this:

  if atwidgetgrid.datacols.items[0].dataclass = tgridintegerdatalist then  ;

Sadly this does not work (Error: (5038) identifier idents no member
"dataclass" ).

Maybe somebody knows the synthax how to access that "dataclass" property.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hi Med.

> Numeric (x,y)

Hum, indeed, I just check and there is that "numeric" type for DB (that I
did not know).
I have to deeply study those DB features.

(And it is why some demos from you will be more than welcome).

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Re-hello Med.

sumfield is only implemented for double, currency, integer and int64:
   
   procedure sumfield(const afield: tfield; out asum: double); overload;
   procedure sumfield(const afield: tfield; out asum: currency); overload;
   procedure sumfield(const afield: tfield; out asum: integer); overload;
   procedure sumfield(const afield: tfield; out asum: int64); overload;

So, to sum date/time it seems that a new method is needed.
But you know much better mse-database than me, so forget my previous
proposition to sum date/time.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

Maybe you can complete the code checking all types that can be summed:

if (oField.datatype = ftinteger)  then  B1 
else if (oField.datatype = ftcurrency)  then B2
else if (oField.datatype = ftfloat)  then B3
else if (oField.datatype = ftbcd)  then B4
else if (oField.datatype = ftdate)  then B5
else if (oField.datatype = fttime)  then B6
else if (oField.datatype = ftdatetime)  then B7
else error('That field cannot be summed');

(My 0.01 cent of course).

Fre;D







--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

>   Martin did not introduce variant_sumfield then for me it's not
recommended.

I agree and also it seems that using variant will make all the process
slower.

In the last code you give, in the first peace of code:

procedure tfrmbasePagefo.DoSum(oDbGrid: TDbwidgetgrid; iRow:integer);
VAR  n:currency; nn:integer; iCol:integer; oField:TField;
begin
with oDbGrid,oDbGrid.datalink.datasource do
for iCol:=0 to datacols.count-1 do
 with datacols[iCol]   do
 if  tag>0 then  
 begin
  oField:=dataset.fields[tag-1];
  if (oField.datatype = ftinteger)  then
  begin
   tmsebufdataset(DataSet).sumfield(oField,nn);
  
fixrows[iRow].captions[iCol].caption:=format(tnumericField(oField).DisplayFormat,[nn]);
   end
   else
   begin
   tmsebufdataset(DataSet).sumfield(oField,n);
  
fixrows[iRow].captions[iCol].caption:=format(tnumericField(oField).DisplayFormat,[n]);
   end;  end; end;

For me that code is OK, what problems do you have using it?

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Ha, OK, indeed, nicer.

(But I like your first peace of code too.)

For the new code, maybe using a variant variable and create a new sumfield()
procedure:

procedure tmsebufdataset.sumfield(const afield: tfield; out asum: variant);

But for this, we need a variant-guru (I am beginner in variant type).

Do you have problems using your first peace of code (apart for the look) ?



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Re-hello Med.

> Now summing  ftinteger  FIELD into  currency  VAR  gives 0 ? 

Sorry but I dont understand.

Why do you want to sum ftinteger field into a currency var?

Why not sum ftinteger field into a integer var and after this, convert the
integer var into a currency ?



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

> Now summing  ftinteger  FIELD into  currency  VAR  gives 0 ? 

Please, give code example, it is really difficult to understand otherwise.




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

> An other option is possible 
> We can set aFields.optionsfield of_user0 to (true or false ) 

Nice too. (but more tricky).

Fre;D






--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

> What do  you think?

I would vote for this (set bCheck default to true for compatibility with
previous code):

procedure msebufdataset.sumfield(const afield: tfield; out asum: double;
bCheck: boolean = true);

And do it for all the other sumfield()  (integer, currency, float, etc).

Fre;D








--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

Here is tmsebufdataset.sumfield:

What about only comment the first line after begin ?
Is it what you want?
If so, maybe we can add a parameter (, nocheck) or create a new procedure
without check (procedure sumfield_nocheck).

procedure tmsebufdataset.sumfield(const afield: tfield; out asum: double);
var
 int1,int2: integer;
 index1: integer;
 po1: precheaderty;
 po2: pprecheaderty;
 bo1,bo2: boolean;
 state1: tdatasetstate;
begin
 checksumfield(afield,[ftfloat,ftcurrency]); // This enable/disable ?
 index1:= afield.fieldno - 1;
 asum:= 0;
 bo1:= filtered and assigned(onfilterrecord);
 state1:= settempstate(tdatasetstate(dscheckfilter));
 try
  int2:= ffieldinfos[index1].base.offset;
  po2:= pointer(findexes[0]);
  if bo1 then begin
   for int1:= 0 to fbrecordcount - 1 do begin
fcheckfilterbuffer:= pdsrecordty(pchar(ppointeraty(po2)^[int1])-
  
sizeof(dsheaderty));
bo2:= true;
onfilterrecord(self,bo2);
if bo2 and getfieldflag(@fcheckfilterbuffer^.header.fielddata.nullmask,
 index1) then
begin
 asum:= asum + pdouble(pchar(@fcheckfilterbuffer^.header)+int2)^;
end;
   end;
  end
  else begin
   for int1:= 0 to fbrecordcount - 1 do begin
po1:= ppointeraty(po2)^[int1];
if getfieldflag(@po1^.fielddata.nullmask,index1) then begin
 asum:= asum + pdouble(pchar(po1)+int2)^;
end;
   end;
  end;
 finally
  restorestate(state1);
 end; 
end;


Or I miss something, so explain please.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] BufDataset

[fredvs]

Hello Med.

>  In the SRC  of msebufdataset.pas  there is a function to check that (
> checksumfield)  and abort the task.

Hum, in msebufdataset.pas I see a "procedure checksumfield" not a "function
checksumfield":

procedure tmsebufdataset.checksumfield(const afield: tfield;
 const fieldtypes: fieldtypesty);
begin
 checkbrowsemode;
 if (afield.fieldno <= 0) or (afield.dataset <> self) or
 not (ffieldinfos[afield.fieldno-1].base.fieldtype in 
 fieldtypes) then begin
  raise edatabaseerror.create('Invalid sum field
'+'"'+afield.fieldname+'".');
 end;
end;

> Is it possible to change this behavior without changing   source file?

Sorry but I will need more infos to understand.

- What is the goal, do you want the possibility to manage the behavior of
"checksumfield", to not only give (or not) a error message?
- Do you want that "checksumfield" becomes a function and the result is true
or false?
- What do you mean with " without changing  source file", are you talking
about the database file or about the source of the program?

Fre;D


  




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] [fpc-other] FireBird or MySql ?

[fredvs]

Thanks Santiago, Graerme and Vasi for the light.

The good news is that MSEgui offers:

. TFBconnection (to use early Firebird), 
. TFB3connection (to use Firebird 3.0), 
. TMSEPQconnection  (to use PostgreSQL 3.0), 
. TSQLiteconnection (to use SQLite3)
. TOBDCconnection (to use ODBC)
. TMSEMYSQLconnection (to use MySQL)

And all work OK.

(@Martin: WoW).

So there is only the problem of choice.
And it seems that it will be between Firebird and PostgreSQL.

Thanks to everybody.

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] TskinControler

[fredvs]

Hello Med.

>  Here is the demo asking for
> https://github.com/mse-org/mseide-msegui/files/6459528/demo.zip

Thanks but I dont see any source-code.
Also, how to use that program?

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] FireBird or MySql ?

[fredvs]

Thanks Graeme for the infos.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] TskinControler

[fredvs]

>  Here is the demo asking for
https://github.com/mse-org/mseide-msegui/files/6459528/demo.zip

Perfect and welcome to GitHub.

Thanks.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Unit MSEmidi

[fredvs]

Hello Roland.

> (The "program" keyword is omitted.) 

Ha, ok, I did not know that it was permitted.

I will jump into your code tonight.

Thanks.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] FireBird or MySql ?

[fredvs]

Hello Funlw65.

Thanks for the infos.

Indeed there is lot of positive advice about FireBird and less for MySQL.

But following DB-Engines Ranking from:
https://db-engines.com/en/ranking

MySql = 2th (Oracle is first) and FireBird is only 31 th.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] TskinControler

[fredvs]

Hello Med.

You may use the "nabble mse mailing-lis":
http://mseide-msegui-talk.13964.n8.nabble.com/

Then, like Roland said, click on the button "More" + "Upload a file".

 

You may also use Github: create a issue and add the attachment in the issue.

https://github.com/mse-org/mseide-msegui/issues

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] TskinControler

[fredvs]

Hello Med!

>  I use 5.4.0  fisrt update  and till now I have not any problem with
> database units.

Yep!

Did you try with last commit of MSEgui, is it ok with the warning (and of
course does it not break anything)?
https://github.com/mse-org/mseide-msegui/archive/refs/heads/master.zip

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] TskinControler

[fredvs]

Hello Med!

>  Realy I do not know if it's a bug . But if I set  the theme file into
> datamodule as .sta file  this one is not read by skincontroller?

Hum, I never used skincontroller, for theming, I use the the "template"
property of each component for frame, face, etc and the "template" property
is associate with a tframecomp, tfacecomp pre-defined for theming.

Anyway, it is a good opportunity for me to jump into MSEskin.

Was it OK with msegui 4.2.2?

Or do you have the same problem with msegui 5.4.0?

Fre;D






--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] TskinControler

[fredvs]

Hello Med!

> Ps:  This subject was discussed with Martin see
> https://www.mail-archive.com/mseide-msegui-talk@.../msg12773.html 

Ooops, that was a big discussion!

Sorry but I am a little lost, what is the problem-goal of the discussion?

Is it something that you need, or is there a bug to solve?

Fre;D

 






--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Unit MSEmidi

[fredvs]

Hello Roland!

Sorry for the long delay, I am hyper-sur-booked.

I did try your attachment but did not find the "program" file (I found only
units-files).

How to make it work?

Thanks.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Re-hello all.

OK, I hope it is the good one.
Fixed in last commit all warnings about range check in enums of DB units.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello all.

> OK, fixed in last commit.

NO, it was not ok and caused "Unknown" fields.

So I reverted that commit to prior.

And there are still now the warnings, sorry.

I have to jump into it deeper and will do it asap.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

> I have some notes and warning see joined txt.

OK, fixed in last commit.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Re-hello.

About the error range warnings with enums.

OK, I remember now how to fix it (there was discussion about this 2 years
ago).

The trick is to remove all the "extended members of a enum", like 

const
extendedenum1 = ord(high(tdataevent))+1; 
extendedenum2 = ord(high(tdataevent))+2; 

end append it in the tdataevent enum list instead.

I will do it tonight.

Fre;D







--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med and others.

About the warnings of range error.

It is about some strange use of enum by Martin.

I would need some help to fix it.

 For example, this is used:

Const
de_afterapplyupdate = ord(high(tdataevent))+6;

and a few later:

dataevent(tdataevent(de_afterapplyupdate),0); // this, of course is not
regular and raise warning of range error.

Any tip how to make this regular is welcome.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

Happy that it works!

Thanks for your txt notes, I will study it tonight.

By the way, feel free to complete your demo (with filters, search,
commander, etc, ...) because I did not find any demo in mseuniverse that
shows how to do with fb3 database.

And then we can add your demo in mseuniverse examples.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

Released mseide-msegui 5.4.0 with the (I hope) DB field fixes:
https://github.com/mse-org/mseide-msegui/releases/tag/5.4.0

You may use the binary of MSEide  and source that are in the assets.

I still cross my fingers.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

I hope it is the last one.

Fixed in last commit: https://github.com/mse-org/mseide-msegui

 

You will need to recompile MSEide with those last msegui commit.
After this, reload your project using last msegui and it should work.

I cross my fingers.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

I am lost.

I cannot find what I did to make it work with ideU.
Sadly I did not commit the change to git and stupidly I removed that working
test directory.

I have to do a break otherwise I will be completely crazy.

I hope that I will remember what I did but now it is the black out.

Fre;D





--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Med!

Sorry, dont use the last release of ideU, it is the last commit that works.
So, please wait a little bit, I check everything but we are near the goal.

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Re-re...-re hello Med.

OK, I think I get something.

I just try now to load the project with MSEide and, indeed, there is
"Unknown" fields.

<http://mseide-msegui-talk.13964.n8.nabble.com/file/t2/mseide_db.png> 

I was using ideU to load the project.

<http://mseide-msegui-talk.13964.n8.nabble.com/file/t2/ideU_db.png> 

May I ask you if it could be possible for you to load the project with ideU
?
https://github.com/fredvs/ideU/releases/

ideU is a fork of MSEide and it works like MSEide.

If, by chance, you have more luck with ideU, we have light to see what is
wrong with MSEide.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

[MSEide-MSEgui-talk] FireBird or MySql ?

[fredvs]

Hello.

I re-jumped (thanks to Med) into databases.
Long ago I was using Microsoft SQL server or Borland-Delphi BDE.

Now, as Open-Source converted, I prefer to use something Open-Source.

But it seems to be a kind of war for this, like the "Mac vs Windows" war.

Some people say MySQL is a joke, Firebird is much better, others say the
opposite.

What is your advice about this?

Thanks.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

What project are you using?

With the last project I give, I get this:

 

Here the last project I give:

mse_fb3_new.zip
  

Note that I did not try with Windows, it was compiled on Linux.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

[MSEide-MSEgui-talk] Installing FireBird 3.0 on Linux.

[fredvs]

Hello.

Here a working easy way to install FireBird:

1) Download the last version for your OS here:

https://firebirdsql.org/en/firebird-3-0/

2) Unzip it somewhere.

3) Go in the directory:
  $ cd /somewhere/Firebird-3.0.7.33374-0.amd64

4) Install it with:
  $ sudo somewhere/Firebird-3.0.7.33374-0.amd64/install.sh

When asking for the password of SYSDBA, give the default "masterkey".

5) To run FireBird server (for next time you boot if you did not create a
init file):
  $ sudo /opt/firebird/bin/firebird

I did not have luck installing fb3 via "apt-get install firebird3.0."

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Re-hello Med.

So, to resume, it seems that, like for the "size" problem, with MSEgui
5.2.0, if you import a old fb3 project, you have to first delete the
controller.fields and then re-create it.
Or delete the all the component and re-create it using msegui 5.2.0.

I created a new project from scratch with msegui 5.2.0, with the same
components that you used in your demo and with same parameters.
And it compiles out-of-the-box.

Included your demo re-created from scratch using msegui 5.2.0.

mse_fb3_new.zip
  

Conclusion: yes there is problem of compatibility with old projects using
some database components.
The good news is that is it easy to fix.

Fre;D

Fre;D











--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

Here it works doing this:

Edit tmsesqlquery1 with the Object Inspector.

Select tmsesqlquery1.controller.fields.count and set it to 0.

 

Then set tmsesqlquery1.active := true;

 

 

Included your demo with the change.

mse_fb3.zip
  

But maybe I miss something, I dont know well fb3.

Fre;D





--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

> See tmsesql.controller.fields .The  problem is there. 

OK, I will check it.

> Try with  (MseIde 4.6.3 Msegui 4.7.0 )

On Linux it is not possible to use MSEgui 4.7.O and fpc 3.2.0: they are not
compatible.
And I dont have a Windows machine to test.

> Is the version 5.2 updated  the database units?

No, nothing is changed in db units, it is why it is strange that there are
problems.

Please if you see something that could help to fix, say it.

Thanks.

Fre;D





--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Re-re hello Med and others.

Voila, I think that FireBird 3 is correctly installed.

With your demo I can access employee database.

But, sadly, when trying to set tmsesqlquery1.active := true there is that
error message:

Field 'EMP_NO' expected ftsmallint Actual: unknown.

See picture:

 

I dont know what to do and it it is related to msegui 5.2
I will do a break because I dont see what is wrong.

Fre;D






--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

After a very hard fight I was able to install MySql on Linux 64 bit.

Also here /mseuniverse/samples/db/simplemysql demo is working with fpc 320
and msegui 5.2.
Are you able to make it work too?

I had to create a test.sql database and a table using command line:
$ mysql -uroot -pmypassword

then add the mysql command:

CREATE DATABASE test;

USE test;

CREATE TABLE TABLE1 (
PersonID int,
LastName varchar(255),
FirstName varchar(255),
Address varchar(255),
City varchar(255)
);

___

And in the conn widget UserName: root and Pasword: mypassword.

Now about your demo, I need to install Firebird3 and Flamerobin (need lot of
courage and time) then maybe I can check what is wrong.

By the way, what are the advantage of MySql vs Firebird3?

Fre;D




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Re-hello Med.

> This sample  works with Ver 4.6.  and FPC 3.20. 

I just try to compile your demo with mseide + msegui Ver 4.6. and FPC 3.20
but without luck, here is the error at compilation:

msegraphedits.pas(126,19) Error: No matching implementation for interface
method "getdefaultifilink:iificlient;" found

How did you do to compile your demo with Ver 4.6.  and FPC 3.20.?

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med.

> This sample  works with Ver 4.6.  and FPC 3.20. 

Ha, that is excellent news.

Yesterday I spent many hours to try to install FireBird and MySql on my
Linux 64 bit Debian machine.

Without luck ;-(.

Do you have some advices how to install those programs?

For example, with the demo /mseuniverse/samples/db/simplemysql/simplemysql,
I have this error message at run:

emysqlerror : conn: Server connect failed: Access denied for user
'fred'@'localhost' (using password: NO)
  $007627BC  CHECKERROR,  

I did not find a solution in internet.

And for your demo, It does not works too.

You are much better than me in msegui database, I fear that only you can
find why it works with Ver 4.6. and not with 5.2.

I did try also /mseuniverse/samples/db/simplemysql/simplemysql with 5.0 but
same error than with 5.2.

Fre;D





--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

>From Pat:

> Search for "FIRST_NAME" and delete the 'size = 15' line below it.  Should
> be at lines 99 and 117
> There should be 2.

Maybe totally not concerned but once you have done this, you may re-create
the "size" field with the Object Inspector:

See picture: 
 

NB: What is strange is that making this, if you take a look at the main.mfm
generated, it has the same code than the original from Med, but this one
compiles...

Fre;D








--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

> @Med: are you able to compile your demo + run with msegui 4.6 ? 

With fpc 3.2.0 of course.

Fre;D





--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] tmsesql

[fredvs]

Hello Med and Pat.

I have zero knowledge in MSEgui database.

I did try the demo of Med + the instruction of Pat and it compiles.

But it does not work because Firebird is not installed on my system.

@Med: are you able to compile your demo + run with msegui 4.6 ?

Because we did not touch to the mse-db folder.

Fre;D 




--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Unit MSEmidi

[fredvs]

Hello Roland.

> I have never heard of fpmidi. Are you sure of the name? 

Ooops, no, it is a component from breakoutbox:
http://breakoutbox.de/midi/

> Do you think of something like connecting a keyboard to your computer and
playing music? I

Yes, I dont want to connect a usb keyboard, to much work.
I use the keyboard of the pc and vmpk (Virtual MIDI Piano Keyboard): 
https://vmpk.sourceforge.io/

It is part of many distros including redhat and debian ( sudo apt-get
install vmpk).

MIDI is hard to make work on Linux.
I had some success with midi-station like Rosegarden and Ardour.

Thanks for your demo, I will try it with great attention. 

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Unit MSEmidi

[fredvs]

Hello Roland.

> Have you ever noticed that there is a /msemidi/ unit?

Yes but I never try it, so when you drink your beer, I will drink a
Coca-Cola with you.

In the past I did try to make work fpmidi but without luck.
It would be very great to have a (easy to work) midi interface for Linux.

MSE uses as audio-out PulseAudio for Linux.
It is great but not all systems has pulse-audio installed.

It is the reason why I prefer use PortAudio that can deal with lot of
audio-system, included PulseAudio.

For the audio-signal-fft MSE widgets, I did a audio interface that uses
PortAudio.
And will be very happy, after our drink, to do the same for midi MSE.

Cheers.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] Forum

[fredvs]

Hello Med.

You may try https://stackoverflow.com/  I did use it some time and have
success with the answers.

There is a forum of MSE-org here: http://mse-org.111682.n8.nabble.com/

But there is very few movement.

What optimization code and other features that no other programming language
offers do you want to discuss?

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Re: [MSEide-MSEgui-talk] What is 'ifi'?

[fredvs]

Hello Med.

Many thanks for the demo.

But can you explain how to use it?

Thanks.

Fre;D



--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/


___
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk