Re: [fpc-pascal] unit system;  procedure move();

2008-03-17 Thread Pete Cervasio
On Monday 17 March 2008 06:40:51 Jonas Maebe wrote: > On 17 Mar 2008, at 12:34, [EMAIL PROTECTED] wrote: > > Is the use of the move procedure right? The array length is > > Maximum-1. When I > > put this length on value[1], the last entry value[Maximum-1] would > > be deleted > > or would be shifte

Re: [fpc-pascal] transparent windows on X11

2008-03-17 Thread ik
Copy paste from : http://www.faqs.org/faqs/x-faq/part7/ Subject: 175) How do I create a transparent window? A completely transparent window is easy to get -- use an InputOnly window. In order to create a window which is *mostly* transparent, you have several choices: - the

Re: [fpc-pascal] transparent windows on X11

2008-03-17 Thread Eduardo Morras
At 15:17 17/03/2008, you wrote: Hi, Anybody know how to use Xlib API to create transparent windows? This is for use with fpGUI Toolkit. For example. I have a Label component (which is actually a mini window) and have to always specify and paint a background color. If I don't, I see all kinds o

[fpc-pascal] transparent windows on X11

2008-03-17 Thread Graeme Geldenhuys
Hi, Anybody know how to use Xlib API to create transparent windows? This is for use with fpGUI Toolkit. For example. I have a Label component (which is actually a mini window) and have to always specify and paint a background color. If I don't, I see all kinds of rubbish as the background. I wan

Re: [fpc-pascal] unit system;  procedure move ();

2008-03-17 Thread Jonas Maebe
On 17 Mar 2008, at 12:34, [EMAIL PROTECTED] wrote: I need more informations about the move() procedure form unit system. I want to shift an array (values:array[0..Maximum-1] of single) like the following lines: for i:=Maximum-1 downto 1 do values[i]:=values[i-1]; values[0]:=sameothervalue;

[fpc-pascal] unit system;  procedure move();

2008-03-17 Thread fpc
Hi I need more informations about the move() procedure  form unit system. I want to shift an array (values:array[0..Maximum-1] of single) like the following lines: for i:=Maximum-1 downto 1 do values[i]:=values[i-1]; values[0]:=sameothervalue; I found the move procedure (unit system) and wrote

Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread Rainer Stratmann
+ var global_timezone:timezone; Am Montag, 17. März 2008 10:54 schrieb Graeme Geldenhuys: > On 17/03/2008, ik <[EMAIL PROTECTED]> wrote: > > sorry dateutils.pp > > Idiot me, I also never thought that TDateTime's time portion is > milliseconds from midnight. I could have calculated 30 minutes in

Re: [fpc-pascal] Firebird UDF

2008-03-17 Thread zaher dirkey
May be you UDF depend on external library try to View Dependency. On Sat, Mar 15, 2008 at 4:05 PM, Stephano <[EMAIL PROTECTED]> wrote: > >> nothing todo... > >> ok restart: > >> library pudf; > >> > >> {$mode objfpc}{$H+} > >> > >> uses > >> Classes, > >> p_func in 'p_func.pas'; > >> > >> exp

Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread Rainer Stratmann
Hello Graeme, may be this is interisting for you... ger_timeoutreset -> resets the timer ger_timeoutget_usec -> gets µsec's after resetting regards Rainer var global_gertv:timeval; global_gertvold:timeval; const secusec:=100; procedure ger_timeoutreset; begin fpgettimeofday(@global_ge

Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread Graeme Geldenhuys
On 17/03/2008, ik <[EMAIL PROTECTED]> wrote: > sorry dateutils.pp > Idiot me, I also never thought that TDateTime's time portion is milliseconds from midnight. I could have calculated 30 minutes in milliseconds and keep adding that to the time portion of TDateTime. But IncMinute() is so much easi

Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread ik
sorry dateutils.pp On Mon, Mar 17, 2008 at 11:45 AM, ik <[EMAIL PROTECTED]> wrote: > Yes, look at dates.pp :) > > Ido > > > > On Mon, Mar 17, 2008 at 11:43 AM, Graeme Geldenhuys > <[EMAIL PROTECTED]> wrote: > > Hi, > > > > Does FPC contain a increment time function? Something like IncMonth

Re: [fpc-pascal] Looking for a increment time function

2008-03-17 Thread ik
Yes, look at dates.pp :) Ido On Mon, Mar 17, 2008 at 11:43 AM, Graeme Geldenhuys <[EMAIL PROTECTED]> wrote: > Hi, > > Does FPC contain a increment time function? Something like IncMonth(). > > I know I can use DocodeDate/EncodeDate, but that seems such an > inefficient way of doing it. > > B

[fpc-pascal] Looking for a increment time function

2008-03-17 Thread Graeme Geldenhuys
Hi, Does FPC contain a increment time function? Something like IncMonth(). I know I can use DocodeDate/EncodeDate, but that seems such an inefficient way of doing it. Basically I want to increment the time by 15 or 30 minutes to populate rows in a grid. Regards, - Graeme - ___

RE: [fpc-pascal] How to initialize a "Text" variable?

2008-03-17 Thread Sam Liddicott
Find the definition of the "text" type and see that it contains pointers to read and write functions. They need replacing in yor instance to pointers to functions that do nothing. The original Pascal file access is object oriented after all! Sam -Original Message- From: Tomas Hajny <[

Re: [fpc-pascal] How to initialize a "Text" variable?

2008-03-17 Thread Tomas Hajny
On Sun, March 16, 2008 12:14, Felipe Monteiro de Carvalho wrote: > On Sun, Mar 16, 2008 at 8:16 AM, Michael Van Canneyt > <[EMAIL PROTECTED]> wrote: >> Assign yyoutput to a dummy stream, which simply skips output. > > Could you explain better how can this be implemented? > > The only think I know

[fpc-pascal] RE: fpc-pascal Digest, Vol 43, Issue 21

2008-03-17 Thread Crause, Christo (JC)
> From: "Codebue Fabio - P-Soft" <[EMAIL PROTECTED]> > > I learn about all your tips... but nothing todo. I try to summarize > I'm using firebird 2.0.3 in windows vista environment. pudf > was compiled > with fpc 2.0.4 and created with lazarus 0.9.22 Did you upgrade or installed a newer version

Re: [fpc-pascal] unit

2008-03-17 Thread Tomas Hajny
On Sat, March 15, 2008 12:58, Marco van de Voort wrote: >> Why I can't to run unit - programa say: 'Illegal unit name' I try Fps >> 0.9.6and 0.6.4 program versions. > > Units are not runnable, FPC versions before 1.0 are from the 1900s. Maybe > you mean the version of something else? > > If on Linu