[Lazarus] EXTERNAL : SIGPFE

Dians diansopandi95 at gmail.com
Tue Nov 3 09:18:54 CET 2009


Under Windows (XP SP3) the Version page of Lazarus' About dialog does
not display correctly, with 'Lazarus' text obscuring 'Free Pascal' (see
attached screenshot).
By amending the OnPaint method of the PaintBox1 control in
\lazarus\ide\aboutfrm.pas
as follows:

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  with PaintBox1.Canvas do
  begin
    Font.Color:= RGBToColor(63,97,197);
    Font.Size:= 14;                           // Font.Size:= 16;
    TextOut(66,0, 'Free Pascal');  // TextOut(55,0, 'Free Pascal');
    Font.Size:= 24;                          // Font.Size:= 36;
    Font.Style:= [fsBold];
    TextOut(51,20, 'Lazarus');     // TextOut(5,10, 'Lazarus');
    Brush.Color:= clRed;
    Pen.Color:= clRed;
    Rectangle(60,63,170,81);
    Font.Color:= clWhite;
    Font.Size:= 10;
    TextOut(90,63, 'Project');
  end;
end;      

the page displays correctly in Windows.
Presumably the developer of this bit of the ide tried it on his Mac or
Linux system and it displayed OK as coded in the repository.

Is there a cross-platform way to code such fancily formatted
strings which would ensure they are centred and non-overlapping and so
avoid altogether the need to hard-code pixel positions and text
lengths?

yours

Howard
-------------- next part --------------
A non-text attachment was scrubbed...
Name: About.JPG
Type: image/jpeg
Size: 21649 bytes
Desc: not available
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20091102/94610994/attachment-0004.jpe>


More information about the Lazarus mailing list