Re: [fpc-pascal] Feature announcement: Dynamic array extensions

2018-05-20 Thread Jesus Reyes A.
En Sun, 20 May 2018 07:23:25 -0500, Sven Barth via fpc-pascal  
 escribió:



Hello together!

I'm pleased to announce that after nearly a year various extensions for  
dynamic arrays have been finished. This includes the following features:


- support for array constructors using "[...]" syntax
- support for Insert(), Delete() and Concat()
- support for "+" operator
- support for dynamic array constants (and variable initializations)



Wow!
Thanks :)

Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] TSQLQuery and buffering.

2017-03-26 Thread Jesus Reyes A.
En Sat, 25 Mar 2017 02:32:33 -0600, Gary Doades   
escribió:


Many thanks for your reply. I had read about UniDirectional and I have  
indeed tried this. It doesn't seem to make any significant difference.  
Looking through the source code for TBufDataset it looks like  
UniDirectional just turns off building various indexes/structures etc.  
and fetches the result set all in one go instead of 10 row chunks. It  
still buffers everything in memory.




From your original message one could think that you were using  
PacketRecords:=-1 which means fetch all records at once, but if you are  
using the standard setting, which is 10 and yet it is still fetching  
everything at once, it sounds like a bug to me.


Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

[fpc-pascal] Pending fcl-pdf changes

2016-09-15 Thread Jesus Reyes A.

Hi,

There are some changes in fcl-pdf that are still not merged to fixes, the  
new LazReport PDF exporter can only work with FPC trunk without those and  
it would be nice to have it working with FPC fixes and 3.0.2. Can you  
please merge any missing change to fixes?, thanks.



Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] How do I test the testfppdf on Windows?

2016-03-19 Thread Jesus Reyes A.
En Thu, 17 Mar 2016 21:10:03 -0600, silvioprog   
escribió:


On Tue, Mar 15, 2016 at 4:38 AM, Michael Van Canneyt  
 wrote:

[...]

I have (hopefully) fixed this. rev. 33255.


The crash was fixed after upgrade my FPC. But it still generating five  
empty pages even applying the Jesus Reyes' patch. :-/


--Silvio Clécio


I took a look at the pdf file you posted on march 5. I think I know why  
your file looks so odd, all numeric values non-integers are written in the  
pdf file using COMMA :)


This is an extract of some stream on your file:


/F3 23 Tf
0 0 0 RG
BT
70,87 785,31 TD
(Basic Shapes) Tj
ET
1 0 0 RG
0,21 0,7 0,27 rg
1 J
3 w
85,04 615,23 113,39 56,69 re

An this is how it should look:


/F3 23 Tf
0 0 0 RG
BT
70.87 785.31 TD
(Basic Shapes) Tj
ET
1 0 0 RG
0.21 0.7 0.27 rg
1 J
3 w
85.04 615.23 113.39 56.69 re

so your locale is playing a role here, numeric conversions in the pdf  
library should be made locale agnostic.

try to change your decimalseparator to "." before and try again.

Jesus Reyes A.

--
Usando el cliente de correo de Opera: http://www.opera.com/mail/___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] How do I test the testfppdf on Windows?

2016-03-09 Thread Jesus Reyes A.
On Sun, 06 Mar 2016 03:15:06 -0600, Michael Van Canneyt  
 wrote:


Forgot to say, this is how it now looks the generated document:  
http://ctrlv.in/724645


Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] How do I test the testfppdf on Windows?

2016-03-09 Thread Jesus Reyes A.
On Sun, 06 Mar 2016 03:15:06 -0600, Michael Van Canneyt  
 wrote:





On Sat, 5 Mar 2016, Jesus Reyes A. wrote:

On Sat, 05 Mar 2016 14:03:49 -0600, Michael Van Canneyt  
 wrote:



 This is what I get with the normal test font:
http://www.freepascal.org/~michael/test.pdf
 Can you please try with the original font too, please ?
(freesans is freely available)
 If that works, it would mean there is something wrong with the Arial  
font handling.

 Michael.


your file looks like the one I produced here when using "Visor de  
documentos" which happen to be evince, this is what it looks  
http://ctrlv.in/722669 the only change I did was adding JRAXX at the  
end of every P.WriteText'd string where XX is the index of each  
instance. Seems only latin text is working.


Strange, because if I recall correctly it was tested with Cyrillic, and  
that worked ?



Later I will try with other readers.


Please do, I'd welcome any hints as to what could be wrong !

(evince is one of the readers that was used to test, BTW)

Michael.


The problem of evince not showing some texts it's because the compressed  
font file stream size is written with an incorrect value. There is an  
option to enable font file compression (poCompressFonts) but in the code,  
compression is always enabled, the compressed stream size is returned in  
the function that writes down the compressed stream, too late because the  
/length item was already written using the uncompressed size. The attached  
patch addresses both problems and makes sure length1 item is not written  
down if not needed.


This however doesn't fix the Cyrillic and other texts :(

Jesus Reyes A.Index: fppdf.pp
===
--- fppdf.pp(revisión: 33164)
+++ fppdf.pp(copia de trabajo)
@@ -396,8 +396,10 @@
   private
 FKey: TPDFName;
 FObj: TPDFObject;
+FHidden: Boolean;
   protected
 procedure Write(const AStream: TStream);override;
+property Hidden : Boolean read FHidden write FHidden;
   public
 constructor Create(Const ADocument : TPDFDocument; const AKey: string; 
const AValue: TPDFObject);
 destructor Destroy; override;
@@ -2397,10 +2399,13 @@
 
 procedure TPDFDictionaryItem.Write(const AStream: TStream);
 begin
-  FKey.Write(AStream);
-  TPDFObject.WriteString(' ', AStream);
-  FObj.Write(AStream);
-  TPDFObject.WriteString(CRLF, AStream);
+  if not FHidden then
+  begin
+FKey.Write(AStream);
+TPDFObject.WriteString(' ', AStream);
+FObj.Write(AStream);
+TPDFObject.WriteString(CRLF, AStream);
+  end;
 end;
 
 constructor TPDFDictionaryItem.Create(Const ADocument : TPDFDocument;const 
AKey: string; const AValue: TPDFObject);
@@ -2484,7 +2489,7 @@
 var
   ISize,i, NumImg, NumFnt: integer;
   Value: string;
-  M : TMemoryStream;
+  M, Buf : TMemoryStream;
   E : TPDFDictionaryItem;
   D : TPDFDictionary;
 begin
@@ -2520,18 +2525,29 @@
   if Pos('Length1', E.FKey.Name) > 0 then
   begin
 M:=TMemoryStream.Create;
+Buf:=TMemoryStream.Create;
 try
   Value:=E.FKey.Name;
   NumFnt:=StrToInt(Copy(Value, Succ(Pos(' ', Value)), 
Length(Value) - Pos(' ', Value)));
   m.LoadFromFile(Document.FontFiles[NumFnt]);
+  // write buffer with compressed (if requested) fontfile stream
+  ISize := TPDFEmbeddedFont.WriteEmbeddedFont(Document, M, Buf);
+  D:=Document.GlobalXRefs[AObject].Dict;
+  // if compression was enabled write Filter
+  if poCompressFonts in Document.Options then
+  begin
+D.AddName('Filter','FlateDecode');
+LastElement.Write(AStream);
+  end;
   // write fontfile stream length in xobject dictionary
-  D:=Document.GlobalXRefs[AObject].Dict;
-  D.AddInteger('Length',M.Size);
+  D.AddInteger('Length',ISize);
   LastElement.Write(AStream);
   WriteString('>>', AStream);
   // write fontfile stream in xobject dictionary
-  TPDFEmbeddedFont.WriteEmbeddedFont(Document, M, AStream);
+  Buf.Position := 0;
+  Buf.SaveToStream(AStream);
 finally
+  Buf.Free;
   M.Free;
 end;
   end;
@@ -3099,8 +3115,8 @@
 
 begin
   FDict:=CreateGlobalXRef.Dict;
-  FDict.AddName('Filter','FlateDecode');
   FDict.AddInteger('Length1 
'+IntToStr(EmbeddedFontNum),StrToInt(FontDef.FOriginalSize));
+  FDict.LastElement.Hidden := not (poCompressFonts in Options);
 end;
 
 procedure TPDFDocument.CreateImageEntry(ImgWidth, ImgHeight, NumImg: integer);
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] How do I test the testfppdf on Windows?

2016-03-06 Thread Jesus Reyes A.
On Sat, 05 Mar 2016 14:03:49 -0600, Michael Van Canneyt  
 wrote:




This is what I get with the normal test font:
http://www.freepascal.org/~michael/test.pdf

Can you please try with the original font too, please ?
(freesans is freely available)

If that works, it would mean there is something wrong with the Arial  
font handling.


Michael.


your file looks like the one I produced here when using "Visor de  
documentos" which happen to be evince, this is what it looks  
http://ctrlv.in/722669 the only change I did was adding JRAXX at the end  
of every P.WriteText'd string where XX is the index of each instance.  
Seems only latin text is working.


Later I will try with other readers.

Jesus Reyes A.


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Bitcounting

2016-03-06 Thread Jesus Reyes A.

En Sat, 05 Mar 2016 12:03:24 -0600, Bart  escribió:


Hi,

Does FreePascal have a routine for counting bits?
So that e.g. BitCount(%100110011) gives 5 (number of bits that are  
1)?


I came up with (extracted from IntToBin()):

function BitCount(N: Int64): Integer;
var
  Q: QWord;
  i: Integer;
begin
  Result := 0;
  Q := QWord(N);
  for i := 0 to (8 * SizeOf(N) - 1) do
  begin
if ((Q and 1) = 1) then Inc(Result);
Q := Q shr 1;
  end;
end;

Surely this can be done better?

Bart



function BitCount(N: Int64): Integer;
var
  i: Integer;
begin
  Result := 0;
  if N=0 then
exit;
  for i := 0 to (8 * SizeOf(N) - 1) do
  begin
if (N and (1 shl i)) <> 0 then Inc(result);
  end;
end;

not tested :D

Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] download link on viewvc pages is missing

2013-02-13 Thread Jesus Reyes


--- El mié 13-feb-13, Michael Van Canneyt  escribió:

> 
> Ah. Hard to find without docs.
> 
> I had tried
> 
> default_file_view = co
> 
> but that didn't help. But now I added allowed_views.
> 
> Michael.


Thank you.

Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] download link on viewvc pages is missing

2013-02-12 Thread Jesus Reyes
Hi, the "(download)" link (together with the "(as text)") link that used to be 
next to "(view)" and "(annotate)" in viewvc revisions logs are missing, can 
this be enabled, please?

Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] Class reference doubt

2011-11-23 Thread Jesus Reyes
in the following example The output is:
cls class is TFoo
TObj.create

where I would expect:
cls class is TFoo
TObj.create
TFoo.create

ie the TFoo.constructor is not called, is this normal/expected?, The 
documentation does clarify the situation: 
http://www.freepascal.org/docs-html/ref/refse31.html 

"Class reference types are used to create instances of a certain class, which 
is not yet known at compile time, but which is specified at run time. 
Essentially, a variable of a class reference type contains a pointer to the 
definition of the speficied class. This can be used to construct an instance of 
the class corresponding to the definition, or to check inheritance." 

Thanks.

Jesus Reyes A.

program test;
{$mode ObjFpc}{$H+}
type
  TObj = class
  public
constructor create;
  end;
  TObjClass=class of TObj;

  TFoo = class(TObj)
  public
constructor create;
  end;

constructor TObj.Create;
begin
  inherited create;
  WriteLn('TObj.create');
end;

constructor TFoo.create;
begin
  inherited Create;
  WriteLn('TFoo.Create');
end;

var
  cls: TObjClass;
  obj: TObj;
begin
  cls := TFoo;
  WriteLn('cls class is ',cls.ClassName);
  Obj := cls.Create;
  Obj.Free;
end.

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] connection problem

2008-03-29 Thread Jesus Reyes A.


- Original Message - 
From: "Jonas Maebe" <[EMAIL PROTECTED]>

Sent: Saturday, March 29, 2008 6:01 AM

On 26 Mar 2008, at 19:55, Jesus Reyes wrote:

i, I'm experiencing connection problems to bugs.freepascal.org and
svn.freepascal.org.

