Re: [fpc-pascal] The fpGUI Toolkit supports FreeBSD!
I can rebuild lazarus using fpGUI (lastest snapshots of lazaurs and fpGUI) now? I rebuild lazarus with fpGUI, but it crashs when is started... 2008/1/15, Bee <[EMAIL PROTECTED]>: > > > As a side note... I'm also getting ready for the next fpGUI release. A > few > > minor fixes are all that is left. fpGUI has had some major improvements > and > > fixes added since the previous v0.5 release. The next release should be > a good > > one! > > I've been waiting to compile Lazarus IDE using fpGUI. If it happens, > I'll be confidently using fpGUI. ;) > > Congratulations and thanks for the great work of you (and your team). :) > > -Bee- > > has Bee.ography at: > http://beeography.wordpress.com > ___ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] The fpGUI Toolkit supports FreeBSD!
On 31/01/2008, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > I can rebuild lazarus using fpGUI (lastest snapshots of lazaurs and fpGUI) > now? > No you can't. At this time fpGUI is a stand-alone GUI toolkit for the Free Pascal Compiler. You can create GUI applications using Lazurus as your IDE (editor only) or any other editor for that matter and use fpGUI's UI Designer (visual form designer). This will give you fpGUI based applications - nothing to do with the Lazarus LCL. To actually compile Lazarus with the fpGUI toolkit, we need to first create a LCL-fpGUI widgetset, like the others that exist (Win32, Qt, GTK etc). The LCL-fpGUI that is currently in Lazarus is just a skeleton widgetset and has about 3 components working (TForm, TButton and TLabel) and they aren't complete either. It was simply an exercise to see what would be required to make fpGUI a supported toolkit for the LCL. There are plans to complete the LCL-fpGUI widgetset, but that is still months away. Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal] Object Pascal & arm-linux
Hi,
I successfully ran some MSE-gui test-programs on my arm-board. To do
this I used a patched fpc 2.2.0-fixes.
The patch involved backporting a fix from fpc-2.3.1 for
TBinaryObjectReader : the arm processor has no (AFAIK) extended type. I
needed 2.2.1 because 2.3.1 breaks MSE-gui.
I still have problems concerning floating points. When I put a
real-value in a component at design-time , it's not displayed OK, e.g.
1.0 is displayed as 5.29980882362664E-0315. When I put some real into it
at run-time it's fine. Also 0 is displayed fine if entered at design-time.
I also think that this problem breaks another component I would like to use.
I would like to make certain that patch works, any suggestions how to do
this ?
Enclosed a diff to show what I did to rtl/objpas/classes/reader.inc.
Remember that this is on arm-linux, i386-linux is fine.
Regards,
Koenraad Lelong.
16a17,62
> {$IFNDEF FPC_HAS_TYPE_EXTENDED}
> function ExtendedToDouble(e : pointer) : double;
> var mant : qword;
> exp : smallint;
> sign : boolean;
> d : qword;
> begin
> move(pbyte(e)[0],mant,8); //mantissa : bytes 0..7
> move(pbyte(e)[8],exp,2); //exponent and sign: bytes 8..9
> mant:=LEtoN(mant);
> exp:=LEtoN(word(exp));
> sign:=(exp and $8000)<>0;
> if sign then exp:=exp and $7FFF;
> case exp of
> 0 : mant:=0; //if denormalized, value is too small for double,
> //so it's always zero
> $7FFF : exp:=2047 //either infinity or NaN
> else
> begin
> dec(exp,16383-1023);
> if (exp>=-51) and (exp<=0) then //can be denormalized
> begin
> mant:=mant shr (-exp);
> exp:=0;
> end
> else
> if (exp<-51) or (exp>2046) then //exponent too large.
> begin
> Result:=0;
> exit;
> end
> else //normalized value
> mant:=mant shl 1; //hide most significant bit
> end;
> end;
> d:=word(exp);
> d:=d shl 52;
>
> mant:=mant shr 12;
> d:=d or mant;
> if sign then d:=d or $8000;
> Result:=pdouble(@d)^;
> end;
> {$ENDIF}
>
>
110,111c156,165
< begin
< Read(Result, SizeOf(Extended))
---
> {$IFNDEF FPC_HAS_TYPE_EXTENDED}
> var ext : array[0..9] of byte;
> {$ENDIF}
> begin
> {$IFNDEF FPC_HAS_TYPE_EXTENDED}
> Read(ext[0],10);
> Result:=ExtendedToDouble(@(ext[0]));
> {$ELSE}
> Read(Result,sizeof(Result));
> {$ENDIF}
1023d1076
<
___
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] Object Pascal & arm-linux
Koenraad Lelong schrieb: > Hi, > I successfully ran some MSE-gui test-programs on my arm-board. To do > this I used a patched fpc 2.2.0-fixes. > The patch involved backporting a fix from fpc-2.3.1 for > TBinaryObjectReader : the arm processor has no (AFAIK) extended type. I Which revision is this? > needed 2.2.1 because 2.3.1 breaks MSE-gui. > I still have problems concerning floating points. When I put a > real-value in a component at design-time , it's not displayed OK, e.g. > 1.0 is displayed as 5.29980882362664E-0315. When I put some real into it > at run-time it's fine. Also 0 is displayed fine if entered at design-time. > I also think that this problem breaks another component I would like to use. > I would like to make certain that patch works, any suggestions how to do > this ? Only default arm-linux, doubles are mixed little/big endian: the two dwords are ordered itself little endian but the relation between them is like on a big endian system, resulting in byte 4 byte 5 byte 6 byte 7 byte 0 byte 1 byte 2 byte 3 The reader/writer stuff has to take care of this. It applies if the fpu type is fpa,fpa10 or fp11. You can simply use the define FPC_DOUBLE_HILO_SWAPPED to detect this. The reason for this is that the fpa* fpu was invented when arm was big endian only. So the fpu tells the main core to load two dword. The main core loads the two dword from memory as little endian though. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal] a call on 64-bit testing of fpGUI
Hi, I've recently made some changes to fpGUI (subversion trunk revision). It now compiles successfully on Linux/x84_64 using FPC 2.2.0. This includes the example applications included with fpGUI (example the UI Designer). I unfortunately don't own a 64-bit PC and the remote server I have access to doesn't run a GUI, so can't actually execute any of the compiled applications. :-( Could anybody willing, please give it a try and let me know if there are any issues? I'm not sure what 64-bit platforms FPC supports though. fpGUI has been tested on 32-bit Linux, Windows and FreeBSD. I would now like to test on those same platforms, but for 64-bit. I would really appreciate you help and feedback. Many thanks in advance. Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On Fri, 1 Feb 2008, Graeme Geldenhuys wrote: > Hi, > > I've recently made some changes to fpGUI (subversion trunk revision). > It now compiles successfully on Linux/x84_64 using FPC 2.2.0. This > includes the example applications included with fpGUI (example the UI > Designer). > > I unfortunately don't own a 64-bit PC and the remote server I have > access to doesn't run a GUI, so can't actually execute any of the > compiled applications. :-( > > Could anybody willing, please give it a try and let me know if there > are any issues? > > I'm not sure what 64-bit platforms FPC supports though. fpGUI has been > tested on 32-bit Linux, Windows and FreeBSD. I would now like to test > on those same platforms, but for 64-bit. > > I would really appreciate you help and feedback. Many thanks in advance. Tested and ran menu example without a glitch. Anything else you want to see tested explicitly ? Great job, Graeme !! Michael. > > Regards, > - Graeme - > > > ___ > fpGUI - a cross-platform Free Pascal GUI toolkit > http://opensoft.homeip.net/fpgui/ > ___ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
Hi I've tested every example existed. Two issues: 1. It seems that label does not have the color property, at least FPC does not find it. 2. Font select is compiled but I have a sig serv on procedure TMainForm.CreateFontList; Other then that, thinks works really great You've made a really great job :) Ido On Feb 1, 2008 7:45 PM, Graeme Geldenhuys <[EMAIL PROTECTED]> wrote: > Hi, > > I've recently made some changes to fpGUI (subversion trunk revision). > It now compiles successfully on Linux/x84_64 using FPC 2.2.0. This > includes the example applications included with fpGUI (example the UI > Designer). > > I unfortunately don't own a 64-bit PC and the remote server I have > access to doesn't run a GUI, so can't actually execute any of the > compiled applications. :-( > > Could anybody willing, please give it a try and let me know if there > are any issues? > > I'm not sure what 64-bit platforms FPC supports though. fpGUI has been > tested on 32-bit Linux, Windows and FreeBSD. I would now like to test > on those same platforms, but for 64-bit. > > I would really appreciate you help and feedback. Many thanks in advance. > > Regards, > - Graeme - > > > ___ > fpGUI - a cross-platform Free Pascal GUI toolkit > http://opensoft.homeip.net/fpgui/ > ___ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > -- http://ik.homelinux.org/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On Fri, 1 Feb 2008, ik wrote: > Hi > > I've tested every example existed. > > Two issues: > > 1. It seems that label does not have the color property, at least FPC > does not find it. > 2. Font select is compiled but I have a sig serv on procedure > TMainForm.CreateFontList; This second one works just fine for me ? Michael. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On 01/02/2008, ik <[EMAIL PROTECTED]> wrote: > > 1. It seems that label does not have the color property, at least FPC > does not find it. TfpgLabel as a TextColor and BackgroundColor property. Is that what you were looking for? > 2. Font select is compiled but I have a sig serv on procedure > TMainForm.CreateFontList; Could you email the exact error or even a backtrace if possible please. Thanks for your time and testing it for me Ido. Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On 01/02/2008, Giuliano Colla <[EMAIL PROTECTED]> wrote: > > I seem to recall that I had a similar problem (on a 32 bit platform) > just because I didn't have an arial font of any kind installed. > I replaced default font names with generic Serif and Sans, and I forgot > about the problem. > Maybe it's unrelated, but just in case. Ah, I think you might be on to something there. I always install the free Microsoft Core Web Fonts - most websites look so much better with them. I'll do some testing in that area. Thanks for the tip. Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On 01/02/2008, ik <[EMAIL PROTECTED]> wrote: > > > > TfpgLabel as a TextColor and BackgroundColor property. Is that what > > you were looking for? > > Well The code states (for example in alignment) lblNone.Color := > clWhite; So that's a "bug" in the example :) > :-) I must have missed that one. I changed the Color property to TextColor in the last week. Now it's less ambiguous. I'll fix the example now, thanks. Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On 01/02/2008, Michael Van Canneyt <[EMAIL PROTECTED]> wrote: > > Tested and ran menu example without a glitch. > Anything else you want to see tested explicitly ? Thanks Michael. No there wasn't anything specific. I simply wanted it tested on as many platforms and systems possible. One can never be to sure. :) Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] Object Pascal & arm-linux
Florian Klaempfl schreef:
> Koenraad Lelong schrieb:
>> Hi,
>> I successfully ran some MSE-gui test-programs on my arm-board. To do
>> this I used a patched fpc 2.2.0-fixes.
>> The patch involved backporting a fix from fpc-2.3.1 for
>> TBinaryObjectReader : the arm processor has no (AFAIK) extended type. I
>
> Which revision is this?
>
If you mean 2.2.1 : readme.rev says 8445 for fpc/branches/fixes_2_2
If you mean 2.3.1 : svn info fpc says Revision : 9843
>> needed 2.2.1 because 2.3.1 breaks MSE-gui.
>
> The reader/writer stuff has to take care of this. It applies if the fpu
> type is fpa,fpa10 or fp11. You can simply use the define
> FPC_DOUBLE_HILO_SWAPPED to detect this. The reason for this is that the
How would I do that ? I tried, see enclosed diff, with no solution.
Regards,
Koenraad lelong.
16a17,63
> {$IFNDEF FPC_HAS_TYPE_EXTENDED}
> {$DEFINE FPC_DOUBLE_HILO_SWAPPED}
> function ExtendedToDouble(e : pointer) : double;
> var mant : qword;
> exp : smallint;
> sign : boolean;
> d : qword;
> begin
> move(pbyte(e)[0],mant,8); //mantissa : bytes 0..7
> move(pbyte(e)[8],exp,2); //exponent and sign: bytes 8..9
> mant:=LEtoN(mant);
> exp:=LEtoN(word(exp));
> sign:=(exp and $8000)<>0;
> if sign then exp:=exp and $7FFF;
> case exp of
> 0 : mant:=0; //if denormalized, value is too small for double,
> //so it's always zero
> $7FFF : exp:=2047 //either infinity or NaN
> else
> begin
> dec(exp,16383-1023);
> if (exp>=-51) and (exp<=0) then //can be denormalized
> begin
> mant:=mant shr (-exp);
> exp:=0;
> end
> else
> if (exp<-51) or (exp>2046) then //exponent too large.
> begin
> Result:=0;
> exit;
> end
> else //normalized value
> mant:=mant shl 1; //hide most significant bit
> end;
> end;
> d:=word(exp);
> d:=d shl 52;
>
> mant:=mant shr 12;
> d:=d or mant;
> if sign then d:=d or $8000;
> Result:=pdouble(@d)^;
> end;
> {$ENDIF}
>
>
110,111c157,166
< begin
< Read(Result, SizeOf(Extended))
---
> {$IFNDEF FPC_HAS_TYPE_EXTENDED}
> var ext : array[0..9] of byte;
> {$ENDIF}
> begin
> {$IFNDEF FPC_HAS_TYPE_EXTENDED}
> Read(ext[0],10);
> Result:=ExtendedToDouble(@(ext[0]));
> {$ELSE}
> Read(Result,sizeof(Result));
> {$ENDIF}
1023d1077
<
___
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
Graeme Geldenhuys ha scritto: On 01/02/2008, ik <[EMAIL PROTECTED]> wrote: 1. It seems that label does not have the color property, at least FPC does not find it. TfpgLabel as a TextColor and BackgroundColor property. Is that what you were looking for? 2. Font select is compiled but I have a sig serv on procedure TMainForm.CreateFontList; Could you email the exact error or even a backtrace if possible please. I seem to recall that I had a similar problem (on a 32 bit platform) just because I didn't have an arial font of any kind installed. I replaced default font names with generic Serif and Sans, and I forgot about the problem. Maybe it's unrelated, but just in case. Giuliano -- Giuliano Colla Whenever people agree with me, I always feel I must be wrong (O. Wilde) ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On Feb 1, 2008 10:33 PM, Graeme Geldenhuys <[EMAIL PROTECTED]> wrote: > On 01/02/2008, ik <[EMAIL PROTECTED]> wrote: > > > > 1. It seems that label does not have the color property, at least FPC > > does not find it. > > TfpgLabel as a TextColor and BackgroundColor property. Is that what > you were looking for? Well The code states (for example in alignment) lblNone.Color := clWhite; So that's a "bug" in the example :) > > > 2. Font select is compiled but I have a sig serv on procedure > > TMainForm.CreateFontList; > > Could you email the exact error or even a backtrace if possible please. > > Thanks for your time and testing it for me Ido. > > > > Regards, > - Graeme - > > > ___ > fpGUI - a cross-platform Free Pascal GUI toolkit > http://opensoft.homeip.net/fpgui/ > ___ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > Ido -- http://ik.homelinux.org/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On 01/02/2008, ik <[EMAIL PROTECTED]> wrote: > 2. Font select is compiled but I have a sig serv on procedure > TMainForm.CreateFontList; Could you try what Giuliano suggested. Changing the default font from Arial to Sans. gfxbase.pas line 63 FPG_DEFAULT_FONT_DESC = 'Arial-10:antialias=true'; Though looking at your backtrace it seems to get all the way to the XftListFonts() call and fails there... I'll go read up on the parameter options again. Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] Object Pascal & arm-linux
Koenraad Lelong schrieb: > Florian Klaempfl schreef: >> Koenraad Lelong schrieb: >>> Hi, >>> I successfully ran some MSE-gui test-programs on my arm-board. To do >>> this I used a patched fpc 2.2.0-fixes. >>> The patch involved backporting a fix from fpc-2.3.1 for >>> TBinaryObjectReader : the arm processor has no (AFAIK) extended type. I >> Which revision is this? >> > If you mean 2.2.1 : readme.rev says 8445 for fpc/branches/fixes_2_2 > If you mean 2.3.1 : svn info fpc says Revision : 9843 > >>> needed 2.2.1 because 2.3.1 breaks MSE-gui. > >> The reader/writer stuff has to take care of this. It applies if the fpu >> type is fpa,fpa10 or fp11. You can simply use the define >> FPC_DOUBLE_HILO_SWAPPED to detect this. The reason for this is that the > How would I do that ? I tried, see enclosed diff, with no solution. You've to check for this define and handle double appropriate when loading them. ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On Feb 1, 2008 11:03 PM, Graeme Geldenhuys <[EMAIL PROTECTED]> wrote: > On 01/02/2008, ik <[EMAIL PROTECTED]> wrote: > > 2. Font select is compiled but I have a sig serv on procedure > > TMainForm.CreateFontList; > > Could you try what Giuliano suggested. Changing the default font from > Arial to Sans. I'll try, although I do have core fonts installed ... > > gfxbase.pas line 63 > FPG_DEFAULT_FONT_DESC = 'Arial-10:antialias=true'; > > > Though looking at your backtrace it seems to get all the way to the > XftListFonts() call and fails there... I'll go read up on the > parameter options again. > > > Regards, > - Graeme - > > > ___ > fpGUI - a cross-platform Free Pascal GUI toolkit > http://opensoft.homeip.net/fpgui/ > ___ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > -- http://ik.homelinux.org/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
Re: [fpc-pascal] a call on 64-bit testing of fpGUI
On 01/02/2008, ik <[EMAIL PROTECTED]> wrote: > On Feb 1, 2008 11:03 PM, Graeme Geldenhuys <[EMAIL PROTECTED]> > > > > Could you try what Giuliano suggested. Changing the default font from > > Arial to Sans. > > I'll try, although I do have core fonts installed ... That's why I am thinking it's something else to do with the XftListFonts() call. I'll test tomorrow when I booted back into Linux. Regards, - Graeme - ___ fpGUI - a cross-platform Free Pascal GUI toolkit http://opensoft.homeip.net/fpgui/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
[fpc-pascal] nice blog article: "Why I use (object) Pascal"
Might be of interest to both mailing lists. He plugs FPC and Lazarus, and it's nicely written. CodeGear of course makes an appearance in the comments (which are a fun read :) http://www.screamingduck.com/Article.php?ArticleID=43&Show=ABCE -- _| () |-| |\| ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
