I will have a look at it myself. I cannot say what exactly is happening, but it seems to me that the stack is being messed up.

Thanks for your report !
I'll keep you informed about any progress.

Michael.

On 09 Sep 2002 10:03:21 -0400
"Tony Maro" wrote

I just realized there's no TStringGrid yet! I don't even see it in the FPC CVS. Just a few placeholders.

hmmm.. I wonder why. It shouldn't be that hard to create in intial hacked version based on a GDKClist, as it supports multiple columns/rows.. I'll see if I have time to try later on....

Andrew

_________________________________________________________________ Send and receive Hotmail on your mobile device: http://mobile.msn.com

I just converted an old Delphi 2 component. It's a descendant of a TLabel and scrolls the contents either direction using an embedded TTimer.

It's on my Lazarus software download page:
http://tony.maro.net/mod.php?mod=userpage&page_id=19

-Tony

That is OK, TListview is buggy as hell under Kylix too, so we're just trying to be compatible =-)

Michael.

The internal MySQL types have changed.

I have written several myself, and I implemented the FPC version of TDataset, so I assume I know what I'm talking about.

I could not agree more. The only reason why FPC doesn't offer more of this is lack of time.

I guess it just seemed odd in these days of component based programming that something wouldn't be able to support multiple backends without recompile, or at least a graceful abort when not compatible.

Feel free to modify the sources to this end. It's open source, after all.

In general, I must say that the offers for support for database functionality have been limited not to say almost non-existent. Which is a pity, since about 95% of corporate programming is database programming.

But, given time, we'll make it there too. I have ideas on how to do all this, just the time to implement them is lacking. I suppose that goes for many people on this list :-)

Michael.

Did you recompile them using the new mysql unit ?

Just a quick question, why are there seperate units for MySQL 3.22, 3.23 and 4.0? Is there no way to detect and use the appropriate server code at run time?

Jeff.

No, because also the structure definitions (records etc) have changed, and we cannot change it was only the DLL procedure entry points, this could be done, but not if the structures change. It's a problem that will occur with all C libraries. Annoying, but nothing we can do about it.

Michael.

Done! Thanks... it also beats having an announcement for each component on the website. Nice for the first one, but after that it gets annoying.

I also see you already added RDP to the "Programs created with" category.

-Tony

For *nix there is nothing simpler than that.

Do an update, fix other things you want in the tree, make sure ppc386 is in your path, and do a

make all install OPT="-OG3p3"

in the fpc/ directory.

For win32 you have to be more careful. Make sure that the first dir in your path is FPC's, and not CYGWIN, otherwise the compiler will try to use the cygwin's binutils.

Did you see the earlier posts about making sure you are using the right MySQL units with the right MySQL database versions? Maybe your versions are messed up. What version of the database and what version of the units are you using?

Shane

Good because despite Florian's promptings, it's over my head... ;-P I'm having enough fun making mysql work - the darned objects with the FPC just don't work. I got the mysql unit to work, however, so now I get to encapsulate it into something i can use...

-Tony

I have created a new catagory in the "Web Links" section of the web site. You can submit your links there. Put a description of the component and the link to it. Once you have placed some of the links for the couple of components you have done I will put an announcement in the regular news about the new web link catagory.

This way people can use that to get to your components and not have to rely on your email notice.

*********** REPLY SEPARATOR ***********

Hmm, I suppose I'll have to diff the code to see what you mean. I've used some code that provided seamless use of several versions of Paradox, dBase and Clipper with only one codebase, and the record structures used there were different. Of course, this was local tables, not client/server.

I suppose also, you are refering to a native access implementation, not a TDataset descendant, which would encapsulate much of the lower levels of functionality, and thus could more easily support multiple versions. I don't know how much you've messed with Delphi's TDataset descendants, but once you get used to the hoops you have to go through to write one, they are very handy things to have around. Yes, you are abstracted away from the lower levels, and so may be sacrificing some of the power, but the common interface and ability to switch backends almost on the fly can be very useful.

I guess it just seemed odd in these days of component based programming that something wouldn't be able to support multiple backends without recompile, or at least a graceful abort when not compatible.

Jeff.

make all install OPT="-OG3p3" in the fpc/ directory.

I just downloaded the entire CVS sources...

I get an error on
Can't find unit LINUX

�
Tony Maro �����:
I just converted an old Delphi 2 component.�
It's a descendant of a
TLabel and scrolls the contents either direction using an embedded TTimer.
It's on my Lazarus software download page:
http://tony.maro.net/mod.php?mod=userpage&page_id=19 It's interesting. A year ago I've made such a component (TRunningLine), but for Kylix. I've made it for my LinCommander, so you can find it in LinCommander src on sourceforge.net/projects/lincmd. It might work on Lazarus. Besides, now I'm making something like LinCommander (called LinCommander WILX) for lazarus. The problem is TListView.Selected. It doesn't seems working!

Actually I was involved in those posts... that is what fixed the mysql unit for me. Now though the DB objects and mysqldb component will just do "internal error" anytime I try to use them.

But, like I said the mysql unit itself with all of it's mysql calls works just fine. It's the data aware objects that croak on me now. I do have a somewhat mismashed FPC though since I can't figure out how to recompile my FPC from the CVS edition. I'm still on 1.0.6 but using the mysql unit from the CVS.

Tony Maro wrote

Actually I was involved in those posts... that is what fixed the mysql unit for me. Now though the DB objects and mysqldb component will just do "internal error" anytime I try to use them.

Did you recompile them using the new mysql unit ?
If so, can you try and debug the problem ? It would be better to try and fix the existing problems; this way everyone benefits from your efforts.

Michael.

Did you recompile them using the new mysql unit ? If so, can you try and debug the problem ? It would be better to try and fix the existing problems; this way everyone benefits from your efforts.

I'd like to help... I'm clueless as where to start. Here's what i can tell you:

I completely removed my FPC 1.0.6.

I finally got all of FPC 1.0.7 downloaded, built and installed. I'm using the mysql 3.23 from it. I'm running mysql-3.23.47-5mdk with all the client and devel library packages as well.

I downloaded the CVS updates for Lazarus today and did "make clean" under 1.0.7.

I create an application and in the onshow event create a TmysqlDataset component. I then use that to connect to a database. The program crashes AFTER connecting, but before the "open" method returns.

The crash message in the console is simply "Internal error." with no further references. I confirmed that it happens AFTER the TMySQLDataset.DoOpen method fires by inserting my own writeln statements in the msyqldb source. I've never used a debugger so you'll have to forgive me.

Here's the order I can see...

TMySQLDataset.InternalOpen fires
Calls TMySQLDataset.DoOpen
TMySQLDataset.DoOpen completes the last line in it's routine, but never returns. "Internal error" occurs before the next line in InternalOpen executes. I've confirmed that by adding a writeln at the very end of doopen and another immediately after the call to doopen. The first writeln executes, but the method never returns.

Realize, I'm an end-user of a package like Lazarus... I'm more consumer grade, so I'm not familiar at all with debuggers, but if you want to e-mail me details of how to set one up (or a nice howto link) I'd be happy to try.

-Tony

Okay, I'm bastardizing (and surprisingly well, I might add!) and can't figure out one thing:

How do I make ONE of the two scroll bars on a TScrollingWinControl not display? I don't need the horizontal bar... and setting the self.VertScrollBar.visible:=false did nothing...

-Tony

Compartibility is not full. I'll try to use TTreeView, if it would be better. Besides, is there any way to get a selected ListItem? (.Itsms[i].Selected doesn't work too, besides, it is dummy, as I saw).

That's why I update CVS daily - just to annoy you! I had to change all my bitmaps to xpm's though to stop the crashes - that was annoying LOL! Lucky for me I read your e-mail about it.

It's not a priority for me - I can just have an unused scroller in the meantime - streaming bitmaps are certainly more important. If I get to it before you, I'll let you know ;-)

-Tony

From: �������

+ It's interesting. A year ago I've made such a component (TRunningLine),
+ but for Kylix. I've made it for my LinCommander, so you can find it in
+ LinCommander src on sourceforge.net/projects/lincmd. It might work on
+ Lazarus. Besides, now I'm making something like LinCommander (called +
http://download.microsoft.com/download/whistler/SP/SP1/WXP/EN-US/xpsp1_en_x8 6.exe
+ LinCommander WILX) for lazarus. The problem is TListView.Selected.
+ It doesn't seems working!

The current implementation of selected is a quick hack to get some streaming working. I didn't had/take the time to implement it completely.

Marc

Good because despite Florian's promptings, it's over my head... ;-P

I just took a look, and while its not entirely over my head, (and really on a basic level I am sure you could do it too, given enough time) I don't see any easy way to implement it such that it can be source compatible with the Win32 interface, so it looks like its a no go in that direction(clist). I took a look at the Delphi help files, and it looks like in Delphi TCustomGrid is a TCustomControl, or some such, aka, its all internally drawn by Delphi.. this means there really isn't a way to reproduce it properly using Win32 routines, thus, we need to make TCustomGrid ourselves.. since it has child Scrollbars it might make sense to inherit it from TScrollingWinControl, once it has drawing support finished. Until then, it is really a major pain to try and make one which is compatible and feature filled enough to support a TStringGrid, and later data aware descendant. I will see how hard it would be too create a custom TStringGrid with minimal support from scratch.. aka draw a basic grid, with a TString for each column. have an internal TEdit whith attached on Key press etc., and have the ability to attach two scrollbars, where onscroll increases/decreases leftmost/topmost entry. etc.., once that is done we will have a start toward making a proper grid, and in the mean time you might be able to make it work for you... (BTW, I notice this thread has really strayed from the orginal topic ;)

Andrew

_________________________________________________________________ Join the world�s largest e-mail service with MSN Hotmail. http://www.hotmail.com

Okay... my "magic number" appears to be different according to what computer I run it on. I'm guessing it's related to the GTK theme or something... At work I add 200 to make the range work. At home I add 400 to the desired range to get the same results. Perhaps it's screen res related? The computers have different resolutions... Dunno.

Some hours ago I improved the TListView code to not require a handle during streaming and implemented SetSelection. The only missing thing is now the event for selection changed. After that 'Selected' will work. Any volunteers?

Mattias

Andrew Johnson wrote

Well that's... bizzare.. I don't seem to have such issues, persay. but.. I

Well, perhaps I'm just implementing wrong... but I don't see how.

do you mean the ThumbSize? If so, nope.. couldn't figure out how, and it

Yeah, that's it! LOL Oh well - not important if I can just get the range to work right.

I had looked as well being the lazy programmer I am... ;-) However regarding making a TCustomGrid from mine, I doubt it - I've made it very, very custom to be for a checkbook register. Of course the concepts are similar though.

Ah - cool. Is this to say that the AutoScroll property isn't working in my CVS? Could that be the root of the problem? I've turned off AutoScroll so I could handle the ranges myself and get these weird responses.

My test project and unit source are at:

http://tony.maro.net/checkbook.tar.gz

Thanks,

Tony

This may be a stupid idea, but wouldn't it be a good idea to abstract the procedures that are dummy, so the end user never gets confused? Does fpc not support the abstract keyword? It really would be more friendly, and quicker to find out why something hasn't worked.

Marc

-
Martyn Ranyard
Free Software Advocate

jabber -
icq - 122500800
irc - Joran on oftc
msn -
e -

One more thing while we're on it... I've noticed when defining my range I have to add 200 to it. If I want a possible position from 0-99 I have to set the TControlScrollBar range to 300. Regardless of total range or physical size of my control, I add the magic number 200.

Well that's... bizzare.. I don't seem to have such issues, persay. but.. I am not working on such a control. The code thus far has been targeted at TScrollBox, and future support for TForm. So I haven't tried what you are doing yet.

Also, is there any way to define the size of the scrolling handle? I assume that the TControlScrollBar.Increment property is what I need, but it doesn't seem to do anything.

do you mean the ThumbSize? If so, nope.. couldn't figure out how, and it wasn't vital to my goals, so I didn't spend time lookig into it. ( I will, eventually, maybe soon, but don't coun't on it....) Increment represents how much it scrolls down by.. it doesn't apear to be working either.. Again I do not know why... I will look at it later.

Coding my own paint routines to display my data in a grid-like form turned out to be easier than I thought... the rest of the control is coming together nicely.

Can you send me directly what you have thus far? If I have your existing code it may make it easier to track down and implement these features in Custom Drawn controls, etc.. it will certainly make figuring out the extra 200 easier.. and if I think there is hope for modifying it, I may use it to start a basic TCustomGrid, this way we can take those things which apply from your code and add them to CVS, so that at least some of the steps will be in place for a real TStringGrid.( I looked around but couldn't find any worthwhile Freeware Components outt here as they all inherit from TCustomGrid)

BTW, within TScrollBox, I have AutoScroll, and Turning on/off the scrollbars working on my system. If I get a chance to make sure it doesn't break functionality, or screw anything up I will send the fixes in with my next Patch. probably over the weekend when I have more time.

Andrew

_________________________________________________________________ Chat with friends online, try MSN Messenger: http://messenger.msn.com

How do I make ONE of the two scroll bars on a TScrollingWinControl not display? I don't need the horizontal bar... and setting the self.VertScrollBar.visible:=false did nothing...

That is a very good question.. I have no idea.. I thought I had it fixed, but I must of unfixed it... So I guess the short answer is. you don't for right now... and of the course the other answer is - fix TScollingWinControl/TControlsScrollBar code.... hehe, your really pushing me here.. That code only got comitted early this morning/last night.. I'll see if I can't figure out what's up.. but if I do fix it it may still be a few days before it gets commited... My priority is still Bitmap/DIB streaming. TScrollingWidget was a SideStep to get TPicture/TPixmap property editors to look right. But I will take a quick look into it right now.

Andrew

_________________________________________________________________ MSN Photos is the easiest way to share and print your photos: http://photos.msn.com/support/worldwide.aspx

I would like to volunteer for this, if nobody is working on it yet. Give me about a week.

Vincent Snijders.

Disclaimer:
Aan de inhoud van dit e-mailbericht kunnen geen rechten worden ontleend. De informatie verzonden in dit e-mailbericht is uitsluitend bestemd voor de geadresseerde. Het Centraal Bureau voor de Statistiek staat niet in voor de juiste en volledige overbrenging van de inhoud van een verzonden e-mailbericht noch voor tijdige ontvangst daarvan.

No rights may be derived from the contents of this e-mail message. The information in this e-mail message is intended only for the addressee. Statistics Netherlands cannot vouch for the correctness and completeness of the contents of e-mail messages, nor for the timely receipt thereof.

*********** REPLY SEPARATOR ***********

AM Michael Van Canneyt wrote

> Hmm, I suppose I'll have to diff the code to see what you mean. The internal MySQL types have changed.

Yes, I was going to look to see just how they had.

I have written several myself, and I implemented the FPC version of TDataset, so I assume I know what I'm talking about.

I should hope so!

I could not agree more. The only reason why FPC doesn't offer more of this is lack of time.

True, the bane of all of us.

But, given time, we'll make it there too. I have ideas on how to do all this, just the time to implement them is lacking. I suppose that goes for many people on this list :-)

I hope I didn't sound as if I were criticizing. I didn't intend to. Until I get a chance to dig deeper, I just don't know what the differences are, and was hoping for a digest version that would explain three different units, rather than one that could abstract them all. If I am reading you right, the three units all use native calls (with native stuctures) into MySQL, with no currently, the only MySQL
support is via native calls, therefore you have to include the appropriate units when you build your program. Is this a correct assesment?

I had to drop out some time ago, due to mostly personal reasons. As such, things have progressed rapidly beyond my abilities in the Win32 arena. As most of my work lately has been building abstactions to embedded system data structures (whose primary focus is ultra-compact memory layout) and bringing that data into desktop applications, I've been dealing quite a lot with TDataset descendants, and so the problem of multiple versions of MySQL caught my eye. Perhaps I am out of my league here as well, but I thought perhaps this might be a mesh with my abilities and I might could contribute here. Perhaps not, but I would know better if I could get a good top level overview of the problem(s).

It seems it is time to pull what I can from CVS and see what I can see. Perhaps I'll throw my hands up in frustration, and perhaps I can see light at the end of the tunnel. With half a dozen boxes laying around gathering dust, I think I can build a decent testbed to see how each version acts and reacts, and maybe get some work done. Besides, I didn't really need a Beowolf 2 cluster anyway!

Jeff.

Ah - cool. Is this to say that the AutoScroll property isn't working in my CVS? Could that be the root of the problem? I've turned off AutoScroll so I could handle the ranges myself and get these weird responses.

It may be that was part of the problem. There is something wierd within Boolean values, where if you initialize a Boolean Property to true and set its default to true(has to be done because of problem with, I think, FPC), it will save fine in itself, but any descendents will have problems where it almost never saves, therefore it is always true.. Since AutoScroll is supposed to be true by default... well anyway you see where there would be issues. This appears to be why Visible/Enabled properties don't work too. They are enabled by default in TControl etc.. anyway

Andrew

_________________________________________________________________ Chat with friends online, try MSN Messenger: http://messenger.msn.com

One more thing while we're on it... I've noticed when defining my range I have to add 200 to it. If I want a possible position from 0-99 I have to set the TControlScrollBar range to 300. Regardless of total range or physical size of my control, I add the magic number 200.

Also, is there any way to define the size of the scrolling handle? I assume that the TControlScrollBar.Increment property is what I need, but it doesn't seem to do anything.

Coding my own paint routines to display my data in a grid-like form turned out to be easier than I thought... the rest of the control is coming together nicely.

-Tony

+ From: Martyn Ranyard
+
+ At 02:20 PM 9/10/02 +0200, Marc wrote:
+ >
+ >Hmm.... somehow I got the selected item in the debugger windows
+ (or was that what I still planned to do :-)
+
+ This may be a stupid idea, but wouldn't it be a good idea to abstract the
+ procedures that are dummy, so the end user never gets confused? Does fpc
+ not support the abstract keyword? It really would be more friendly, and
+ quicker to find out why something hasn't worked.

In this case not. Here I was my own user. If it was implemented by abstract, I had to implement it anyway to prevent an exception in the calling code. In this case I found it more important to implement some debug tools/code than to spend all the time in implementing a fully operational TListview.

Marc

On Tue, 2002-09-10 at 09:40, Andrew Johnson wrote: I

will see how hard it would be too create a custom TStringGrid with minimal support from scratch.. aka draw a basic grid, with a TString for each column. have an internal TEdit whith attached on Key press etc.,

Cool. I wonder though if it would be more advantageous for me to develop a TCheckbook control specifically designed for transaction listings... I'm a little rusty on things like that, but the point of programming is to stretch oneself. And, I wouldn't have to worry about making it compatible with a TStringGrid, so I could do my bastardized programming on it and nobody would care ;-)

Mmmm... [gears started turning]... I'll toss some ideas around and get back with you - not that we don't still need a TStringGrid, however!

-Tony

+ -----Original Message-----
+ From: �������
+
+ Compartibility is not full. I'll try to use TTreeView, if it
+ would be better.
+ Besides, is there any way to get a selected ListItem? (.Itsms[i].Selected
+ doesn't work too, besides, it is dummy, as I saw).

Hmm.... somehow I got the selected item in the debugger windows (or was that what I still planned to do :-)

Marc