[EMAIL PROTECTED]:~/temp> svn co
http://svn.freepascal.org/FPC/svn/lazarus/trunk l
svn: requerimiento PROPFIND falló en '/FPC/svn/lazarus/trunk'
svn: PROPFIND de '/FPC/svn/lazarus/trunk': 405 Method Not Allowed
(http://svn.freepascal.org)


You're using the wrong url. The correct one is 
http://svn.freepascal.org/svn/lazarus/trunk



Jonas
---

Yes, Vincent show me that shortly after I posted the message, but it was a 
bad example from my part, I simply adapted the url I found in my entries 
file and replaced the svn+ssh info with http.


For fpc repository I use http://svn.freepascal.org/svn/fpc/trunk and it 
doesn't work anyway, I don't get the PROPFIND problem though, after I type 
svn update, the command doesn't do anything.


svn2.freepascal.org it's working fine, the only problem is I need write 
access to lazarus repository, and bugs.freepascal.org and viewvc are 
unreliable to me.


btw I also modified MTU settings in both windows and linux without much 
success :(


Jesus Reyes A.


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] connection problem

2008-03-26 Thread Jesus Reyes

Hi JoshyFun, thanks for your feedback.


--- JoshyFun <[EMAIL PROTECTED]> escribió:

> Hello Jesus,
> 
> Wednesday, March 26, 2008, 7:55:39 PM, you wrote:
> 
> JR> Hi, I'm experiencing connection problems to bugs.freepascal.org
> and
> JR> svn.freepascal.org.
> 
> Same problem from Spain but no problem if I access (in browser
> mode)
> using a proxy located in the United States :-? Maybe it is a
> carrier
> problem :-?

I asked to my ISP about this, they find effectively there is some
block but not from their part, I asked if they are sure they are not
blocking something and they "swear" they don't, so it must be
something else... 

> 
> Using my regular link I'm unable to get
> http://svn.freepascal.org/feeds/fpcsvn.rss but using
> http://www.lockproxy.info/ ,in example, I'm able to watch it.
>

Thanks for the hint.

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] connection problem

2008-03-26 Thread Jesus Reyes
Hi, I'm experiencing connection problems to bugs.freepascal.org and
svn.freepascal.org.

[EMAIL PROTECTED]:~/temp> svn co
http://svn.freepascal.org/FPC/svn/lazarus/trunk l
svn: requerimiento PROPFIND falló en '/FPC/svn/lazarus/trunk'
svn: PROPFIND de '/FPC/svn/lazarus/trunk': 405 Method Not Allowed
(http://svn.freepascal.org)

[EMAIL PROTECTED]:~> ping bugs.freepascal.org
PING bugs.freepascal.org (x.x.x.x) 56(84) bytes of data.
64 bytes from cust198-202.dsl.versadsl.be (x.x.x.x): icmp_seq=1
ttl=40 time=358 ms
64 bytes from cust198-202.dsl.versadsl.be (x.x.x.x): icmp_seq=2
ttl=40 time=386 ms
64 bytes from cust198-202.dsl.versadsl.be (x.x.x.x): icmp_seq=3
ttl=40 time=539 ms

I tried at least since monday. Given absent of reports, and the bug
tracker notices in mail and CIA at IRC I suppose it's working, any
idea?

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] New local-indexes support for sqldb

2008-02-16 Thread Jesus Reyes

--- Joost van der Sluis <[EMAIL PROTECTED]> escribió:

> Op woensdag 13-02-2008 om 14:59 uur [tijdzone -0600], schreef Jesus
> Reyes:
> > --- Joost van der Sluis <[EMAIL PROTECTED]> escribió:
> > 
> > > Hi all,
> > > 
> > > fpc 2.3.1 and 2.2.1 now have local indexes support for sqldb.
> > > (TBufDataset)
> > > 
> > > I would like it if you can test if it works ok for you
> before we
> > > release
> > > fpc 2.2.2.
> > > 
> > 
> > Maybe is not related to this feature but there seems to be mem
> leak:
> > 
> > Call trace for block $4049E860 size 135
> >   $08070601  TRACEALLOCMEM,  line 1177 of ../inc/heaptrc.pp
> >   $08066DA4  ALLOCMEM,  line 295 of
> /home/prog/fpc/rtl/inc/heap.inc
> >   $0826C3E5  TBUFDATASET__INTALLOCRECORDBUFFER,  line 625 of
> > bufdataset.pas
> 
> Can you test if it's fixed in r10340?
> 
> Joost
> 

It is, :)

Thanks.

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] New local-indexes support for sqldb

2008-02-13 Thread Jesus Reyes

--- Joost van der Sluis <[EMAIL PROTECTED]> escribió:

> Hi all,
> 
> fpc 2.3.1 and 2.2.1 now have local indexes support for sqldb.
> (TBufDataset)
> 
> I would like it if you can test if it works ok for you before we
> release
> fpc 2.2.2.
> 

Maybe is not related to this feature but there seems to be mem leak:

Call trace for block $4049E860 size 135
  $08070601  TRACEALLOCMEM,  line 1177 of ../inc/heaptrc.pp
  $08066DA4  ALLOCMEM,  line 295 of /home/prog/fpc/rtl/inc/heap.inc
  $0826C3E5  TBUFDATASET__INTALLOCRECORDBUFFER,  line 625 of
bufdataset.pas
  $0826C4AC  TBUFDATASET__INTERNALOPEN,  line 654 of bufdataset.pas
  $0825374D  TCUSTOMSQLQUERY__INTERNALOPEN,  line 1208 of sqldb.pp
  $0825930E  TDATASET__DOINTERNALOPEN,  line 387 of dataset.inc
  $0825A3C8  TDATASET__OPENCURSOR,  line 868 of dataset.inc
  $0825A757  TDATASET__SETACTIVE,  line 965 of dataset.inc
Call trace for block $4049E2B0 size 133
  $08070601  TRACEALLOCMEM,  line 1177 of ../inc/heaptrc.pp
  $08066DA4  ALLOCMEM,  line 295 of /home/prog/fpc/rtl/inc/heap.inc
  $0826C3E5  TBUFDATASET__INTALLOCRECORDBUFFER,  line 625 of
bufdataset.pas
  $0826C4AC  TBUFDATASET__INTERNALOPEN,  line 654 of bufdataset.pas
  $0825374D  TCUSTOMSQLQUERY__INTERNALOPEN,  line 1208 of sqldb.pp
  $0825930E  TDATASET__DOINTERNALOPEN,  line 387 of dataset.inc
  $0825A3C8  TDATASET__OPENCURSOR,  line 868 of dataset.inc
  $0825A757  TDATASET__SETACTIVE,  line 965 of dataset.inc

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] Esta disponible la lista de correos e n español / Spanish mailing list available

2007-10-25 Thread Jesus Reyes
Hola a todos.

De parte del equipo de desarrollo de Lazarus, se anuncia la
disponibilidad de la lista de correos en Español. Para acceder a
dicha lista, favor de registrarse en
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es

Ojala que la comunidad de usuarios y programadores de FreePascal y
Lazarus de habla hispana se manifieste suscribiendose a dicha lista y
comparta ideas, sugerencias, dudas y soluciones.

Suerte y que lo disfruten.

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] debug problems in current versions.

2007-09-29 Thread Jesus Reyes
Hi, current 2.2.1 (r8667) and 2.3.1 (r8675) produce apps with gdb
problems (at least under x86_32), this happen since r8666. 

[EMAIL PROTECTED]:~/fpcbin/bin$ gdb fpdoc
GNU gdb 6.6-debian
Copyright (C) 2006 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and
you are
welcome to change it and/or distribute copies of it under certain
conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for
details.
This GDB was configured as "i486-linux-gnu"...
/build/buildd/gdb-6.6.dfsg/gdb/dwarf2-frame.c:1725: internal-error:
decode_frame_entry_1: Assertion `fde->cie != NULL' failed.
A problem internal to GDB has been detected,
further debugging may prove unreliable.




  

¡Sé un mejor fotógrafo!
Perfecciona tu técnica y encuentra las mejores fotos.   
http://mx.yahoo.com/promos/mejorfotografo.html
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] SQLQuery published properties

2007-08-07 Thread Jesus Reyes A.
Hi, I noted that in fpc2.3.1 several important TSqlQuery properties(and 
events) are not published anymore, for example the active property, all 
OnBefore*, OnAfter* events and more.


I'ts something definitive?.

Jesus Reyes A. 


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] ROPS and latest FPC compiler (svn)

2006-10-31 Thread Jesus Reyes

 --- Alexandre Leclerc <[EMAIL PROTECTED]> escribió:

> Hi all,
> 
> I'm running into strang ROPS behaviour when using the latest
> compiler
> in svn. Is there a compiler switch required for it to work ok?
> Using
> revision 3823 I have no problems.
> 
> The parameters in the script when passed to actual FPC code is not
> working well.. this was an old bug... parameter order or I don't
> know
> what...
> 
> Anyone has any clue for me?
> 
> -- 
> Alexandre Leclerc
> ___
> fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
> 

Have you tried ROPS svn revision 19?

Jesus Reyes A.






___ 
Do You Yahoo!? 
La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Httpd (apache modules)

2006-09-01 Thread Jesus Reyes

 --- "Leonardo M. Ramé" <[EMAIL PROTECTED]> escribió:

> Thanks Felipe, i'll try with Apache 2.0.x (i don't really need
> 2.2.x).
> 

also, don't forget the bug reports in the wiki page:
http://www.freepascal.org/wiki/index.php/FPC_and_Apache_Modules#Bug_Reporting

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Report Tool

2006-07-04 Thread Jesus Reyes

 --- Felipe Monteiro de Carvalho <[EMAIL PROTECTED]>
escribió:

> On 7/4/06, Jesus Reyes <[EMAIL PROTECTED]> wrote:
> >
>
http://wiki.lazarus.freepascal.org/index.php/Projects_using_Lazarus#LazReport
> 
> Maybe the sourceforge website and project should be updated.
> 
> Who is the admin of lazreport sf project?
> 
> -- 
> Felipe Monteiro de Carvalho

The admin is Olivier Guilbaud, and he is busy with other priorities
ATM, however now I have access to file releases and that part will be
updated soon, followed for a web page update.

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Report Tool

2006-07-04 Thread Jesus Reyes

 --- "Leonardo M. Ramé" <[EMAIL PROTECTED]> escribió:

> Hi, can anibody knows if the project LazReports is still active?
> 
> In the case of no, can you recommend another report tool that works
> with FPC?
> 
> Leonardo M. Ramé
> http://leonardorame.blogspot.com
> 

it is, see:

http://wiki.lazarus.freepascal.org/index.php/Projects_using_Lazarus#LazReport

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] mantis

2006-05-24 Thread Jesus Reyes
Mantis is now embedded in a freepascal page, the problem is that for
those who use 800x600 screen resolution (like me in at least one
place). The sidebars (left, top) takes a big amount of screen. The
result is not too pretty. see:
http://mx.geocities.com/jesusrmx/lazarus/images/sample26.png

At higher resolutions it probably doesn't matter, but don't try that
in a 14" or 15" monitor. The "Fit to window width" feature of opera
aleviates a little the problem, but not much.

Would it be too difficult to make an alternative page available? so
those who have a tab permanently open with mantis can see only
mantis.

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y 2GB extra a tu correo por $100
al mes. http://net.yahoo.com.mx 






___ 
Do You Yahoo!? 
La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] freereport and tiOPF

2006-02-25 Thread Jesus Reyes

 --- Graeme Geldenhuys <[EMAIL PROTECTED]> escribió:

> tiOPF version 2 has already been converted to Free Pascal. I
> convinced
> my client to sponsor the work for their next project, and did it
> during Desember.  Get the latest tiOPF framework from the
> TechInsite
> SVN repository.
> 

Could you please give more information about how to download tiOPF
through SVN? I didn't find information in
http://www.techinsite.com.au/ about it. Or I didn´t search good,
sorry.


> 
> Regards,
>   - Graeme -
> 
> 

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] lazarus crash at start

2005-08-01 Thread Jesus Reyes

 --- Peter Vreman <[EMAIL PROTECTED]> escribió:

> At 01:12 1-8-2005, you wrote:
> >Trying to find why lazarus crashes at start in win98 I found a
> courious 
> >problem, global variable IsConsole is true when it should be false
> as 
> >lazarus is built as a gui application.
> >
> >Digging I found that IsConsole is set in two functions in
> wprt0.as: 
> >_mainCRTStartup sets to true and _WinMainCRTStartup sets to False,
> this 
> >cause a wrong setup of standard Output that DebugLn (lclprocs.pas)
> use to 
> >emit debug messages.
> >
> >It seems that this functions are 'used' in the linker script, for
> example 
> >ld .--verbose shows that by default a ENTRY(_mainCRTStartup) it's
> used. I 
> >looked into the generated lazarus link.res file and didn't find a
> ENTRY 
> >section so I guess it uses the default and that's why even when
> lazarus is 
> >a gui app, it's linked as a console app.
> >
> >To demostrate this I modified the link.res script to inculde 
> >ENTRY(_WinMainCRTStartup) section and then linked, the resulting 
> >lazarus.exe file now behaves as a gui app and won't crash at
> start.
> >
> >It seems that WriteResponseFile lacks the code to add the ENTRY
> section to 
> >the link.res script but I don't know if it's supposed to be there
> or 
> >should it be in another stage, any comments?
> 
> You need to use {$apptype gui} or use the -WG parameter. For the
> compiler 
> it is not known if the application needs a console or not.
> 
> 
> Peter
> 

Lazarus is already compiled with -WG

Jesus Reyes A.


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

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] lazarus crash at start

2005-07-31 Thread Jesus Reyes
Trying to find why lazarus crashes at start in win98 I found a courious 
problem, global variable IsConsole is true when it should be false as lazarus 
is built as a gui application.

Digging I found that IsConsole is set in two functions in wprt0.as: 
_mainCRTStartup sets to true and _WinMainCRTStartup sets to False, this cause a 
wrong setup of standard Output that DebugLn (lclprocs.pas) use to emit debug 
messages.

It seems that this functions are 'used' in the linker script, for example ld 
.--verbose shows that by default a ENTRY(_mainCRTStartup) it's used. I looked 
into the generated lazarus link.res file and didn't find a ENTRY section so I 
guess it uses the default and that's why even when lazarus is a gui app, it's 
linked as a console app.

To demostrate this I modified the link.res script to inculde 
ENTRY(_WinMainCRTStartup) section and then linked, the resulting lazarus.exe 
file now behaves as a gui app and won't crash at start.

It seems that WriteResponseFile lacks the code to add the ENTRY section to the 
link.res script but I don't know if it's supposed to be there or should it be 
in another stage, any comments?

Jesus Reyes A.

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

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


RE: [fpc-pascal]TStringList index

2004-03-14 Thread Jesus Reyes

- Original Message - 
From: Taj Morton <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, March 14, 2004 1:04 PM
Subject: [fpc-pascal]TStringList index


> Hi all,
> This code has been driving me nuts for the past week.
>   IDs:=TStringList.Create;
>   for i:=0 to Datab.List_Field.Count-1 do
>   begin
> Tmp:=TStringList(Datab.List_Field.items[i]);
> IDs.Strings[i]:=Tmp.Strings[0];
> Tmp.Free;
>   end;

IDs.Strings[i] its not allocated, try
IDs.Add(Tmp.Strings[0]) instead

Regards
Jesus Reyes A.


___
fpc-pascal maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal]Compiler bug?

2003-07-14 Thread Jesus Reyes
Hi, the following code results in a error.

program compiler_bug_1;
{$mode objfpc}
var
  a,b: integer;
  c,d,e,f: boolean;

function Ok: boolean;
begin
result := ( a = b )
and c = d
and e = f;
end;

var
r: boolean;
begin
a := 1;
b := 2;
c := false;
d := true;
e := false;
f := true;

r := Ok;
end.

here is the output


Free Pascal Compiler version 1.1 [2003/07/11] for i386
Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Linux for i386
Compiling tst.pas
tst.pas(15,2) Note: Local variable "r" is assigned but never used
tst.pas(11,7) Error: Asm: Duplicate label .L3
tst.pas(10,9) Error: Asm: Duplicate label .L4
tst.pas(25,1) Fatal: There were 2 errors compiling module, stopping

Regards.

Jesus Reyes A.

_
Do You Yahoo!?
La mejor conexión a internet y 25MB extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx

___
fpc-pascal maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal