[lazarus] SQL DB access functional?

2006-04-15 Thread Jon Foster
Are the SQL DB components supposed to be functional? I've tried using 
TMySQLConnection and TPQConnection with the associated TSQLTransaction 
and TSQLQuery attached through a datasource to a data grid.


The TMySQLConnection always says, Server connect failed when I try to 
make a query active. When I set the connection's Active property to 
true in the designer everything is fine. The message only shows when I 
try to make a query, connected to the active connection, active.


The TPQConnection almost works. It appeared I could add things by 
entering data in the columns and tabbing down. Then when I tried to move 
back up a row it dies with an access violation. None of the records I 
entered ever hit the database.


I've updated my Lazarus install via SVN today. The problems persist. I 
really would like to ditch Kylix/Delphi but I need functional DB access 
to either MySQL or PostgreSQL. I would prefer MySQL. Are there other 
components that would allow me to create data driven applications?


THX - Jon

--
Jon Foster
JF Possibilities, Inc.
[EMAIL PROTECTED]
541-410-2760
Making computers work for you!

_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] panel as parent of a tform

2006-04-15 Thread Bisma Jayadi

Under linux/GTK it is not working. It is like if the docked form was
displayed as modal and I was not able to have to focus back on the
parent form. I did not investigate yet.


Actually, I'd like to do it on Linux (and other non-win32 platforms). Most of my 
codes on Delphi using this trick instead of using frame. Is there other trick to 
do such kind of purposes beside this trick (and work on all platform)?


-Bee-

has Bee.ography at
http://beeography.wordpress.com

_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] SQL DB access functional?

2006-04-15 Thread Michael Van Canneyt


On Fri, 14 Apr 2006, Jon Foster wrote:

 Are the SQL DB components supposed to be functional? I've tried using
 TMySQLConnection and TPQConnection with the associated TSQLTransaction
 and TSQLQuery attached through a datasource to a data grid.

 The TMySQLConnection always says, Server connect failed when I try to
 make a query active. When I set the connection's Active property to
 true in the designer everything is fine. The message only shows when I
 try to make a query, connected to the active connection, active.

That is because for each query, a new 'native' connection is started.
Probably there is some limitation to your MySQL installation ?

I worked with the TMySQLConnection last week, and all went well.


 The TPQConnection almost works. It appeared I could add things by
 entering data in the columns and tabbing down. Then when I tried to move
 back up a row it dies with an access violation. None of the records I
 entered ever hit the database.

 I've updated my Lazarus install via SVN today. The problems persist.

Did you also upgrade the FPC ? Because that's where the SQLDB component
sources are. There have been some bugfixes in MySQL lately.

 I
 really would like to ditch Kylix/Delphi but I need functional DB access
 to either MySQL or PostgreSQL. I would prefer MySQL. Are there other
 components that would allow me to create data driven applications?

ZeosLib.
The version in SVN (the link was posted here not so long time ago)
should have good support for PostGres and MySQL.

However, using MySQL with pascal applications is not recommended.
At the first MySQL upgrade, you may find that none of your apps
do not work any more because the API has changed; And there will
be nothing you can do about it except wait till someone fixed
the pascal interface.

It's recommended to use Postgres or Firebird, they have a more stable API.

Michael.

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] Lazarus win32 snapshot with fpc 2.0.3

2006-04-15 Thread Vincent Snijders

Vincent Snijders wrote:
I just uploaded a new lazarus win32 snapshot to 
http://www.de.freepascal.org/lazarus/ and its mirrors. Due to linker 
problems with fpc 2.1.1 it could not be build with fpc 2.1.1 and for the 
time being fpc 2.0.3 will be used.


The changes in fpc 2.1.1 that broke Lazarus compilation have been 
reverted. Todays win32 snapshot (20060415) is built with fpc 2.1.1.


It should be available for download soon.

Vincent

_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] Lazarus win32 snapshot with fpc 2.0.3

2006-04-15 Thread rstar

Vincent Snijders wrote:

Vincent Snijders wrote:
I just uploaded a new lazarus win32 snapshot to 
http://www.de.freepascal.org/lazarus/ and its mirrors. Due to linker 
problems with fpc 2.1.1 it could not be build with fpc 2.1.1 and for 
the time being fpc 2.0.3 will be used.


The changes in fpc 2.1.1 that broke Lazarus compilation have been 
reverted. Todays win32 snapshot (20060415) is built with fpc 2.1.1.


It should be available for download soon.

Vincent

_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives



Thanks, Vinc!

_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


[lazarus] New icons for the Lazarus IDE

2006-04-15 Thread rstar

New icons for the Lazarus IDE:
http://tango-project.org/Tango_Icon_Gallery

Opinions?


_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] New icons for the Lazarus IDE

2006-04-15 Thread Mattias Gaertner
On Sat, 15 Apr 2006 11:59:34 +0200
[EMAIL PROTECTED] wrote:

 New icons for the Lazarus IDE:
 http://tango-project.org/Tango_Icon_Gallery
 
 Opinions?

Nice. Do you want to replace some icons?

Mattias

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] [patch] font.setsize for tLabel in GTK2

2006-04-15 Thread Mattias Gaertner
On Tue, 11 Apr 2006 21:03:01 +0200
darekm [EMAIL PROTECTED] wrote:

 hi
   as in subject
  and enable autoadjust size of tLabel after changing font

Thanks. Applied.

Mattias

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] New icons for the Lazarus IDE

2006-04-15 Thread Christian Iversen
On Saturday 15 April 2006 11:59, [EMAIL PROTECTED] wrote:
 New icons for the Lazarus IDE:
 http://tango-project.org/Tango_Icon_Gallery

 Opinions?

Ideally, we should use ms-style icons on win32, desktop.org-style icons on 
unix, etc. 

Other than that, they look fine - although I prefer Nuvola or Crystal over 
these gnomish icons. 

-- 
Regards,
Christian Iversen

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] New icons for the Lazarus IDE

2006-04-15 Thread rstar

Christian Iversen wrote:
Other than that, they look fine - although I prefer Nuvola or Crystal over 
these gnomish icons. 
  

They are not GPL'ed.

_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] New icons for the Lazarus IDE

2006-04-15 Thread Felipe Monteiro de Carvalho
On 4/15/06, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote:
 They are not GPL'ed.

Acctually those Tango icons are Creative Commons and not the gpl
equivalent for images (Free Documentation).

Creative Commons is much less restrictive then Free Documentation.

--
Felipe Monteiro de Carvalho

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] New icons for the Lazarus IDE

2006-04-15 Thread m2

[EMAIL PROTECTED] a écrit :

New icons for the Lazarus IDE:
http://tango-project.org/Tango_Icon_Gallery

Opinions?


Nice. Except the one with the American flag. Why this flag? Are
Lazarus and FPC American projects?

mm

_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] New icons for the Lazarus IDE

2006-04-15 Thread Michael Van Canneyt


On Sat, 15 Apr 2006, m2 wrote:

 [EMAIL PROTECTED] a écrit :
  New icons for the Lazarus IDE:
  http://tango-project.org/Tango_Icon_Gallery
 
  Opinions?

 Nice. Except the one with the American flag. Why this flag? Are
 Lazarus and FPC American projects?

I don't think the idea is to use all icons, just the ones that are
usable and appropriate. Unfortunately, these are general-purpose
desktop icons, and not really for use in Lazarus.

As for the origins of FPC/Lazarus: the majority of people working most
on FPC and Lazarus seem to be non USA-citizens. Europeans are
represented most, I would say...

Michael.



_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] New icons for the Lazarus IDE

2006-04-15 Thread Christian Iversen
On Saturday 15 April 2006 14:27, [EMAIL PROTECTED] wrote:
 Christian Iversen wrote:
  Other than that, they look fine - although I prefer Nuvola or Crystal
  over these gnomish icons.

 They are not GPL'ed.

Nuvola is LGPL'ed - what more do you want?

(look at license.txt in the downloaded zip)

And I have just noticed that KDE crystal icons are LGPL'ed too!

http://kde-artists.org/main/content/view/22/63/

So, go RIGHT ahead and use them. They're about the prettiest icons ever 
created, imho :-)

-- 
Regards,
Christian Iversen

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] SQL DB access functional?

2006-04-15 Thread johnf
On Friday 14 April 2006 23:08, Jon Foster wrote:
 Are the SQL DB components supposed to be functional? I've tried using
 TMySQLConnection and TPQConnection with the associated TSQLTransaction
 and TSQLQuery attached through a datasource to a data grid.

 The TMySQLConnection always says, Server connect failed when I try to
 make a query active. When I set the connection's Active property to
 true in the designer everything is fine. The message only shows when I
 try to make a query, connected to the active connection, active.

 The TPQConnection almost works. It appeared I could add things by
 entering data in the columns and tabbing down. Then when I tried to move
 back up a row it dies with an access violation. None of the records I
 entered ever hit the database.

 I've updated my Lazarus install via SVN today. The problems persist. I
 really would like to ditch Kylix/Delphi but I need functional DB access
 to either MySQL or PostgreSQL. I would prefer MySQL. Are there other
 components that would allow me to create data driven applications?

 THX - Jon
Yes it works.
First I suggest that you look at the FPC examples for how you should program 
the SQLdb.  You will notice that the components require a set order and 
setup.  Since all my programs require a login screen I set the required 
fields in the OnCreate method of the form.

 with pqconnection1 do
  begin
  UserName:=dbuser;
  password:=dbpassword;
  hostname:=dbserver;
  databasename:=dbname;
  connected:=True;
  end; 

Then you have to set the other controls as required.  I have a some what long 
blog adventures of a newbie on the wiki that might be of more help.  Also 
there is a MySQL tutorial.  

John

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


[lazarus] win32 repaint issues ?!?!

2006-04-15 Thread Marco van de Voort

I've dug up an old source that I still had lying around for years to add to
the FPC demoes with the idea to make a little Laz demo, as a pilot for
porting the other FPC games. The src is at

http://www.stack.nl/~marcov/chainsrc.zip

I however and encountered a problem (on win32) that I can't exactly
pinpoint, but suspect to be either something wrong with resizing of
components, or something that I'm doing wrong.

The game is called chainreaction (versions existed for at least C=64 and
pre-vga PC), for rules see below.

The _problem_ is when I resize the screen (to bigger), and then reinit using
the new game button. Everything resizes, even the events (clicking in the
playfield) work, but the playfield is only partially drawn. I can't find a
good reason for this. (see also the memo field where some debug info is
written to)

Rules:

- Two players (or more, but that is NI) take turns placing bullets on a
matrix sized playfield. Players are identified by colour
- Bullets may only be placed in matrix-cells that already have bullets of
that player, or cells without any bullets.
- If a cell reaches a certain threshold, it explodes, and bullets in the
cell are distributed evenly among all vertical and horizontal neighbours.
- If during such explosion result a bullet is added to a cell of a different
player, the ALL the bullets in the cell change players.
- The threshold is the sum of its direct vertical and horizontal
neighbouring cells. Which is 4 for cells in the bulk, 3 on the edges, and 2
in the corners.
- The winner is the first that drives the other player(s) of the screen.

I'm suspecting my rules are not 100% original. Probably one bullet should
remain in a cell after an explosion.


The game is still in a very rough state.

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] win32 repaint issues ?!?!

2006-04-15 Thread rstar

Marco van de Voort wrote:

I've dug up an old source that I still had lying around for years to add to
the FPC demoes with the idea to make a little Laz demo, as a pilot for
porting the other FPC games. The src is at

http://www.stack.nl/~marcov/chainsrc.zip

I however and encountered a problem (on win32) that I can't exactly
pinpoint, but suspect to be either something wrong with resizing of
components, or something that I'm doing wrong.

The game is called chainreaction (versions existed for at least C=64 and
pre-vga PC), for rules see below.

The _problem_ is when I resize the screen (to bigger), and then reinit using
the new game button. Everything resizes, even the events (clicking in the
playfield) work, but the playfield is only partially drawn. I can't find a
good reason for this. (see also the memo field where some debug info is
written to)

Rules:

- Two players (or more, but that is NI) take turns placing bullets on a
matrix sized playfield. Players are identified by colour
- Bullets may only be placed in matrix-cells that already have bullets of
that player, or cells without any bullets.
- If a cell reaches a certain threshold, it explodes, and bullets in the
cell are distributed evenly among all vertical and horizontal neighbours.
- If during such explosion result a bullet is added to a cell of a different
player, the ALL the bullets in the cell change players.
- The threshold is the sum of its direct vertical and horizontal
neighbouring cells. Which is 4 for cells in the bulk, 3 on the edges, and 2
in the corners.
- The winner is the first that drives the other player(s) of the screen.

I'm suspecting my rules are not 100% original. Probably one bullet should
remain in a cell after an explosion.


The game is still in a very rough state.

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


  


known issue:
http://www.lazarus.freepascal.org/mantis/view.php?id=1713

_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] win32 repaint issues ?!?!

2006-04-15 Thread [EMAIL PROTECTED]

i reported this bug some time ago (issue 535 in mantis)
it seems to be the same problem.

Pedro Santos


[EMAIL PROTECTED] wrote:

Marco van de Voort wrote:
I've dug up an old source that I still had lying around for years to 
add to

the FPC demoes with the idea to make a little Laz demo, as a pilot for
porting the other FPC games. The src is at

http://www.stack.nl/~marcov/chainsrc.zip

I however and encountered a problem (on win32) that I can't exactly
pinpoint, but suspect to be either something wrong with resizing of
components, or something that I'm doing wrong.

The game is called chainreaction (versions existed for at least C=64 and
pre-vga PC), for rules see below.

The _problem_ is when I resize the screen (to bigger), and then 
reinit using
the new game button. Everything resizes, even the events (clicking 
in the
playfield) work, but the playfield is only partially drawn. I can't 
find a

good reason for this. (see also the memo field where some debug info is
written to)

Rules:

- Two players (or more, but that is NI) take turns placing bullets on a
matrix sized playfield. Players are identified by colour
- Bullets may only be placed in matrix-cells that already have 
bullets of

that player, or cells without any bullets.
- If a cell reaches a certain threshold, it explodes, and bullets in the
cell are distributed evenly among all vertical and horizontal 
neighbours.
- If during such explosion result a bullet is added to a cell of a 
different

player, the ALL the bullets in the cell change players.
- The threshold is the sum of its direct vertical and horizontal
neighbouring cells. Which is 4 for cells in the bulk, 3 on the edges, 
and 2

in the corners.
- The winner is the first that drives the other player(s) of the screen.

I'm suspecting my rules are not 100% original. Probably one bullet 
should

remain in a cell after an explosion.


The game is still in a very rough state.

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


  


known issue:
http://www.lazarus.freepascal.org/mantis/view.php?id=1713

_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives





_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] panel as parent of a tform

2006-04-15 Thread Alexandre Leclerc
2006/4/15, Bisma Jayadi [EMAIL PROTECTED]:
 Actually, I'd like to do it on Linux (and other non-win32 platforms). Most of 
 my
 codes on Delphi using this trick instead of using frame. Is there other trick 
 to
 do such kind of purposes beside this trick (and work on all platform)?

Well, it should be the way for on all plateform to work.

Now, I checked my code and your code is right. I've tested under win32 only.

TForm1 -- add a Panel1 and a Button1. Then add Unit2 in uses of
implementation section.
TForm2 -- add a Button1 with Close; OnClick event. Set the backgound
color of Form2 to someting else so that you can 'see' more easely if
you want. (I choosed clMaroon if you care ;) .)

In TForm1.Button1Click:
var
  f: TForm;
begin
  f := TForm2.Create(Self);
  f.BorderStyle := bsNone;
  f.Parent := Panel1;
  f.Align := alClient;
  f.Show;
end;

Ok, this is like your code. This is working under win32 with the
following issue:
- the focus behave like crasy: You can't click anymore on the Form1,
but only on Form2. If you press the Tab key, then the focus will go
back on Form1 and you will be able to work with Form1 and *also* click
on Form2. But the moment the focus goes back on Form2 you can't click
anymore on Form1.

I'm sure this bug can be corrected. But I can't test for myself under
linux right now.

Now, is Form2 showing at all under Linux/Gtk?

Best regards.

--
Alexandre Leclerc

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


[lazarus] [patch] for tscrollBox

2006-04-15 Thread darekm

Hi
 attached patch repair
  calculation of visibility scrollbar
  Clicked on tButton now work for scrolled window

all under GTK+


Darek


Index: forms.pp
===
--- forms.pp(wersja 9125)
+++ forms.pp(kopia robocza)
@@ -915,6 +915,8 @@
 FAsyncCallQueue: PAsyncCallQueueItem;
 FShowHint: Boolean;
 FShowMainForm: Boolean;
+FLastMousePos : TPoint;
+FLastMouseControl : tControl;
 procedure DoOnIdleEnd;
 function GetCurrentHelpFile: string;
 function GetExename: String;
Index: include/wincontrol.inc
===
--- include/wincontrol.inc  (wersja 9125)
+++ include/wincontrol.inc  (kopia robocza)
@@ -1675,6 +1675,7 @@
   AWinControl: TWinControl;
 begin
   if AutoSizeDelayed then exit;
+  disableAlign;
   for i:=0 to ControlCount-1 do begin
 Child:=Controls[i];
 if Child.AutoSizeDelayed then continue;
@@ -1691,6 +1692,7 @@
 AWinControl.ReAlign;
 end;
   end;
+  EnableAlign;
 end;
 
 
{---
@@ -2797,6 +2799,7 @@
 function TWinControl.IsControlMouseMsg(var TheMessage: TLMMouse) : Boolean;
 var
   Control : TControl;
+  ScrolledOffset,
   P : TPoint;
   ClientBounds: TRect;
 begin
@@ -2817,8 +2820,10 @@
   if Control  nil then
   begin
 // map mouse coordinates to control
-P.X := TheMessage.XPos - Control.Left;
-P.Y := TheMessage.YPos - Control.Top;
+ScrolledOffset:=GetClientScrollOffset;
+
+P.X := TheMessage.XPos - Control.Left + ScrolledOffset.X;
+P.Y := TheMessage.YPos - Control.Top + ScrolledOffset.Y;
 if (Control is TWinControl) and TWinControl(Control).HandleAllocated then
 begin
   // map coordinates to client area of control
Index: include/controlscrollbar.inc
===
--- include/controlscrollbar.inc(wersja 9125)
+++ include/controlscrollbar.inc(kopia robocza)
@@ -230,7 +230,6 @@
   AutoCalcVRange
 else
   AutoCalcHRange;
-ControlUpdateScrollBars;
   end;
 end;
 
@@ -264,12 +263,13 @@
 SBSize := OtherScrollbar.Size
   else
 SBSize := 0;
-  if Kind=sbVertical then
-FAutoRange := (FRange - ClientHeight)
-  *Shortint(FRange = ClientHeight + SBSize)
-  else
-FAutoRange := (FRange - ClientWidth)
-  *Shortint(FRange = ClientWidth + SBSize);
+  if Kind=sbVertical then begin
+SBSize:=ClientHeight - SBSize;
+  end else begin
+SBSize:=ClientWidth - SBSize;
+  end;
+  if (fRangeSBSize) and (SBSize0) then   FAutoRange := (FRange - SBSize)
+else   FAutoRange := 0;
   ScrollInfo.nMax := FRange;
 
   // visible
Index: include/checkbox.inc
===
--- include/checkbox.inc(wersja 9125)
+++ include/checkbox.inc(kopia robocza)
@@ -144,7 +144,7 @@
 
 Procedure TCheckbox.WMKeyDown(var Message : TLMKeyDown);
 begin
-  ControlState := ControlState -  [csClicked];
+  Exclude(FControlState, csClicked);
   Case Message.CharCode of
 32:
   begin
Index: include/control.inc
===
--- include/control.inc (wersja 9125)
+++ include/control.inc (kopia robocza)
@@ -1805,7 +1805,7 @@
   if csClicked in ControlState then
   begin
 Exclude(FControlState, csClicked);
-//DebugLn('TControl.WMLButtonUp B 
',ClientRect.Left,',',ClientRect.Top,',',ClientRect.Right,',',ClientRect.Bottom,'
 ',Message.Pos.X,',',Message.Pos.Y);
+//DebugLn('TControl.WMLButtonUp B 
',dbgs(ClientRect.Left),',',dbgs(ClientRect.Top),',',dbgs(ClientRect.Right),',',dbgs(ClientRect.Bottom),'
 ',dbgs(Message.Pos.X),',',dbgs(Message.Pos.Y));
 if PtInRect(ClientRect, SmallPointToPoint(Message.Pos))
 then begin
   //DebugLn('TControl.WMLButtonUp C');
Index: include/application.inc
===
--- include/application.inc (wersja 9125)
+++ include/application.inc (kopia robocza)
@@ -407,9 +407,15 @@
   P: TPoint;
 begin
   GetCursorPos(P);
-  Result := FindControlAtPosition(P, True);
+  if (P.X=FLastMousePos.x) and (P.Y=FLastMousePos.Y) then 
Result:=FLastMouseControl
+  elseResult := FindControlAtPosition(P, True);
+  
   if (Result  nil) and (csDesigning in Result.ComponentState) then
 Result := nil;
+  if Result nil then begin
+FLastMousePos:=p;
+FLastMouseControl:=Result;
+  end;
 end;
 
 procedure TApplication.SetNavigation(const AValue: 
TApplicationNavigationOptions


Re: [lazarus] [patch] for tscrollBox

2006-04-15 Thread Micha Nelissen
On Sat, 15 Apr 2006 21:44:52 +0200
darekm [EMAIL PROTECTED] wrote:

   GetCursorPos(P);
-  Result := FindControlAtPosition(P, True);
+  if (P.X=FLastMousePos.x) and (P.Y=FLastMousePos.Y) then
Result:=FLastMouseControl
+  elseResult := FindControlAtPosition(P, True);
+  
   if (Result  nil) and (csDesigning in Result.ComponentState) then
 Result := nil;
+  if Result nil then begin
+FLastMousePos:=p;
+FLastMouseControl:=Result;
+  end;
 end;
/patch

Why does this repair anything ? Seems more like an optimization to me.
Certainly needs more comment.

Micha

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] TStringGrid, ComboBox, Win32

2006-04-15 Thread Jesús Reyes A.


- Original Message - 
From: Armin Diehl [EMAIL PROTECTED]

To: lazarus@miraclec.com
Sent: Friday, April 14, 2006 4:41 AM
Subject: [lazarus] TStringGrid, ComboBox, Win32


i have a small problem under win32 using a string grid with edit 
allowed. Created a new project, added a string grid, allowed editing and 
added a column with some strings in PickList.
Running the app and clicking the down arrow to select from the PickList 
will hide the edit field and the selection will not be copied to the 
stringlist. This only happens under win32 (with 0.9.15 and todays 
snapshot). I dont have any clue how to fix that, any help would be 
apreciated.


Should be fixed in revision 9123

Jesus Reyes A.

__
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis! 
Regístrate ya - http://correo.yahoo.com.mx/ 


_
To unsubscribe: mail [EMAIL PROTECTED] with
   unsubscribe as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] [patch] for tscrollBox

2006-04-15 Thread Mattias Gaertner
On Sat, 15 Apr 2006 21:44:52 +0200
darekm [EMAIL PROTECTED] wrote:

 Hi
   attached patch repair
calculation of visibility scrollbar
Clicked on tButton now work for scrolled window
 
  all under GTK+

Note: DisableAlign/EnableAlign needs try..finally, otherwise you can run
into very hard to track down bugs.

Mattias

_
 To unsubscribe: mail [EMAIL PROTECTED] with
unsubscribe as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives


Re: [lazarus] SQL DB access functional?

2006-04-15 Thread Jon Foster






Michael Van Canneyt wrote:

  On Fri, 14 Apr 2006, Jon Foster wrote:

  
  
Are the SQL DB components supposed to be functional? 
  
  That is because for each query, a new 'native' connection is started.
Probably there is some limitation to your MySQL installation ?
  

no, it works fine for everything else. At the time i tried this the
only connection to the db was this one I was trying to create.

  I worked with the TMySQLConnection last week, and all went well.
  

That's good it must be something I'm doing here.

  
I've updated my Lazarus install via SVN today. The problems persist.

  
  
Did you also upgrade the FPC ? Because that's where the SQLDB component
sources are. There have been some bugfixes in MySQL lately.
  

I've upgraded to FPC 2.0.2 which is the latest stable. Should I be
using something else?

  
I
really would like to ditch Kylix/Delphi but I need functional DB access
to either MySQL or PostgreSQL. I would prefer MySQL. Are there other
components that would allow me to create data driven applications?

  
  
ZeosLib.
The version in SVN (the link was posted here not so long time ago)
should have good support for PostGres and MySQL.
  

I don't suppose you have that link?

  However, using MySQL with pascal applications is not recommended.
At the first MySQL upgrade, you may find that none of your apps
do not work any more because the API has changed; And there will
be nothing you can do about it except wait till someone fixed
the pascal interface.
  

Having written a bare bones MySQL interface that I use in non-GUI apps
I know all about this. They should be ashamed. ;-) Every time they
release a new client library they alter the API in a non-compatible
fashion (reordering of structures mostly). Only company I've ever
worked with that did this.

  It's recommended to use Postgres or Firebird, they have a more stable API.
  

I would be fine with PostgreSQL if the components worked for it. But I
can't get them to work either. Errors were mentioned in my previous
post.

johnf wrote:

  Yes it works.
First I suggest that you look at the FPC examples for how you should program 
the SQLdb.  You will notice that the components require a set order and 
setup.  Since all my programs require a login screen I set the required 
fields in the "OnCreate" method of the form.

 with pqconnection1 do
  begin
  UserName:=dbuser;
  password:=dbpassword;
  hostname:=dbserver;
  databasename:=dbname;
  connected:=True;
  end; 

Then you have to set the other controls as required.  I have a some what long 
blog "adventures of a newbie" on the wiki that might be of more help.  Also 
there is a MySQL tutorial.  

John

I followed the on-line examples... At least as far as setting up the
basic components. I've entered all of the login information in the
connection properties. With PostgreSQL it blows when I try to go up
records in a grid instead of going down. Probably has more to do with I
was going up from a newly inserted record.

In MySQL i never get to a run stage it dies in the IDE when I try to
activate the query component.

I've just installed the Firebird 2.0rc1 and tried the same simple form
that I've tried to get MySQL  PostgreSQL working in. I get the
same results that I had with PostgreSQL. When the application runs it
connects shows me data in a data grid I can start to add new records.
When I arrow up from a newly inserted record the program blows with an
"access violation". Although I'm thinking that I might like to stick
with Firebird.

THX - Jon
-- 
Jon Foster
JF Possibilities, Inc.
[EMAIL PROTECTED]
541-410-2760
Making computers work for you!




_
 To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives