[lazarus] fpgui font bug

2007-04-15 Thread Giuliano Colla
While testing fpgui, I had a problem with default font, because Arial-10 
wasn't found.
So I looked into the source. I fixed my problem changing the default to 
Sans-10, but I spotted what it seems a bug to me.

In the following section of code form GFX_X11 lines 1281 on:

 if not Assigned(FDefaultFont) then
 begin
   {$IFNDEF XftSupport}
   FDefaultFont.FontData := XLoadQueryFont(Handle, 'fixed');
   {$ENDIF}
..

if FDefaultFont is *not assigned*, attempting to write 
FDefaultFont.FontData doesn't appear right.


I'm not familiar enough with X11fonts witchcraft to attempt to fix it.

Giuliano

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


Re: [lazarus] fpgui font bug

2007-04-15 Thread Graeme Geldenhuys

Are you using Xft font support (the default) or standard X11 font support?

Graeme.


On 4/15/07, Giuliano Colla [EMAIL PROTECTED] wrote:

While testing fpgui, I had a problem with default font, because Arial-10
wasn't found.
So I looked into the source. I fixed my problem changing the default to
Sans-10, but I spotted what it seems a bug to me.
In the following section of code form GFX_X11 lines 1281 on:

  if not Assigned(FDefaultFont) then
  begin
{$IFNDEF XftSupport}
FDefaultFont.FontData := XLoadQueryFont(Handle, 'fixed');
{$ENDIF}
..

if FDefaultFont is *not assigned*, attempting to write
FDefaultFont.FontData doesn't appear right.

I'm not familiar enough with X11fonts witchcraft to attempt to fix it.

Giuliano

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




--
Graeme Geldenhuys

There's no place like S34° 03.168'  E018° 49.342'

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


Re: [lazarus] fpgui font bug

2007-04-15 Thread Graeme Geldenhuys

On 4/15/07, Giuliano Colla [EMAIL PROTECTED] wrote:

  if not Assigned(FDefaultFont) then
  begin
{$IFNDEF XftSupport}
FDefaultFont.FontData := XLoadQueryFont(Handle, 'fixed');
{$ENDIF}
..


I made a change to this code in revision 85 of fpGUI. Thanks for
spotting the problem.


--
Graeme Geldenhuys

There's no place like S34° 03.168'  E018° 49.342'

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


Re: [lazarus] fpgui font bug

2007-04-15 Thread Giuliano Colla

Graeme Geldenhuys ha scritto:
Are you using Xft font support (the default) or standard X11 font 
support?


Graeme.

I was using the default Xft, but because of a problem with Arial-10 I 
gave a test to standard X11 font support, and looking into the code I 
spotted what seemed a bug to me.


Giuliano

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


Re: [lazarus] fpgui font bug

2007-04-15 Thread Giuliano Colla

Graeme Geldenhuys ha scritto:

On 4/15/07, Giuliano Colla [EMAIL PROTECTED] wrote:

  if not Assigned(FDefaultFont) then
  begin
{$IFNDEF XftSupport}
FDefaultFont.FontData := XLoadQueryFont(Handle, 'fixed');
{$ENDIF}
..


I made a change to this code in revision 85 of fpGUI. Thanks for
spotting the problem.



It's the philosophy of Open Source, isnt'it?

My compliments for your work. If I could manage to squeeze some time out 
of my engagements I'd gladly contribute more effectively.


Giuliano

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


[lazarus] After compiling and debugging my app, sometimes (randomly) a failure pops up.

2007-04-15 Thread Pelle ten Cate

Dear devvers,

I am trying to write quite a nice application in Lazarus. Now
sometimes when I compile my project and run it (debug via Lazarus) i
get the following error: (slightly different probably, translated from
Dutch)

Running is temporarly halted. Address: $7C810665, Procedure:
KERNEL32!CreateThread, File (doesn't report a filename.)

After clicking OK, debugging goes on immediately.

I have no clue where this possibly comes from.

My setup: Windows XP Pro SP2, Lazarus 0.9.22, fpc 2.0.4

How to debug this irritating thingie?

Regards,
-Pelle

--
Aut viam inveniam aut faciam

Whatever you might be questioning yourself Google has the answer!

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


[lazarus] listview example cannot be loaded in the IDE on win64

2007-04-15 Thread Vincent Snijders

Hi,

I am trying to find out why the listview example doesn't load in the IDE 
 on windows 64.


I enabled and added some debugln's and got this information. The 
listview has an empty


[TJITComponentList.ReaderError] Error reading ImageList1.Bitmap: Access 
violation ignoring=0


Some more writelns told me the crash occurs when FOnChange(Self) is 
called in procedure TCustomImageList.Change;


The value of TMethod(FOnChange).code points to a copy of the 
TPersistentWithTemplates.DoNothing procedure which is located on the 
heap. It is a place holder for procedure TForm1.ImageList1Change.


Questions:
* Is this code actually to be executed? Was it designed so that the IDE 
could execute this code at design time? I think the answer is yes.


* I tested on windows XP 64. Does anybody know if the 64 bits version of 
windows works differently in this respect than the 32 bits version? For 
example does it proctect the memory on the heap from execution?


Vincent

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


Re: [lazarus] After compiling and debugging my app, sometimes (randomly) a failure pops up.

2007-04-15 Thread Marco van de Voort
On Sun, Apr 15, 2007 at 08:07:05PM +0200, Pelle ten Cate wrote:
 I am trying to write quite a nice application in Lazarus. Now
 sometimes when I compile my project and run it (debug via Lazarus) i
 get the following error: (slightly different probably, translated from
 Dutch)
 
 Running is temporarly halted. Address: $7C810665, Procedure:
 KERNEL32!CreateThread, File (doesn't report a filename.)
 
 After clicking OK, debugging goes on immediately.
 
 I have no clue where this possibly comes from.
 
 My setup: Windows XP Pro SP2, Lazarus 0.9.22, fpc 2.0.4
 
 How to debug this irritating thingie?

You could try to use this GDB command:

set scheduler-locking mode
Set the scheduler locking mode. If it is off, then there is no locking
and any thread may run at any time. If on, then only the current thread may
run when the inferior is resumed. The step mode optimizes for
single-stepping. It stops other threads from seizing the prompt by
preempting the current thread while you are stepping. Other threads will
only rarely (or never) get a chance to run when you step. They are more
likely to run when you `next' over a function call, and they are completely
free to run when you use commands like `continue', `until', or `finish'.
However, unless another thread hits a breakpoint during its timeslice, they
will never steal the GDB prompt away from the thread that you are debugging.

show scheduler-locking
Display the current scheduler locking mode.

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


Re: [lazarus] listview example cannot be loaded in the IDE on win64

2007-04-15 Thread Mattias Gaertner
On Sun, 15 Apr 2007 23:01:28 +0200
Vincent Snijders [EMAIL PROTECTED] wrote:

 Hi,
 
 I am trying to find out why the listview example doesn't load in the
 IDE on windows 64.
 
 I enabled and added some debugln's and got this information. The 
 listview has an empty
 
 [TJITComponentList.ReaderError] Error reading ImageList1.Bitmap:
 Access violation ignoring=0
 
 Some more writelns told me the crash occurs when FOnChange(Self) is 
 called in procedure TCustomImageList.Change;
 
 The value of TMethod(FOnChange).code points to a copy of the 
 TPersistentWithTemplates.DoNothing procedure which is located on the 
 heap. It is a place holder for procedure TForm1.ImageList1Change.
 
 Questions:
 * Is this code actually to be executed? Was it designed so that the
 IDE could execute this code at design time? I think the answer is yes.

Short answer: yes
Long answer: It is the really dirty hack in the IDE.
It was done, because assigning a 'real' TMethod to an event has the
advantage that all OI, RTTI and all streaming code work without hacks or
additions.

 
 * I tested on windows XP 64. Does anybody know if the 64 bits version
 of windows works differently in this respect than the 32 bits
 version? For example does it proctect the memory on the heap from
 execution?

If yes, then it is finally time to use the Delphi half Assigned trick
and to check and extend the whole OI, RTTI and Streaming code to support
this.


Mattias

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


Re: [lazarus] sign fpc and lazarus images.

2007-04-15 Thread John Meyer

Jesus Reyes wrote:

Abraham Montaño (SiR-HaCk on #lazarus-es IRC channel) sent me the
attached images, he wants to share them with you, he hopes you like
them.  


_

Nice, I guess. Are they link buttons?

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


Re: [lazarus] sign fpc and lazarus images.

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


- Original Message - 
From: John Meyer [EMAIL PROTECTED]

To: lazarus@miraclec.com
Sent: Sunday, April 15, 2007 6:50 PM
Subject: Re: [lazarus] sign fpc and lazarus images.



Jesus Reyes wrote:

Abraham Montaño (SiR-HaCk on #lazarus-es IRC channel) sent me the
attached images, he wants to share them with you, he hopes you like
them.
_

Nice, I guess. Are they link buttons?



Yes, they can be used as link images or as signature images, use them as you 
like it :)


Jesús Reyes A. 


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


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


[lazarus] Run Error 216

2007-04-15 Thread Jeff Steinkamp
I am getting the following error as I exit one procedure and enter another.  I 
believe it has something to do with allocating memory using the SetLength 
procedure for a dynamic array.  That is the line it appears to be failing on.

External: SIGSEGV
Address $0806360B

SYSTEM_SYSGETMEM_VAR$LONGINT$$POINTER

This is then followed by a RunError (216);

I am not sure the dynamic array I am allocating in the first procedure is 
really 
getting deallocated when the procedure ends even though I am setting it's 
length 
to zero before the procedure ends. The array is declared locally so once the 
procedure end, that memory should be returned to the free store.

Has anyone see this before?



Jeff Steinkamp - N7YG
Tucson, AZ
SCUD Missile Coordinates
N32-13-55.01 W110-50-51.91
http://n7yg.net
http://home.earthlink.net/~jksteinkamp
Linux User #420428
Skype : jeff.steinkamp
___

Bagpipes (n): an octopus wearing a kilt.



__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

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


Re: [lazarus] devel: TRawImage questions

2007-04-15 Thread Mattias Gaertner
On Mon, 16 Apr 2007 00:40:08 +0200
Marc Weustink [EMAIL PROTECTED] wrote:

 Hi,
 
 I'm currently reworking/verifying TLazIntfImage/TRawImage and ran into
 sume questions. Since the devel list is down. I'll ask it here.
 
 1)What is the purpose of CreateBitmapFromRawImage ?
 When looking at the win32 implementation it looks like this function
 should create a bitmap compatible with the current display. But I
 wonder if this meant this way (you don't want to create a compatible
 bitmap in all cases)

The idea is to create a bitmap compatible with the
TRawImageDescription. If it should be compatible with the current
display, then it must be filled with compatible values. If the values
are not compatible, then the lcl intf can either create a non
bitmap, which is incompatible to the display (DIB?), or fail.

 
 2) Why are the DataSize and MaskDataSize (which I rather would like to
 call AlphaDataSize)

Yes, that would be better. It is a pitty we can not rename the Mask in
TBitmap.


 defined as PtrUInt. What is the purpose of this ?
 A definition like this means that code on a 64bit platform can handle
 larger images ?

Yes.

 IMO, we should keep this cikd of structs constant, so
 either define the size as DWord or as QWord.

Why?
TRawImageDescription is for handling memory images, not for streaming.

Mattias

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