[Lazarus] Fireworks

2015-10-30 Thread Terry A. Haimann
Is there a component that anyone has ever written that would display
fireworks or something else celabratory that could be included in a
Lazarus App?  Best if it is cross platform.

Thx in advance


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] TSQLQuery

2015-07-30 Thread Terry A. Haimann
After executing a query, is there a way to test if there were any
errors?



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Lazarus TChart Component

2015-05-06 Thread Terry A. Haimann
Lets come at it from a slightly different angle.  After issuing a
MyChartLineSeries1.Clear, What variables on the MyChart.LeftAxis need to
be set programatically to display the numeric reference numbers on the
left hand side.  Such is as in Pict1.


On Sun, 2015-05-03 at 07:36 -0500, Terry A. Haimann wrote:
> I am having trouble with the TChart Component.  When it first comes up
> it has on the left axis numeric ticks showing the range of the values
> (see image Pict1.)
> 
> 
> And then during the app after I change the record, the numeric tick
> values go away (see pict2.)
> 
> As much as I try, I haven't been able to pro grammatically redisplay the
> numeric tick marks.
> 
> I am sure there is some simple instructions to get them to redisplay,
> but I haven't figured it out.  For the record this is Lazarus 1.2.4, FPC
> 2.6.4 and it is running on Linux Mint Mate 17-64 on an Intel i5. 
> 
> At the begining of the procedure I issue a:
>   MyChartLineSeries1.Clear;
> 
> And then in the inner loopp I am just doing:
>   MyChartLineSeries1.Add(Sum,Copy(CmpDate,6,10),clRed); 
> 
> Thanks for your assistance,   
> 
> Terry
> 
> --
> ___
> Lazarus mailing list
> Lazarus@lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Zeosdbo

2015-04-13 Thread Terry A. Haimann
Sorry sent it the wrong group.

On Mon, 2015-04-13 at 11:47 -0500, Terry A. Haimann wrote:
> I'm sure its possible to connect to Mysql with Zeosdbo from a command
> line FreePascal Program, but I am not sure how.  I tried using the same
> includes that are for the Lazarus components, but it didn't find those
> files.  
> 
> Any help would be appreciated.
> 
> 
> 
> --
> ___
> Lazarus mailing list
> Lazarus@lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Zeosdbo

2015-04-13 Thread Terry A. Haimann
I'm sure its possible to connect to Mysql with Zeosdbo from a command
line FreePascal Program, but I am not sure how.  I tried using the same
includes that are for the Lazarus components, but it didn't find those
files.  

Any help would be appreciated.



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] GIS

2015-02-16 Thread Terry A. Haimann
I have seen where there might be some GIS Tools added to Lazarus.  What
is the current sttatus of this?  I am currently running 1.2.4.

Thx,Terry


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Lazarus and Application.ProcessMessages

2014-12-03 Thread Terry A. Haimann
I have a program that starts some background processes and then needs to
go to sleep for 15 seconds or so and then come back and check on their
statuses.  So I used a loop like the following:

EndTime := Now + EncodeTime(0, 0, 15, 0);  
While Now < EndTime do
  Application.ProcessMessages;

The problem  is that the core this process runs on is running 60-80% cpu
utilization.  Is there away to do something like this and not max the
core out?  This computer is an i5 Desktop running Linux Mint 17-64.

Thanks in advance,  T.


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] I am having trouble getting Lazarus setup

2014-09-07 Thread Terry A. Haimann
I went back and found the install files I had used on my laptop, which
worked.  I removed everything from my desktop and then used the laptop
install files and everything worked.  It all looks like the same version
so I don't understand what the difference was.

On Sun, 2014-09-07 at 03:13 +0200, Mattias Gaertner wrote:
> On Sat, 06 Sep 2014 18:29:27 -0500
> "Terry A. Haimann"  wrote:
> 
> > I just upgraded my Linux Box from LinuxMint 14-64 to 17-64.
> > 
> > I installed Lazzarus 1.2.4 from your website.
> > 
> > Zeosdbo didn't install, so I tried to recompile with Zeos added and I
> > got a:
> > 
> > PPU Source: interfaces.pas not found
> > lazarus.pp(52,3) Fatal: Can not find Interfaces used by Lazarus,
> > ppu=../lcl/units/x86_64-linux/gtk2/interfaces.ppu, package LCL
> > 
> > 
> > How do I fix this?
> 
> There is a ppu file, but maybe it was compiled with another compiler.
> 
> 
> Mattias
> 
> --
> ___
> Lazarus mailing list
> Lazarus@lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] I am having trouble getting Lazarus setup

2014-09-06 Thread Terry A. Haimann
I just upgraded my Linux Box from LinuxMint 14-64 to 17-64.

I installed Lazzarus 1.2.4 from your website.

Zeosdbo didn't install, so I tried to recompile with Zeos added and I
got a:

PPU Source: interfaces.pas not found
lazarus.pp(52,3) Fatal: Can not find Interfaces used by Lazarus,
ppu=../lcl/units/x86_64-linux/gtk2/interfaces.ppu, package LCL


How do I fix this?


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Creating a binary install file.

2013-09-16 Thread Terry A. Haimann
I  have a Lazarus App that I would like to create a dpkg and maybe an
rpm.  Never done this and don't know how.  The App  currently uses MySQL
and connects to it with ZeosDbo.  Any help would be greatly appreciated.

Thx in Advance, Terry


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Printing

2013-09-07 Thread Terry A. Haimann
Never mind, I figured it out.

On Sat, 2013-09-07 at 15:58 -0500, Terry A. Haimann wrote:
> What is the current documentation on printing?
> 
> I have an app, I am trying to update from an older version of Lazarus
> and it appears to be dying when I hit Printer.BeginDoc;
> 
> It is creating a Sigsegv on line 504 of Printer.pas.
> 
> I also don't see a built in Report Generator, which I would also
> consider using?
> 
> Thanks for your attention,
> 
> T.
> 
> I was using http://wiki.freepascal.org/Using_the_printer.
> 
> 
> --
> ___
> Lazarus mailing list
> Lazarus@lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Printing

2013-09-07 Thread Terry A. Haimann
What is the current documentation on printing?

I have an app, I am trying to update from an older version of Lazarus
and it appears to be dying when I hit Printer.BeginDoc;

It is creating a Sigsegv on line 504 of Printer.pas.

I also don't see a built in Report Generator, which I would also
consider using?

Thanks for your attention,

T.

I was using http://wiki.freepascal.org/Using_the_printer.


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Subroutine ?

2013-07-31 Thread Terry A. Haimann
I am talking mostly about TDBEdit and a few TDBComboBox objects.

On Wed, 2013-07-31 at 11:00 +0200, Mattias Gaertner wrote:
> On Wed, 31 Jul 2013 10:04:49 +0200
> Frederic Da Vitoria  wrote:
> 
> > 2013/7/31 Hans-Peter Diettrich 
> > 
> > > Terry A. Haimann schrieb:
> > >
> > >  I am sure this is a dumb ?, but I want a subroutine that will change all
> > >> of the components of a form to Enabled := False.
> > >>
> > >> How do I do this?
> > >>
> > >
> > > This code disables all components owned by form:
> > >
> > > for i := 0 to form.Components.Count - 1 do
> > >   form.Components[i].Enabled := False;
> > >
> > > Untested, eventually Components.Count has to be replaced by 
> > > ComponentCount.
> > >
> > > DoDi
> > 
> > 
> > Previous answers made me wonder: are you sure you meant "Component", not
> > "Control"? If the form contains non-visual components, this could change
> > the result.
> 
> TComponent does not have Enabled. So the above code does not work.
> TControl has Enabled.
> Disabling a control (e.g. no focus, some widgetsets draw them
> gray) automatically disables child controls. So the easiest way
> to disable all controls on a form is to set Form1.Enabled:=false.
> 
> Mattias
> 
> 
> Mattias
> 
> 
> --
> ___
> Lazarus mailing list
> Lazarus@lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Subroutine ?

2013-07-31 Thread Terry A. Haimann
Interesting and I didn't know you could do that.  But, more of what I
have in mind is.

I have a bunch of database components on a form, I want them to be
enabled only after hitting the edit or insert button on the DbNavigator.
Since this is going to occur in multiple points in my button procedure,
it would be programmatically better if this could be done in a sub
procedure.  Also, I have fields that are dependent on other fields, so
fieldsz only would become active if fieldx has a 'Y' in it. 

On Wed, 2013-07-31 at 07:45 +0200, Mattias Gaertner wrote:
> On Tue, 30 Jul 2013 22:53:40 -0500
> "Terry A. Haimann"  wrote:
> 
> > I am sure this is a dumb ?, but I want a subroutine that will change all
> > of the components of a form to Enabled := False.
> > 
> > How do I do this?
> 
> for i:=0 to ControlCount-1 do
>   Controls[i].Enabled:=false;
> 
> Mattias
> 
> --
> ___
> Lazarus mailing list
> Lazarus@lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Subroutine ?

2013-07-30 Thread Terry A. Haimann
I am sure this is a dumb ?, but I want a subroutine that will change all
of the components of a form to Enabled := False.

How do I do this?

 


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Lazarus Compile Error

2013-06-20 Thread Terry A. Haimann
I installed Lazarus 1.0.10 today and tried writing a small app.  It has
a mysql 5.5 component in it, a button, Tedit, and a StringGrid.

I am getting the following compile errors:

/usr/lib64/lazarus/ideintf/propedits.pp(1783,5) Error: Expected another
3 array elements
/usr/lib64/lazarus/ideintf/propedits.pp(6529) Fatal: There were 1 errors
compiling module, stopping


It is in the PropEdits source file.  This is a Fedora 16 box, the
processor is amd 64.


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] ZeosDBO

2013-02-19 Thread Terry A. Haimann
What steps do I need to do to get ZeosDBO installed on Lazarus, I have
version 1.02 and haven't been able to get it to install.  Has anyone
considered having ZeosDBO in the Lazarus install files
so that it isn't an issue?

Terry


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Stringgrid ?

2012-11-17 Thread Terry A. Haimann
You know that's not a lot of help.  I don't know what the program name 
is and I don't know where the source is.  If you know how to  do this, 
why can't you provide a snippet of code with maybe a few comments?  If 
you want Lazarus to be a popular RAD then don't obfuscate, make thing 
ease for the user instead.


Terry


On 11/17/2012 11:02 AM, Bart wrote:

In the IDE there is a form for inserting characters
(Menu->Edit->Insert from Character map).
Take a look at the code of that form to see how it is done.

Bart

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus




--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Stringgrid ?

2012-11-17 Thread Terry A. Haimann
I am wanting to change the color based on a value.  The cell already 
exists and I am not sure how I am going to fire either OnDrawCell or 
OnPrepareCanvas.  But I am probably totally misunderstanding it.



On 11/17/2012 05:33 AM, William Oliveira Ferreira wrote:

Juha, why not use onDrawCell ? Is there any performance issue?

2012/11/17 Juha Manninen <mailto:juha.mannine...@gmail.com>>


On Sat, Nov 17, 2012 at 2:31 AM, Terry A. Haimann
mailto:te...@haimannonline.com>> wrote:
> How do you change the Font Color for a TStringGrid Cell?

Use the OnPrepareCanvas event.

Juha

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
<mailto:Lazarus@lists.lazarus.freepascal.org>
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus




--

William de Oliveira Ferreira



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Stringgrid ?

2012-11-16 Thread Terry A. Haimann
How do you change the Font Color for a TStringGrid Cell?  I tried the 
following, but it doesn't work:


 SGrid.Canvas.Font.Color := clGreen;
 SGrid.Cells[i,j] := 'My String';


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Passing Sender to a sub procedure

2012-09-22 Thread Terry A. Haimann
Is there away I can pass a variable from sender (A String Grid) to a sub 
Procedure.  When I try I get a:


 "main.pas(264,86) Error: Only class class methods, class properties 
and class variables can be accessed in class methods"


This is from the procedure called by an event and I need to do this 
multiple times and having it the main procedure is bad programming, 
makes a larger app and will be harder to debug.



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Run 3 extrenal program, pipeline

2012-02-02 Thread Terry A. Haimann
All you should have to do is have each program read from stdin & write 
to stdout.  I've done it before.  There is no reason to write it in 
Lazarus at all, just use FreePascal.  If you are trying to execute this 
all from a tprocess, be aware that this in't bash.  I would put it in a 
script and try it there.


On 02/02/2012 06:00 AM, xml...@seznam.cz wrote:

Hi, I need run 3 external program and redirected output: first | second | third

For example:
df -hT | grep -v -E 'tmpfs|ecryptfs' | grep 'sda2'
it gives
/dev/sda2 ext4 19G   11G  7,6G  58% /

I use this 
http://wiki.lazarus.freepascal.org/Executing_External_Programs#How_to_redirect_output_with_TProcess
 sample code. It works fine for  first | second.

For three programs I try edit it:


function threePipe(inputA, inputB, inputC: string): string;
var
  FirstProcess, SecondProcess, ThirdProcess: TProcess;
  Buffer: array[0..127] of char;
  ReadCount: Integer;
  ReadSize: Integer;
begin
  FirstProcess  := TProcess.Create(nil);
  SecondProcess := TProcess.Create(nil);
  ThirdProcess := TProcess.Create(nil);

  FirstProcess.Options  := [poUsePipes];
  SecondProcess.Options := [poUsePipes];
  ThirdProcess.Options  := [poUsePipes,poStderrToOutPut];

  FirstProcess.CommandLine  := inputA;
  SecondProcess.CommandLine := inputB;
  ThirdProcess.CommandLine := inputC;

  FirstProcess.Execute;
  SecondProcess.Execute;
  ThirdProcess.Execute;

  while FirstProcess.Running or (FirstProcess.Output.NumBytesAvailable>  0) do
  begin
if FirstProcess.Output.NumBytesAvailable>  0 then
begin
  ReadSize := FirstProcess.Output.NumBytesAvailable;
  if ReadSize>  SizeOf(Buffer) then
ReadSize := SizeOf(Buffer);
  ReadCount := FirstProcess.Output.Read(Buffer[0], ReadSize);
  SecondProcess.Input.Write(Buffer[0], ReadCount);
end;
  end;
  SecondProcess.CloseInput;

  while SecondProcess.Running or (SecondProcess.Output.NumBytesAvailable>  0) do
  begin
if SecondProcess.Output.NumBytesAvailable>  0 then
begin
  ReadSize := SecondProcess.Output.NumBytesAvailable;
  if ReadSize>  SizeOf(Buffer) then
ReadSize := SizeOf(Buffer);
  ReadCount := SecondProcess.Output.Read(Buffer[0], ReadSize);
  ThirdProcess.Input.Write(Buffer[0], ReadCount);
end;
  end;
  ThirdProcess.CloseInput;


  while ThirdProcess.Running do
Sleep(1);
  ReadSize := ThirdProcess.Output.NumBytesAvailable;
  if ReadSize>  SizeOf(Buffer) then
ReadSize := SizeOf(Buffer);
  if ReadSize>  0 then
  begin
ReadCount := ThirdProcess.Output.Read(Buffer, ReadSize);
//WriteLn(Copy(Buffer,0, ReadCount));
  end
  else
WriteLn('grep did not find what we searched for. ', 
ThirdProcess.ExitStatus);

  FirstProcess.Free;
  SecondProcess.Free;
  ThirdProcess.Free;
  threePipe := Copy(Buffer,0, ReadCount);
end;



But after i call
Label1.Caption:=threePipe('df -hT', 'grep -v -E ''tmpfs|ecryptfs''', 'grep 
''sda2''');
function my application end with infinite loop.

Where I do an error?

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus




--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Database Library Issues

2011-09-15 Thread Terry A. Haimann

On 09/14/2011 03:43 PM, Mark Morgan Lloyd wrote:

leledumbo wrote:
Aparently, Lazarus is looking for libpq.so.4, while my 
implementations have

libpq.so.5

It shouldn't be hardcoded AFAIK: libpq.so only, which may be a 
symlink to

the correct version. Try checking the source code whether the .4 is
hardcoded or not.


When I last looked at this (as, I stress a user) the relevant units 
were looking for libpq.so and I ended up creating symlinks as below.


/usr/lib/libpq.so -> libpq.so.5
/usr/lib/libpq.so.5 -> libpq.so.5.1
/usr/lib/libpq.so.5.1

FPC up to and including 2.4.4 still appears to look for the fixed name 
libpq.so. At some point after that it's gained the capability of using 
a user-specified name, but I don't yet know how that's set up from 
Lazarus.


I was wrong, Postgre does work.  My Postgre config was messed up.  I 
would though very much like to have MySQL working on the current versions.


TH

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Database Library Issues

2011-09-14 Thread Terry A. Haimann
I have a Lazarus App which I use heavily that uses a MySQL Database.  I 
have an older 32 bit laptop (Running Fedora 12) that it still works on 
using Zeosdbo.  I would consider moving this over to Postgresql, but I 
am running up against the same problem there too.  Aparently, Lazarus is 
looking for libpq.so.4, while my implementations have libpq.so.5


Now I understand on the 32 bit version of Lazarus there is a 
TMysql51Conn in the SQLdb tab.  Is this compilable on 64 bit machines?  
What steps would I have to do to add it to my Lazarus (0.9.30) 
implementation?


I saw a reference saying that by calling initialiseMysql, you could 
explicitly set what library to use.  But I couldn't find any 
documentation on how to do this.


Thanks in Advance,TH

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] libmysql

2011-09-11 Thread Terry A. Haimann

Is it possible to load libmysql51conn on lazarus.0.9.30-64?

Thanks in advance

TH

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Why does Lazarus insist on rebuilding the LCL?

2011-05-23 Thread Terry A. Haimann


Bart  wrote:

>On 5/23/11, Mattias Gaertner  wrote:
>
>>> I'm not sure I understand you on this.
>>> What should I delete?
>>
>> The entries about packages like LCL and IDEIntf.
>> Only IDE and Examples are left.
>> You can get the defaults by:
>> Close IDE, remove ~/.lazarus/miscellaneousoptions.xml.
>
>I will do that.
>
>>> I used to be able to do a "build (clean) lcl" from within the IDE, now
>>> I cannot anymore.
>>
>> The LCL is now a normal package. It will be compiled automatically or
>> you can open the package and click "Compile".
>
>Will try that.
>
>>> I made changes to maskedit.pp (for debugging purposes) and wanted to
>>> rebuild the LCL, but after selecting the buildprofile LCL and pressing
>>> Build, nothing happend.
>>> When I rebuilt the application, it also did not rebuild the LCL.
>
>> When I touch maskedit the IDE recompiles the LCL.
>> Make sure you have the recent svn version and no local modifications.
>
>I did this just after updating (svn update), then make clean all, then
>alter lcl/maskedit.pp
>
>Probably a glitch on my system then...
>
>I'll try again when I have my Linux box running.
>
>Thanks for the help/suggestions.
>
>Bart
>
>--
>___
>Lazarus mailing list
>Lazarus@lists.lazarus.freepascal.org
>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] does anybody knows whats up with zeos?

2011-03-15 Thread Terry A. Haimann
I believe you have to alter one of the libraries to get it to work with 64 bit 
computers.

Eduard Filipas  wrote:

>Leonardo ...thank you very much ...it is somewhat comforting :) I guess 
>ill just have to wait to get their reply ..again thank you.
>
>regards
>edo
>
>S, Leonardo M. Ramé piše:
>> On 2011-03-15 20:06:34 +0100, Eduard Filipas wrote:
>>> hi
>>>
>>> does anyone know whats with zeos group are they still active? maybe
>>> someone here can help me i was ask to write small program that
>>> saves data in msSQLexpress 2005 but zeos query does not return my
>>> local characters..i took problem to zeos group but i havent got
>>> reply jet...and alpha release is quite old and i was unable to
>>> register at forum ..found some mail adresses thou...did write...
>>>
>>> win xp 64 bit / win7 64 bit
>>> lazarus 9.31
>>> zeos 7 apha
>>> mssqlserver express 2005 / 2008
>>>
>>> i tried on two comps: xp with sqlserver2005 and win7 with 2008...
>>>
>>> --
>>> ___
>>> Lazarus mailing list
>>> Lazarus@lists.lazarus.freepascal.org
>>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>> Well, I see posts from 2011-03-10, so it seems to be online.
>>
>> http://zeos.firmos.at/viewforum.php?f=33
>>
>
>--
>___
>Lazarus mailing list
>Lazarus@lists.lazarus.freepascal.org
>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] installing zeos

2011-02-03 Thread Terry A. Haimann

On 02/03/2011 11:24 AM, Mattias Gaertner wrote:



"Terry A. Haimann"  hat am 3. Februar 2011 um 
15:56 geschrieben:



I have tried to install zeos on a fc14-64 system.

I tried putting it in /usr/share/zeos

I issued a chmod -R 755 /usr/share/zeos

I have tried adding one of the following to my user path (not all at 
the same time)


/usr/share/zeos
/usr/share/zeos/packages
/usr/share/zeos/packages/lazarus

Lazarus starts without any complaints from root, but if I try to 
start it from my user, I get the following error:


The package "zcomponent" is installed, but no valid file (.lpk) was 
found.  A broken dummy package was created.


Is there something I have forgotten?  Is there something I am doing 
wrong?


Yes.
Every user has his own settings, search paths, and can install his own 
set of packages.
Install as root the lazarus binary packages. All other steps do as 
your normal user.

Open the zeos lpk file and install it as normal user.
Mattias


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Thanks.
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] installing zeos

2011-02-03 Thread Terry A. Haimann

I have tried to install zeos on a fc14-64 system.

I tried putting it in /usr/share/zeos

I issued a chmod -R 755 /usr/share/zeos

I have tried adding one of the following to my user path (not all at the 
same time)


/usr/share/zeos
/usr/share/zeos/packages
/usr/share/zeos/packages/lazarus

Lazarus starts without any complaints from root, but if I try to start 
it from my user, I get the following error:


/The package "zcomponent" is installed, but no valid file (.lpk) was 
found.  A broken dummy package was created./


Is there something I have forgotten?  Is there something I am doing wrong?


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Font ?

2010-10-09 Thread Terry A. Haimann
I have a project with several Place Names from Mexico are Quebec.  What 
Fonts are available that handle English, French and Spanish Character 
sets at the same time?


Thanks in advance,

TH

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Problem connecting to a mysql server

2010-07-30 Thread Terry A. Haimann
I have Lazarus 0.9.29 installed on a FC12 Laptop, with Zeos 6.6.6 
installed.  What do I need to do to connect to a MySQL 5.1 Server?



I have gone in and added "/usr/lib/mysql to my path

I have dropped a Zconnection on my form and set values for Database, 
user, & password.

I then set protocal to one of the following:

mysql
mysql-5
mysqld-5

and then tried to change Connected to true and got the following error 
messages.


mysql:  None of the dynamic libraries can be found: 
libmysqlclient.so.15, libmysqlclient.so
mysql-5:   None of the dynamic libraries can be found: 
libmysqlclient.so.15, libmysqlclient.so

mysqld-5:   None of the dynamic libraries can be found: libmysqld.so

I don't know what is wrong, but Zeos 6.6.6 is suppposed to be able to 
connect to this server.



These libraries are what yum says I have installed:


yum list installed | grep mysql

mysql.i686 5.1.47-1.fc12 @updates

mysql-devel.i686 5.1.47-1.fc12 @updates

mysql-embedded.i686 5.1.42-7.fc12 @updates

mysql-libs.i686 5.1.47-1.fc12 @updates

mysql-server.i686 5.1.47-1.fc12 @updates

php-mysql.i686 5.3.2-1.fc12 @updates

qt-mysql.i686 1:4.6.2-20.fc12 @updates


And just because I kknow you are going to ask is a listing of my 
/usr/lib/mysql dir:



ls -l /usr/lib/mysql

total 20600

-rw-r--r-- 1 root root 1704 2010-05-24 14:57 libdbug.a

-rw-r--r-- 1 root root 111898 2010-05-24 14:57 libheap.a

-rw-r--r-- 1 root root 516440 2010-05-24 14:57 libmyisam.a

-rw-r--r-- 1 root root 96874 2010-05-24 14:57 libmyisammrg.a

-rw-r--r-- 1 root root 1787660 2010-05-24 14:57 libmysqlclient.a

-rw-r--r-- 1 root root 1800900 2010-05-24 14:57 libmysqlclient_r.a

lrwxrwxrwx 1 root root 26 2010-07-30 11:10 libmysqlclient_r.so -> 
libmysqlclient_r.so.16.0.0


lrwxrwxrwx 1 root root 26 2010-07-25 19:38 libmysqlclient_r.so.16 -> 
libmysqlclient_r.so.16.0.0


-rwxr-xr-x 1 root root 1531076 2010-05-24 14:57 libmysqlclient_r.so.16.0.0

lrwxrwxrwx 1 root root 24 2010-07-30 11:10 libmysqlclient.so -> 
libmysqlclient.so.16.0.0


lrwxrwxrwx 1 root root 24 2010-07-25 19:38 libmysqlclient.so.16 -> 
libmysqlclient.so.16.0.0


-rwxr-xr-x 1 root root 1525280 2010-05-24 14:57 libmysqlclient.so.16.0.0

lrwxrwxrwx 1 root root 18 2010-02-20 16:28 libmysqld.so.0 -> 
libmysqld.so.0.0.1


-rwxr-xr-x 1 root root 8882504 2010-01-29 12:08 libmysqld.so.0.0.1

-rw-r--r-- 1 root root 1445228 2010-05-24 14:57 libmystrings.a

-rw-r--r-- 1 root root 422116 2010-05-24 14:57 libmysys.a

-rw-r--r-- 1 root root 1821650 2010-05-24 14:57 libndbclient.a

lrwxrwxrwx 1 root root 21 2010-07-30 11:10 libndbclient.so -> 
libndbclient.so.3.0.0


lrwxrwxrwx 1 root root 21 2010-07-25 19:38 libndbclient.so.3 -> 
libndbclient.so.3.0.0


-rwxr-xr-x 1 root root 1075896 2010-05-24 14:57 libndbclient.so.3.0.0

-rw-r--r-- 1 root root 18080 2010-05-24 14:57 libvio.a

-rwxr-xr-x 1 root root 13128 2010-05-24 14:57 mysqlbug

-rwxr-xr-x 1 root root 6356 2010-05-24 14:57 mysql_config

drwxr-xr-x 2 root root 4096 2010-07-25 19:38 plugin

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Postgresql

2010-04-14 Thread Terry A. Haimann

Is there any known problem connecting to a postgresql 8.4 server?

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] MySQL?

2010-03-28 Thread Terry A. Haimann
Just wanting to know when Lazarus is going to be supporting MySQL 5.1 in 
a general release?


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Free Pascal ? (I Hope its not too OT)

2010-03-14 Thread Terry A. Haimann
This may seem like a stupid question, but is there an easy way to do 
this?  Since these directories that all of these include files reside in 
arn't in my path statement and they arn't all in the same directory.


Aleksa Todorovic wrote:

Try including SysUtils in FreePascal version - it initializes
exception handling, so maybe there are some exceptions internally
happening which are not properly handled. Just a guess...


On Sun, Mar 14, 2010 at 04:04, Terry A. Haimann  wrote:
  

I tried to write a little utility to submit a command to the At Facility.

The code to do this is as follows:

 StdStrLst   := TStringlist.Create;
 ErrorStrLst := TStringlist.Create;
 MyProcess := TProcess.Create(nil);
 MyProcess.CommandLine := 'at now';
 MyProcess.Options := MyProcess.Options + [poUsePipes];
 MyProcess.Execute;
 StdStrLst.Clear;
 StdStrLst.Add('awk -F":" ''{print $1"\t"$3"\t"$4}'' /etc/passwd | sort');
 StdStrLst.SaveToStream(MyProcess.Input);
 StdStrLst.Clear;
 StdStrLst.Add(chr(4));
 StdStrLst.SaveToStream(MyProcess.Input);

Running this code from a Lazarus test program works with out any problems.
 When running it from a Free Pascal (non gui,) the program seems to halt
after issuing the "MyProcess.Execute;"  The program seems to exit without
any errors, but I have put writeln's throughout the code and I don't see any
output after the above instruction.  It is probable that there is some
errors in the stdout, but I never see them and don't know how to access it
after the program exits.

The Uses clause for the two apps are as follows.

Lazarus:
  uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs,
 StdCtrls, Process;

Free Pascal:
  Uses Classes, Process;

Anyone have any ideas?

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus






  



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Free Pascal ? (I Hope its not too OT)

2010-03-13 Thread Terry A. Haimann

I tried to write a little utility to submit a command to the At Facility.

The code to do this is as follows:

 StdStrLst   := TStringlist.Create;
 ErrorStrLst := TStringlist.Create;
 MyProcess := TProcess.Create(nil);
 MyProcess.CommandLine := 'at now';
 MyProcess.Options := MyProcess.Options + [poUsePipes];
 MyProcess.Execute;
 StdStrLst.Clear;
 StdStrLst.Add('awk -F":" ''{print $1"\t"$3"\t"$4}'' /etc/passwd | sort');
 StdStrLst.SaveToStream(MyProcess.Input);
 StdStrLst.Clear;
 StdStrLst.Add(chr(4));
 StdStrLst.SaveToStream(MyProcess.Input);

Running this code from a Lazarus test program works with out any 
problems.  When running it from a Free Pascal (non gui,) the program 
seems to halt after issuing the "MyProcess.Execute;"  The program seems 
to exit without any errors, but I have put writeln's throughout the code 
and I don't see any output after the above instruction.  It is probable 
that there is some errors in the stdout, but I never see them and don't 
know how to access it after the program exits.


The Uses clause for the two apps are as follows.

Lazarus:
   uses Classes, SysUtils, FileUtil, LResources, Forms, Controls, 
Graphics, Dialogs,

 StdCtrls, Process;

Free Pascal:
   Uses Classes, Process;

Anyone have any ideas?

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Lazarus & MySQL 5.1

2010-03-02 Thread Terry A. Haimann

How do I do this in Lazarus?

Marco van de Voort wrote:

On Tue, Mar 02, 2010 at 02:59:12PM +, Henry Vermaak wrote:
  

seems to have fallen from the air, connecting to nothing ?
  

I presume it comes from here (in mysql.inc):

  const
mysqllib = 'libmysqlclient.'+sharedsuffix;
  {$IF DEFINED(mysql50)}
mysqlvlib = mysqllib+'.15';
  {$ELSEIF DEFINED(mysql41)}
mysqlvlib = mysqllib+'.14';
  {$ELSE}
mysqlvlib = mysqllib+'.12';
  {$ENDIF}

This probably doesn't cover all the cases.  Assuming that a specific
client library can only talk to a specific server may also be wrong.
Debian testing also has libmysqlclient 16 and mysql-server 5.1.



mysql version is a disaster (and one of the reasons why I avoid mysql when I
can). IMHO FPC should never hardcode the number in the first place, but
should link to mysqlclient.so (using the symlink, the unix way).

Anyway, long story short, FPC has a provision for such mistakes, -XLA

Try passing -XLAlibmysqlclient.so.15=libsqlclient.so.16 and pray.


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

  



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Lazarus & MySQL 5.1

2010-03-02 Thread Terry A. Haimann

I have tried this and it doesn't work.

waldo kitty wrote:

On 3/1/2010 23:18, Terry A. Haimann wrote:

I upgraded my laptop to Fedora Core 12, which has MySQL 5.1.42
installed. I have installed the latest Lazarus RPM, which is 0.9.28.2
and FPC 2.2.4. My Lazarus App won't connect to the server. I have the
libmysqlclient.so.16.0.0 installed. I am not sure where to get the
libmysqlclient.so.15.0.0. What are my options? Please do not recommend
Zeos, On my installation I have never seen it compile correctly and if I
have trouble a newbie would definitly have problems.


since you're on linux, what's wrong with going into the dir where your 
libmysqlclient is and creating a link pointing to it for the 15 
version you need? ;)


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus




--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Lazarus & MySQL 5.1

2010-03-01 Thread Terry A. Haimann
I upgraded my laptop to Fedora Core 12, which has MySQL 5.1.42 
installed.  I have installed the latest Lazarus RPM, which is 0.9.28.2 
and FPC 2.2.4.  My Lazarus App won't connect to the server.  I have the 
libmysqlclient.so.16.0.0 installed.  I am not sure where to get the 
libmysqlclient.so.15.0.0.  What are my options?  Please do not recommend 
Zeos, On my installation I have never seen it compile correctly and if I 
have trouble a newbie would definitly have problems.


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Network connections

2009-12-30 Thread Terry A. Haimann
If it is a script, it may not run from the Lazarus start procedure.  Secondly, 
you may need to explicitly define the path. Your command prompt has a number of 
predifined paths,which your lazarus app doesn't.

SteveG  wrote:

>Evening All (from where I'm sitting anyway)
>
>I have the following code which connects me to the Internet using a 'Wireless 
>Broadband USB Key'.
>
>Very simply, it uses wvdial to create the connection, and this works fine from 
>a cmd line (linux obviously) or from a small Laz/Fpc test program.
>I can browse / email and my main program can access the internet successfully.
>
>If I place the same code (as below) in my main program though, browser and 
>email still work, but the program containing this code can no longer 'see' the 
>connection.
>
>The problem appears to be related to my usage of TProcess ?
> 
>begin
>AsyncProcess1.CommandLine := 'wvdial';
>AsyncProcess1.Execute;
>end;  
>
>As a side issue, if anybody knows how to connect to a USB B'Band key directly 
>from Laz/fpc (no wvdial etc) any pointers would be much appreciated.
>
>Thanks - SteveG
>
>--
>___
>Lazarus mailing list
>Lazarus@lists.lazarus.freepascal.org
>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] 0.9.28 Issues

2009-11-29 Thread Terry A. Haimann
First of all let me congratulate you all on the look and feel of Lazarus 
0.9.28.


The apps that are produced look much better.  The Buttons and Check 
Boxes look wonderful compared to 0.9.26.


1. On the Addpie, the following used to display a label, it no longer 
does and I don't see an example:

   p.AddPie(i, MyLabelStr, Color);

I am also running an rpm based system (FC10) and when I tryed to install 
0.9.28 using both the rpm's or the tar file the Free Pascal source 
doesn't install.  I tryed this both on my FC10_x64 and my i386 laptop.


Thx in advance,   Terry

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Paper Size

2009-11-27 Thread Terry A. Haimann

How do I include this procedure in my progrram?

Jesus Reyes wrote:

--- El vie 27-nov-09, Terry A. Haimann  escribió:

  

De:: Terry A. Haimann 
Asunto: Re: [Lazarus] Paper Size
A: "Lazarus mailing list" 
Fecha: viernes 27 de noviembre de 2009, 22:55
Maybe I am not being clear.

I have a report I am printing. It has logic similar to:

PageCnt := 1; Cnt := 0;
Query.First
Repeat
Printer.BeginDoc;
Printer.Canvas.Pen.Color := 0;
Printer.Canvas.Font.Name := 'Courier New';
Printer.Canvas.Font.Size := 8;
LineCnt := 1;
Printer.Canvas.TextOut(1, KKTop, 'Heading Line);
LineCnt := 3;
Repeat
Line := Query.Field1;
Printer.Canvas.TextOut(1, LineCnt * KKLineSize, Line);
DatabaseForm.Query.Next;
Until ((LineCnt > KKMaxLines) or (Query.Eof));
Printer.EndDoc;
Until Query.Eof;

The problem is that it starts to print a quarter of the
page down. I am running Fedora 10 and Lazarus 0.9.26.2




The values for KKTop and KKLineSize must be calculated according to printer 
resolution, take a look at the example in 
lazarus/components/printers/samples/dialogs.

Jesus Reyes A.


  Encuentra las mejores recetas en Yahoo! Cocina.   
http://mx.mujer.yahoo.com/cocina/


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

  



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Paper Size

2009-11-27 Thread Terry A. Haimann

Maybe I am not being clear.

I have a report I am printing. It has logic similar to:

PageCnt := 1; Cnt := 0;
Query.First
Repeat
Printer.BeginDoc;
Printer.Canvas.Pen.Color := 0;
Printer.Canvas.Font.Name := 'Courier New';
Printer.Canvas.Font.Size := 8;
LineCnt := 1;
Printer.Canvas.TextOut(1, KKTop, 'Heading Line);
LineCnt := 3;
Repeat
Line := Query.Field1;
Printer.Canvas.TextOut(1, LineCnt * KKLineSize, Line);
DatabaseForm.Query.Next;
Until ((LineCnt > KKMaxLines) or (Query.Eof));
Printer.EndDoc;
Until Query.Eof;

The problem is that it starts to print a quarter of the page down. I am 
running Fedora 10 and Lazarus 0.9.26.2


I have noticed that there is a TPageSetupDialog, but I don't know if I 
used it correctly. I just put in the height and width of my paper in mm. 
Again I am using 8.5 x 11 inch paper "US Letter".




Terry A. Haimann wrote:
On code that worked in Delphi is printing down about a quarter of the 
page in Lazarus. I am using Printer. procedure.


I am using the basic American Letter size (8.5 x 11)

I tried setting it to "US Letter" but that has failed and i don't even 
know what my options are.


Lazarus 0.9.26.2
My Printer is a HP Photosmart 8250
OS is Fedora Core 10
Even though the cups server is running on an an older FC8 desktop.



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus




--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Paper Size

2009-11-26 Thread Terry A. Haimann
On code that worked in Delphi is printing down about a quarter of the 
page in Lazarus.  I am using Printer. procedure.


I am using the basic American Letter size (8.5 x 11)

I tried setting it to "US Letter" but that has failed and i don't even 
know what my options are.


Lazarus 0.9.26.2
My Printer is a HP Photosmart 8250
OS is Fedora Core 10
Even though the cups server is running on an an older FC8 desktop.



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Process Detection

2009-11-21 Thread Terry A. Haimann
Is there a function or procedure in Free Pascal/Lazarus thhat can detect 
or list running applications.  I prefer it to be as os nutral as 
possible.  I just want to see if an application is running and if it 
isn't to start it automatically.


Thx,   Terry

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Astronomy Software

2009-11-15 Thread Terry A. Haimann

John wrote:

Terry A. Haimann wrote:
For what it is worth I have created a project on SourceForge 
(http://sourceforge.net/projects/messier/) with my Astronomy Program. 
It is a basic Observing Planning and Logging Program. It is of course 
written in Lazarus (I converted it from Delphi) and got most of the 
Algorithyms from "Practical Astronomy with Your Calculator" By Peter 
Duffet-Smith.


There are two major things I would like to add to it:

1. Using a report generator instead of Printer.Canvas.TextOut 
Statements.
2. I would like to merge it with Planetarium Program. I could do this 
with Cartes Du Ciel 2.76, but not the newer SkyChart and since my 
primary audience is going to be Linux Users, I really don't want to 
use a Windows App.


I am curious to know why you can merge it with Cartes Du Ciel 2.76, 
but not 3. 0.x.x ? (I presume that is what you mean)


John
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Because you could start 2.76 with the -f switch and it would start up 
viewing a specific object. That has not been implemented in the SkyChart 
3.x as far as I know.


Terry

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] Astronomy Software

2009-11-15 Thread Terry A. Haimann

Michael Van Canneyt wrote:



On Sun, 15 Nov 2009, Terry A. Haimann wrote:

For what it is worth I have created a project on SourceForge 
(http://sourceforge.net/projects/messier/) with my Astronomy Program. 
It is a basic Observing Planning and Logging Program. It is of course 
written in Lazarus (I converted it from Delphi) and got most of the 
Algorithyms from "Practical Astronomy with Your Calculator" By Peter 
Duffet-Smith.


There are two major things I would like to add to it:

1. Using a report generator instead of Printer.Canvas.TextOut 
Statements.
2. I would like to merge it with Planetarium Program. I could do this 
with Cartes Du Ciel 2.76, but not the newer SkyChart and since my 
primary audience is going to be Linux Users, I really don't want to 
use a Windows App.


You can always try lazreport. I have a cross-platform app working with 
it.


Michael.

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Thanks for the suggestions.

I have looked at RTF when it was a Delphi App. I found it would loose a 
couple lines of the report at page breaks, maybe the Lazarus Component 
is better. I have also looked at Lazreport, but don't know enough about 
how to do it. In the RiseAndSet Report, the select is exported into a 
binary tree for update and then sorting. I had to do this for 
performance and was unsure of how to import that into something like 
LazReport. As far as supporting a Windows version, there are already 
many apps that do this in Windows and a lot better then I can (Some for 
the Mac too. ) Most of them have huge databases (1 million + records) 
which I have no idea how to put together. The databases I have are 
pulled out of Excel Spreadsheets and messaged in MySQL. As far as 
importing into Excel/OO Calc, I have exported data to csv and then 
imported that, but its a lot of trouble for the user. I do that though 
for the standard report, which can be submitted to the Astronomical League.


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Astronomy Software

2009-11-15 Thread Terry A. Haimann
For what it is worth I have created a project on SourceForge 
(http://sourceforge.net/projects/messier/) with my Astronomy Program.  
It is a basic Observing Planning and Logging Program.  It is of course 
written in Lazarus (I converted it from Delphi) and got most of the 
Algorithyms from "Practical Astronomy with Your Calculator" By Peter 
Duffet-Smith.


There are two major things I would like to add to it:

1.  Using a report generator instead of Printer.Canvas.TextOut Statements.
2.  I would like to merge it with Planetarium Program. I could do this 
with Cartes Du Ciel 2.76, but not the newer SkyChart and since my 
primary audience is going to be Linux Users, I really don't want to use 
a Windows App.


Terry

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Astronomy App

2009-09-13 Thread Terry A. Haimann




A few years ago, I wrote an app  in Delphi to record my progress on
observing the Messier
List ( an astronomical observing challenge). The program has
several very useful reports:

* Rise and Set Report, which lists objects (all, seen, or unseen) and
then sorts the output on how many hours the object will be up when the
sun isn't.  You may also select a specific constellation.

* Standard Report, which lists if, when, and where an object was
observed.  This is useful  for applying  for observing certificates
from the Astronomical League.  I turned mine in and was awarded the
Messier Certificate without any complaints from the AL.  It also can
export the data to csv, which can easily be imported to  Calc or most
other spreadsheets. 

* Statistics report, which was an excuse for me to play around with bar
& pie charts.

The data is kept in a MySQL Database, which allows me to keep multiple
databases.  I am currently working on my Herschel 400 list, which is a
seperate database.  I have made an attempt to convert it to Lazarus and
it basically works, but could use some buffing and fluffing. There are
Windows and Mac apps that do this already, but none for Linux.  

Would anyone else be interested in this?  Should I create a project for
this on SourceForge or what?



--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] Palm Compiler

2009-06-16 Thread Terry A. Haimann
Is there a Lazarus compiler for the Palm Pilot?  If so where do I get
it?


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] 64 bit compiler

2009-06-13 Thread Terry A. Haimann
This is in the Environment Options.

On Sat, 2009-06-13 at 23:20 -0500, Terry A. Haimann wrote:
> I believe I have found the problem.  FPC Source directory had
> /usr/share/fpcsrc/
> 
> When it should have had
> 
> /usr/share/fpcsrc/$(FPCVer)/
> 
> This was in the yum d/l as well as the rpm.
> btw, any existing source will compile, its just when you try to write or 
> add new functionality.
> 
> Terry
> Marc Weustink wrote:
> > Terry A. Haimann wrote:
> >> I really don't know how to read the config file.  So, I did a locate 
> >> on stdctrls and found this file:
> >>
> >> /usr/lib64/lazarus/lcl/units/x86_64-linux/stdctrls.o
> >
> > I guess the .ppu is there too. So the compiled unit is there, but 
> > somehow the compiler thinks it needs to get recompiled (wrong or 
> > outdated version)
> >
> > Thats what the StdCtrls unit not found message also can mean.
> >
> >> The following is a copy of the "Set Filenames and Paths" section of 
> >> my /etc/fpc.cfg, can anyone tell me whats wrong?  This is how rpm set 
> >> it up.
> >>
> >> # searchpath for units and other system dependent things
> >> -Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget
> >> -Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/*
> >> -Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/rtl
> >
> > This is OK. (assumed that you have a 
> > /usr/lib64/fpc/2.2.4/units/x86_64-linux dir)
> >
> > To find out why your project doesn't compile, set the option -va
> > This generates a lot of output, but also tells why it thinks the 
> > stdctrls.ppu isn't valid.
> >
> > How does your project look like ? Is it just one unit or more (what 
> > names). Did you accidentally include the lazarus source path in your 
> > project source ? If you did, then remove all .ppu in your project dir 
> > and remove the reference.
> >
> > Marc
> >
> >
> > -- 
> > ___
> > Lazarus mailing list
> > Lazarus@lists.lazarus.freepascal.org
> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
> >
> 
> 
> --
> ___
> Lazarus mailing list
> Lazarus@lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] 64 bit compiler

2009-06-13 Thread Terry A. Haimann

I believe I have found the problem.  FPC Source directory had
/usr/share/fpcsrc/

When it should have had

/usr/share/fpcsrc/$(FPCVer)/

This was in the yum d/l as well as the rpm.
btw, any existing source will compile, its just when you try to write or 
add new functionality.


Terry
Marc Weustink wrote:

Terry A. Haimann wrote:
I really don't know how to read the config file.  So, I did a locate 
on stdctrls and found this file:


/usr/lib64/lazarus/lcl/units/x86_64-linux/stdctrls.o


I guess the .ppu is there too. So the compiled unit is there, but 
somehow the compiler thinks it needs to get recompiled (wrong or 
outdated version)


Thats what the StdCtrls unit not found message also can mean.

The following is a copy of the "Set Filenames and Paths" section of 
my /etc/fpc.cfg, can anyone tell me whats wrong?  This is how rpm set 
it up.


# searchpath for units and other system dependent things
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/*
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/rtl


This is OK. (assumed that you have a 
/usr/lib64/fpc/2.2.4/units/x86_64-linux dir)


To find out why your project doesn't compile, set the option -va
This generates a lot of output, but also tells why it thinks the 
stdctrls.ppu isn't valid.


How does your project look like ? Is it just one unit or more (what 
names). Did you accidentally include the lazarus source path in your 
project source ? If you did, then remove all .ppu in your project dir 
and remove the reference.


Marc


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus




--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] 64 bit compiler

2009-06-07 Thread Terry A. Haimann
 
AComponent=EndEdit:TEdit ReferenceUnit=False
Search UnitComponent=BellCurveForm:TBellCurveForm 
AComponent=BegEdit:TEdit ReferenceUnit=False
Search UnitComponent=BellCurveForm:TBellCurveForm 
AComponent=Label3:TLabel ReferenceUnit=False
Search UnitComponent=BellCurveForm:TBellCurveForm 
AComponent=Label2:TLabel ReferenceUnit=False
Search UnitComponent=BellCurveForm:TBellCurveForm 
AComponent=Label1:TLabel ReferenceUnit=False

TProject.UpdateUnitComponentDependencies checking designers ...
TProject.UpdateUnitComponentDependencies used by designer: 
/home/terry/Documents/Lazarus/BellCurve/bellcurveunit.pas
TMainIDE.CloseUnitComponent freeing component and designer: 
/home/terry/Documents/Lazarus/BellCurve/bellcurveunit.pas 
BellCurveForm:TBellCurveForm

TProject.UpdateUnitComponentDependencies checking designers ...
LAZARUS END - cleaning up ...



Marc Weustink wrote:

Terry A. Haimann wrote:
I really don't know how to read the config file.  So, I did a locate 
on stdctrls and found this file:


/usr/lib64/lazarus/lcl/units/x86_64-linux/stdctrls.o


I guess the .ppu is there too. So the compiled unit is there, but 
somehow the compiler thinks it needs to get recompiled (wrong or 
outdated version)


Thats what the StdCtrls unit not found message also can mean.

The following is a copy of the "Set Filenames and Paths" section of 
my /etc/fpc.cfg, can anyone tell me whats wrong?  This is how rpm set 
it up.


# searchpath for units and other system dependent things
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/*
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/rtl


This is OK. (assumed that you have a 
/usr/lib64/fpc/2.2.4/units/x86_64-linux dir)


To find out why your project doesn't compile, set the option -va
This generates a lot of output, but also tells why it thinks the 
stdctrls.ppu isn't valid.


How does your project look like ? Is it just one unit or more (what 
names). Did you accidentally include the lazarus source path in your 
project source ? If you did, then remove all .ppu in your project dir 
and remove the reference.


Marc


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus




--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] 64 bit compiler

2009-06-07 Thread Terry A. Haimann
I really don't know how to read the config file.  So, I did a locate on 
stdctrls and found this file:


/usr/lib64/lazarus/lcl/units/x86_64-linux/stdctrls.o

The following is a copy of the "Set Filenames and Paths" section of my 
/etc/fpc.cfg, can anyone tell me whats wrong?  This is how rpm set it up.


# ---
# Set Filenames and Paths
# ---

# Slashes are also allowed under dos

# path to the messagefile, not necessary anymore but can be used to 
override

# the default language
#-Fr/usr/lib64/fpc/$fpcversion/msg/errore.msg
#-Fr/usr/lib64/fpc/$fpcversion/msg/errorn.msg

# searchpath for includefiles
#-Fi/pp/inc;/pp/rtl/inc

#IFDEF FPCAPACHE_1_3
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/httpd-1.3/
#ELSE
#IFDEF FPCAPACHE_2_0
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/httpd-2.0
#ELSE
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/httpd-2.2
#ENDIF
#ENDIF

# searchpath for units and other system dependent things
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/*
-Fu/usr/lib64/fpc/$fpcversion/units/$fpctarget/rtl
#-Fu~/fpc/packages/base/*/units/;~/fpc/fcl/units/;~/fpc/rtl/units/

# searchpath for libraries
#ifdef cpux86_64
-Fl/usr/lib/gcc/x86_64-redhat-linux/4.3.2
#endif


#ifdef cpui386
-Fl/usr/lib/gcc/x86_64-redhat-linux/4.3.2/32
#endif
#-Fl/pp/lib
#-Fl/lib;/usr/lib


# -
# Linking
# -

# generate always debugging information for GDB (slows down the compiling
# process)
#  -gcgenerate checks for pointers
#  -gduse dbx
#  -gguse gsym
#  -ghuse heap trace unit (for memory leak debugging)
#  -gluse line info unit to show more info for backtraces
#  -gvgenerates programs tracable with valgrind
#  -gwgenerate dwarf debugging info
#
# Enable debuginfo and use the line info unit by default
#-gl

# always pass an option to the linker
#-k-s

# Always strip debuginfo from the executable
-Xs

Graeme Geldenhuys wrote:

2009/6/5 Terry A. Haimann :
  

I tried downloading the 64 bit compiler and compiling a test program, but
when I try adding a event I get a StdCtrls Unit not found.  I am running
this on FC10 64 bit.



Check your unit paths in your ~/.fpc.cfg or /etc/fpc.cfg file. The
paths are probably wrong.


Regards,
  - Graeme -


___
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/

  


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


[Lazarus] 64 bit compiler

2009-06-04 Thread Terry A. Haimann
I tried downloading the 64 bit compiler and compiling a test program, 
but when I try adding a event I get a StdCtrls Unit not found.  I am 
running this on FC10 64 bit.


___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] help in maths

2009-05-29 Thread Terry A. Haimann

Terry A. Haimann wrote:

Héctor Fiandor Rosario wrote:

Dear Mr. Coppola:

really I solve using this:

var valor1,valor2,valor3:integer;

valor3:=round(power(valor1,valor2));

and declaring the unit "math" in uses.

Thanks very much

Ing. Héctor F. Fiandor
hfian...@infomed.sld.cu


---
   Red Telematica de Salud - Cuba
 CNICM - Infomed

___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


That is fine if raising to an integer power, but if not:

Result := exp((ln(x) * y);

Will give you the correct value for non integer powers.  Ok, there is 
a small error which is insignificant for all practical purposes.


___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


I guess I am wrong, both ways can raise to a non integer power.

___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


Re: [Lazarus] help in maths

2009-05-29 Thread Terry A. Haimann

Héctor Fiandor Rosario wrote:

Dear Mr. Coppola:

really I solve using this:

var valor1,valor2,valor3:integer;

valor3:=round(power(valor1,valor2));

and declaring the unit "math" in uses.

Thanks very much

Ing. Héctor F. Fiandor
hfian...@infomed.sld.cu


---
   Red Telematica de Salud - Cuba
 CNICM - Infomed

___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus


That is fine if raising to an integer power, but if not:

Result := exp((ln(x) * y);

Will give you the correct value for non integer powers.  Ok, there is a 
small error which is insignificant for all practical purposes.


___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus