Re: [lazarus] TBitmap.SetHandles stops executuoin

2007-08-16 Thread skywriter

Please provide a complete example.

Mattias



Example in attachement. I cleared all binaries due to 40 KB limit of 
mail list, so you have to make "Build All" before running.


TBitmap_bugreport.tar.bz2
Description: BZip2 compressed data


Re: [lazarus] Problem developing TCustomLabel descendant (and change proposition)

2007-08-16 Thread Luiz Americo Pereira Camara

Mattias Gaertner wrote:

On Tue, 07 Aug 2007 14:12:19 -0300
Luiz Americo Pereira Camara <[EMAIL PROTECTED]> wrote:

  
As a change to a properly implementation i would propose to add a 
virtual method (DoMeasureTextPosition) to retrieve the TextLeft and 
TextTop values (see TCustomLabel.Paint). The default implementation

is equal to the current code in .Paint (I simplified a bit assuming
that R.Top and R.Left = 0, R.Bottom = Height)

The patch is attached.



Thanks. Applied.

  


Thanks for applying, Mattias.

Luiz

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


Re: [lazarus] FPC dynamic Library issues

2007-08-16 Thread David Lyon

Sebastian Günther wrote:

Micha Nelissen schrieb:


I think on windows, it's not "forbidden" to put the version number in
the number, e.g. msvc, and delphi vcl do it. So having the major version
in the name seems most logical.
If that doesn't work, we could add a stub function 
"GetLibraryVersionNumber" that could return the value. Messy but it 
would work and be stable.
Yes. But what about having e.g. version 2.0 and 2.1, where 2.1 is 
backwards compatible to 2.0, but introduces new functions. How should 
an application distuingish between a "real" 2.0 DLL and a 2.1 DLL, 
when both have the same filename?

Calling the function ?

Regards

David

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


Re: [lazarus] Systems 2007

2007-08-16 Thread Sebastian Günther

David Lyon schrieb:

Mattias Gaertner wrote:
Marco: In about which area was the Greek restaurant? Near the youth 
hostel, i.e. near Rotkreuzplatz / in Neuhausen?



Yes. AFAIR it was west of the youth hostel.

  

Does this help ?

http://maps.google.com/maps?f=q&hl=en&geocode=&q=Rotkreuzplatz,+Nymphenburg+80634+Munich,+Munich,+Bavaria,+Germany&sll=37.0625,-95.677068&sspn=56.900431,102.304688&ie=UTF8&cd=1&ll=48.153919,11.532812&spn=0.005926,0.012488&t=h&z=16&iwloc=addr&om=1 



Not really. I'm living about 3 km away from this place, so it should be 
easy to find out which restaurant Marco meant ;)  The problem is, that 
quite a lot of bars and restaurants do exist in this areas.


Regards,
Sebastian

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


Re: [lazarus] Systems 2007

2007-08-16 Thread David Lyon

Mattias Gaertner wrote:
Marco: In about which area was the Greek restaurant? Near the youth 
hostel, i.e. near Rotkreuzplatz / in Neuhausen?



Yes. AFAIR it was west of the youth hostel.

  

Does this help ?

http://maps.google.com/maps?f=q&hl=en&geocode=&q=Rotkreuzplatz,+Nymphenburg+80634+Munich,+Munich,+Bavaria,+Germany&sll=37.0625,-95.677068&sspn=56.900431,102.304688&ie=UTF8&cd=1&ll=48.153919,11.532812&spn=0.005926,0.012488&t=h&z=16&iwloc=addr&om=1 



Re: [lazarus] Systems 2007

2007-08-16 Thread Sebastian Günther

Mattias Gaertner schrieb:


Marco: In about which area was the Greek restaurant? Near the youth 
hostel, i.e. near Rotkreuzplatz / in Neuhausen?


Yes. AFAIR it was west of the youth hostel.


Okay I'll investigate this matter tomorrow, the head of one of my best 
customers is living in Neuhausen, he should know it ;) (I haven' been 
with you this evening, I would remember this...)



- Sebastian

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


Re: [lazarus] Systems 2007

2007-08-16 Thread Marco van de Voort
On Thu, Aug 16, 2007 at 11:58:13AM +0200, Sebastian G?nther wrote:
> David Lyon schrieb:
>>> Oh, and maybe the address of the Greek restaurant we were in 2005 
>>> (Mattias
>>> maybe remembers it :-)
>>>   
>> I could only find this:
>> http://www.xs4all.nl/~patto1ro/munipubs.htm
> 
> There are so many pubs, bars, restaurants etc. in Munich...
> 
> Marco: In about which area was the Greek restaurant? Near the youth hostel, 
> i.e. near Rotkreuzplatz / in Neuhausen?

Yes. Note that it was mainly remarkable because of the alcoholconsumption of
the owner. We did have a laugh though.

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


Re: [lazarus] TBitmap.SetHandles stops executuoin

2007-08-16 Thread Vincent Snijders

skywriter schreef:
I simply sent letter with subject  "Re: [lazarus] 
TClipboard.AssignToGraphic copies empty stream"

with one attachement file about 100KB size.
What i do wrong?


The attachment is too big. The list allows 40 KB max.

Vincent

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


Re: [lazarus] TBitmap.SetHandles stops executuoin

2007-08-16 Thread skywriter

Please provide a complete example.

Mattias



How can i do it? I already twice sent attachement to the thread about 
TBitmap.AssignToGraphic, but it seems they didn't achieve goal.
I simply sent letter with subject  "Re: [lazarus] 
TClipboard.AssignToGraphic copies empty stream"

with one attachement file about 100KB size.
What i do wrong?

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


Re: [lazarus] KeyDown and KeyUp events

2007-08-16 Thread Valdas Jankūnas

Mattias Gaertner rašė:


The Gtk1 sends press and release events during pressing.
The Gtk2 does it correct.

I don't know, if there is an easy way to add a workaround for the gtk1
interface.


 First time i have idea, maybe it helps if KeyUpBeforeInterface occurs 
 then get real key state, maybe with GetAsyncKeyState like in win, but 
i not found this function Lazarus...
 I think better leave these issue as is and write note in wiki about 
this keyboard behavior in GTK1.


--
  Valdas Jankūnas

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


Re: [lazarus] KeyDown and KeyUp events

2007-08-16 Thread Mattias Gaertner
On Thu, 16 Aug 2007 20:48:42 +0200
Reimar Grabowski <[EMAIL PROTECTED]> wrote:

> On Thu, 16 Aug 2007 20:27:38 +0200
> Mattias Gaertner <[EMAIL PROTECTED]> wrote:
> 
> 
> > The Gtk1 sends press and release events during pressing.
> 
> Randomly or is there a pattern?

AFAIK it is always a pattern as described:

> >  in Lazarus if i press a key (for example "q") i get OnKeyDown
> > event, and if i still hold pressed that key i get sequence of events
> > OnKeuUp, onKeyDown, OnKeyUp, ... until i release key.


Mattias

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


Re: [lazarus] KeyDown and KeyUp events

2007-08-16 Thread Reimar Grabowski
On Thu, 16 Aug 2007 20:27:38 +0200
Mattias Gaertner <[EMAIL PROTECTED]> wrote:


> The Gtk1 sends press and release events during pressing.

Randomly or is there a pattern?

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


Re: [lazarus] Problem developing TCustomLabel descendant (and change proposition)

2007-08-16 Thread Mattias Gaertner
On Tue, 07 Aug 2007 14:12:19 -0300
Luiz Americo Pereira Camara <[EMAIL PROTECTED]> wrote:

> I'm developing a TCustomLabel descendant that will have a glyph
> painted in the left side of the text.
> 
> I found that there's no way to set the position where the text is 
> painted so i could have space to the glyph.
> 
> Currently i took the following approach (adding some spaces to the
> Caption):
> 
> function TGlyphLabel.GetLabelText: string;
> begin
>   Result := '' + Caption;
> end;
> 
> procedure TGlyphLabel.Paint;
> begin
>   inherited Paint;
>   with Canvas do
>   begin
> Brush.Style := bsSolid;
> Brush.Color := clWhite;
> Pen.Color := clBlack;
> Polygon([Point(0, 5), Point(8, 5), Point(4, 9)]);
>   end;
> end;
> 
> As a change to a properly implementation i would propose to add a 
> virtual method (DoMeasureTextPosition) to retrieve the TextLeft and 
> TextTop values (see TCustomLabel.Paint). The default implementation
> is equal to the current code in .Paint (I simplified a bit assuming
> that R.Top and R.Left = 0, R.Bottom = Height)
> 
> The patch is attached.

Thanks. Applied.

Mattias

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


Re: [lazarus] KeyDown and KeyUp events

2007-08-16 Thread Mattias Gaertner
On Tue, 07 Aug 2007 20:55:47 +0300
Valdas Jankūnas <[EMAIL PROTECTED]> wrote:

> Hi,
> 
>   in Lazarus if i press a key (for example "q") i get OnKeyDown
> event, and if i still hold pressed that key i get sequence of events
> OnKeuUp, onKeyDown, OnKeyUp, ... until i release key.
> 
>   I think that is not correct. IIRC in Delphi if i hold key pressed i 
> got only sequence of OnKeyDown events until i release that key. And
> in "http://delphi.about.com/od/objectpascalide/a/keyboard_events.htm"; 
> writes "If you hold down a key, the OnKeyUp event occurs after all
> the OnKeyDown and OnKeyPress events have occurred.".
> 
>   Maybe i get that because i use Linux and Gtk1, how are in win32?
>   Or this are OK, in Lazarus?

The Gtk1 sends press and release events during pressing.
The Gtk2 does it correct.

I don't know, if there is an easy way to add a workaround for the gtk1
interface.

 
>   I attached sample project for testing.


Mattias
 

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


Re: [lazarus] TBitmap.SetHandles stops executuoin

2007-08-16 Thread Mattias Gaertner
On Thu, 16 Aug 2007 15:53:39 +0400
skywriter <[EMAIL PROTECTED]> wrote:

> I decided to extend class TLazIntfImage to make it possible to export 
> picture to TBitmap for displaying on screen:
> 
>   TLazIntfImageExtended = class(TLazIntfImage)
>   private
> itsThreshold : TFPColor;
> itsGrayScale : Boolean;
>   public
> constructor Create( _Width, _Height : Longword );
> constructor CreateFromBitmap( _BMP : TBitmap );
> procedure TurnToGrayScale;
> procedure ThresholdFilter;
> function  GetBitmap : TBitmap;
> property  GrayScale : Boolean read itsGrayScale write
> itsGrayScale; end;
> 
> function  TLazIntfImageExtended.GetBitmap : TBitmap;
> var
>   OutBMP: TBitmap;
>   ImgHandle,
>   ImgMaskHandle : HBitmap;
> begin
>   OutBMP := TBitmap.Create;
>   Self.CreateBitmap( ImgHandle, ImgMaskHandle, false );
>   OutBMP.SetHandles( ImgHandle, ImgMaskHandle );
>   Result := OutBMP;
> end;
> 
> But  on "OutBMP.SetHandles( ImgHandle, ImgMaskHandle );" execution 
> stops.
> Also i tried to assign property OutBMP.Handle := ImgHandle. Result is 
> the same.
> I don't understand why FadeIn example works, but this method - not?

Please provide a complete example.

Mattias

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


Re: [lazarus] Code Completion don't understand new generic sintax

2007-08-16 Thread Carlos German Tejero
Thanks Mattias, good and great job!!!.


2007/8/16, Mattias Gaertner <[EMAIL PROTECTED]>:
>
> On Wed, 15 Aug 2007 18:05:18 -0300
> "Carlos German Tejero" <[EMAIL PROTECTED]> wrote:
>
> > Hi to Lazarus Team (sorry for my poor english):
> >
> > I probe the new FPC generic support, and work fine, but the Lazarus
> > Code Completion don't understand new generic sintax. For example in
> > the next code:
> >
> >
> > program test;
> >
> > {$apptype console}
> > {$mode objfpc}{$H+}
> >
> > uses
> >   SysUtils, Classes;
> >
> > type
> >   generic TTest = class(TObject)
> > function sum(a,b:TDato):TDato;
> >   end;
> >
> >   TIntTest = specialize TTest;
> >
> >   TStrTest = specialize TTest;
> >
> >   function TTest.sum(a,b:TDato):TDato;
> >   begin
> > Result := a + b;
> >   end;
> >
> > var
> >   it:TIntTest;
> >   st:TStrTest;
> >   i:integer;
> >   s:string;
> >
> > begin
> >   it := TIntTest.Create;
> >   i := it.sum(1,2);
> >   it.Free;
> >   WriteLn(i);
> >
> > end.
> >
> > when i write "it := TIntTest." and press CRTL+SPACE, i got the next
> > error in the messages window:
> >
> >   "test.lpr(10,11) Error: = expected, but TTest found"
> >
> > i'm using Lazarus 0.9.23 Beta SVN:11793 x86_64-win64-win32/win64
> > on WindowsXP 64.
>
> I implemented some basic things, like parsing and simple find
> declaration for generics. Please update svn and test.
>
>
> Mattias
>
> _
> To unsubscribe: mail [EMAIL PROTECTED] with
>"unsubscribe" as the Subject
>   archives at http://www.lazarus.freepascal.org/mailarchives
>



-- 
Carlos Germán Tejero


Re: [lazarus] Code Completion don't understand new generic sintax

2007-08-16 Thread Mattias Gaertner
On Wed, 15 Aug 2007 18:05:18 -0300
"Carlos German Tejero" <[EMAIL PROTECTED]> wrote:

> Hi to Lazarus Team (sorry for my poor english):
> 
> I probe the new FPC generic support, and work fine, but the Lazarus
> Code Completion don't understand new generic sintax. For example in
> the next code:
> 
> 
> program test;
> 
> {$apptype console}
> {$mode objfpc}{$H+}
> 
> uses
>   SysUtils, Classes;
> 
> type
>   generic TTest = class(TObject)
> function sum(a,b:TDato):TDato;
>   end;
> 
>   TIntTest = specialize TTest;
> 
>   TStrTest = specialize TTest;
> 
>   function TTest.sum(a,b:TDato):TDato;
>   begin
> Result := a + b;
>   end;
> 
> var
>   it:TIntTest;
>   st:TStrTest;
>   i:integer;
>   s:string;
> 
> begin
>   it := TIntTest.Create;
>   i := it.sum(1,2);
>   it.Free;
>   WriteLn(i);
> 
> end.
> 
> when i write "it := TIntTest." and press CRTL+SPACE, i got the next
> error in the messages window:
> 
>   "test.lpr(10,11) Error: = expected, but TTest found"
> 
> i'm using Lazarus 0.9.23 Beta SVN:11793 x86_64-win64-win32/win64
> on WindowsXP 64.

I implemented some basic things, like parsing and simple find
declaration for generics. Please update svn and test.


Mattias

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


Re: [lazarus] Systems 2007

2007-08-16 Thread Mattias Gaertner
On Thu, 16 Aug 2007 11:58:13 +0200
Sebastian Günther <[EMAIL PROTECTED]> wrote:

> David Lyon schrieb:
> > 
> >> Oh, and maybe the address of the Greek restaurant we were in 2005 
> >> (Mattias
> >> maybe remembers it :-)
> >>   
> > I could only find this:
> > 
> > http://www.xs4all.nl/~patto1ro/munipubs.htm
> 
> 
> There are so many pubs, bars, restaurants etc. in Munich...
> 
> Marco: In about which area was the Greek restaurant? Near the youth 
> hostel, i.e. near Rotkreuzplatz / in Neuhausen?

Yes. AFAIR it was west of the youth hostel.


Mattias

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


Re: [lazarus] FPC dynamic Library issues

2007-08-16 Thread Micha Nelissen
Sebastian Günther wrote:
> backwards compatible to 2.0, but introduces new functions. How should an
> application distuingish between a "real" 2.0 DLL and a 2.1 DLL, when
> both have the same filename?

For the minor version number, a function will have to be made that
queries the resource information, which would have a platform dependent
implementation.

Micha

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


Re: [lazarus] FPC dynamic Library issues

2007-08-16 Thread Sebastian Günther

Micha Nelissen schrieb:


I think on windows, it's not "forbidden" to put the version number in
the number, e.g. msvc, and delphi vcl do it. So having the major version
in the name seems most logical.


Yes. But what about having e.g. version 2.0 and 2.1, where 2.1 is 
backwards compatible to 2.0, but introduces new functions. How should an 
application distuingish between a "real" 2.0 DLL and a 2.1 DLL, when 
both have the same filename?
On Linux this is typically solved by having the minor version number in 
the filename as well, and creating symlinks for only the major number. 
(at least roughly speaking, the cases with -0, -1 etc. as suffix are a 
different matter...)



- Sebastian

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


Re: [lazarus] FPC dynamic Library issues

2007-08-16 Thread Micha Nelissen
David Lyon wrote:
> Under windows, version #s of dll's are usually kept in the dll header.
> Under unix, it is embedded in the filename.
> 
> Not sure how to reconcile the two
> 
> but...

I think on windows, it's not "forbidden" to put the version number in
the number, e.g. msvc, and delphi vcl do it. So having the major version
in the name seems most logical.

Micha

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


RE: [lazarus] DELPHI 1 TO LAZARUS

2007-08-16 Thread Hess, Philip J
Have you used Delphi 1 to save your .dfm file as a text file? I believe
it was stored in a binary format by default.

 

Thanks.

 

-Phil

 



From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Thursday, August 16, 2007 10:16 AM
To: lazarus@miraclec.com
Subject: [lazarus] DELPHI 1 TO LAZARUS

 


Please - I need help! 

I am trying to convert Delphi 1 programs to Lazarus, but I just can't
get it right!  It's as simple as the following: 

I have a program, and a unit - the unit alos has a form.  No matter how
I use the conversion tools - I never get my Form back! 
What am I doing wrong and how can I fix it? 

Herman Ohlhoff



[lazarus] DELPHI 1 TO LAZARUS

2007-08-16 Thread HOhlhoff
Please - I need help!

I am trying to convert Delphi 1 programs to Lazarus, but I just can't get 
it right!  It's as simple as the following:

I have a program, and a unit - the unit alos has a form.  No matter how I 
use the conversion tools - I never get my Form back!
What am I doing wrong and how can I fix it?

Herman Ohlhoff

[lazarus] FPC dynamic Library issues

2007-08-16 Thread David Lyon

Mattias Gaertner wrote:

http://wiki.lazarus.freepascal.org/Lazarus/FPC_Libraries

When the ToDos are solved the IDE can be extended.

  

"ToDo: proposal how the IDE should create version numbers"

I'm just giving my comments here... maybe my knowledge on these subjects 
is old... if it is... then I accept that


I can see what the documentation is getting at

- be able to keep version #s
- be able to generate them in the IDE
- be able to read them at runtime (to check version #)
- make something that is reasonably cross platform

Under windows, version #s of dll's are usually kept in the dll header. 
Under unix, it is embedded in the filename.


Not sure how to reconcile the two

but...

if we are building a library (class) it might be possible to 
autogenerate a property within the class for the version... and have 
this carried down


class mypdfwriter : TObject
private
fversion : float = 1.1;
published
property version : float read fversion;
end;

that probably would only work if there was one class per source file.

but the idea would be to carry the version property into the dll header 
or .so filename.


maybe another option could be to change the "interface" keyword.

eg..

interface version 1.8 {defining our module to be version 1.8}

uses Sockets > 1.4, OpenGL 2.3 {needs Sockets > 1.4, OpenGL must be 2.3}

etc..

that would be a very simple to use extension. for the programmer

also easy for the IDE to read and modify

not sure how difficult to do at the backend. compiler etc

Regards

David



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


Re: [lazarus] compiler options in package is not saved

2007-08-16 Thread Vincent Snijders

skywriter schreef:

Time for an update.

Vincent


There are only 0.9.22 version in Download section of main page. Is svn 
is the only way for update?


See "Daily snapshots" and "Getting the source" on the main site.

SVN is the only way to get an incremental update.

Vincent

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


Re: [lazarus] compiler options in package is not saved

2007-08-16 Thread skywriter

Time for an update.

Vincent


There are only 0.9.22 version in Download section of main page. Is svn 
is the only way for update?

If yes, how can i download files compressed?

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


Re: [lazarus] compiler options in package is not saved

2007-08-16 Thread skywriter

What is difference in assignment  between mailing list and bug tracker?

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


Re: [lazarus] TClipboard.AssignToGraphic copies empty stream

2007-08-16 Thread Vincent Snijders

skywriter schreef:

Vincent, did you receive my example of code?



No.

Vincent

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


[lazarus] TBitmap.SetHandles stops executuoin

2007-08-16 Thread skywriter
I decided to extend class TLazIntfImage to make it possible to export 
picture to TBitmap for displaying on screen:


 TLazIntfImageExtended = class(TLazIntfImage)
 private
   itsThreshold : TFPColor;
   itsGrayScale : Boolean;
 public
   constructor Create( _Width, _Height : Longword );
   constructor CreateFromBitmap( _BMP : TBitmap );
   procedure TurnToGrayScale;
   procedure ThresholdFilter;
   function  GetBitmap : TBitmap;
   property  GrayScale : Boolean read itsGrayScale write itsGrayScale;
 end;

function  TLazIntfImageExtended.GetBitmap : TBitmap;
var
 OutBMP: TBitmap;
 ImgHandle,
 ImgMaskHandle : HBitmap;
begin
 OutBMP := TBitmap.Create;
 Self.CreateBitmap( ImgHandle, ImgMaskHandle, false );
 OutBMP.SetHandles( ImgHandle, ImgMaskHandle );
 Result := OutBMP;
end;

But  on "OutBMP.SetHandles( ImgHandle, ImgMaskHandle );" execution 
stops.
Also i tried to assign property OutBMP.Handle := ImgHandle. Result is 
the same.

I don't understand why FadeIn example works, but this method - not?

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


Re: [lazarus] TClipboard.AssignToGraphic copies empty stream

2007-08-16 Thread skywriter

Vincent, did you receive my example of code?

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


Re: [lazarus] Systems 2007

2007-08-16 Thread Sebastian Günther

David Lyon schrieb:

Sebastian Günther wrote:

There are so many pubs, bars, restaurants etc. in Munich...


Exactly. that's the problem...

If we can give an address to feed to the GPS...

then it makes life a lot easier...

especially for out-of-towners..

:-)

If we can finalise on a venue and a time by the end of August, I think 
that would be good...


Ehm I'm living in Munich and I can try to arrange whatever we need.

(I just didn't find the time to read all related mails and to answer; 
after a recent HDD crash the situation with mail configuration is a 
little bit messy ;) )



Regards,
Sebastian

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


Re: [lazarus] Systems 2007

2007-08-16 Thread David Lyon

Sebastian Günther wrote:

There are so many pubs, bars, restaurants etc. in Munich...


Exactly. that's the problem...

If we can give an address to feed to the GPS...

then it makes life a lot easier...

especially for out-of-towners..

:-)

If we can finalise on a venue and a time by the end of August, I think 
that would be good...












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


Re: [lazarus] Systems 2007

2007-08-16 Thread Sebastian Günther

David Lyon schrieb:


Oh, and maybe the address of the Greek restaurant we were in 2005 
(Mattias

maybe remembers it :-)
  

I could only find this:

http://www.xs4all.nl/~patto1ro/munipubs.htm



There are so many pubs, bars, restaurants etc. in Munich...

Marco: In about which area was the Greek restaurant? Near the youth 
hostel, i.e. near Rotkreuzplatz / in Neuhausen?



- Sebastian

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


Re: [lazarus] compiler options in package is not saved

2007-08-16 Thread Graeme Geldenhuys
On 16/08/07, Vincent Snijders <[EMAIL PROTECTED]> wrote:
>
> Instead of writing to the mailing list, you can also search the bug tracker:
> http://www.freepascal.org/mantis/view.php?id=8060

Oops, sorry.

>
> Time for an update.
>

Will do!


G.

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


Re: [lazarus] compiler options in package is not saved

2007-08-16 Thread Vincent Snijders

Graeme Geldenhuys schreef:

Hi,

Can anybody else reproduce or confirm this before I submit a bug
report?  I open a package, click "Compiler Options". Change the
'Include Path' and click OK.  The package dialog's Save button does
NOT get enabled.


Instead of writing to the mailing list, you can also search the bug tracker:
http://www.freepascal.org/mantis/view.php?id=8060


I'm using Lazarus v0.0.23 (r11565) under Linux compiled with the GTK1
widget set.



Time for an update.

Vincent

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


Re: compiler options in package is not saved

2007-08-16 Thread Graeme Geldenhuys
On 16/08/07, Graeme Geldenhuys <[EMAIL PROTECTED]> wrote:
> I'm using Lazarus v0.0.23 (r11565) under Linux compiled with the GTK1
> widget set.

Sorry, a typo.  Make than Lazarus v0.9.23

Graeme.

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


[lazarus] compiler options in package is not saved

2007-08-16 Thread Graeme Geldenhuys
Hi,

Can anybody else reproduce or confirm this before I submit a bug
report?  I open a package, click "Compiler Options". Change the
'Include Path' and click OK.  The package dialog's Save button does
NOT get enabled.

Thinking that maybe it saves automatically.  I close the package and
quit Lazarus. Sometimes I get a confirmation message to save the
project. I always click Yes. Then start Lazarus again and open that
same package as before.  The Include Path changes where not saved.

I'm using Lazarus v0.0.23 (r11565) under Linux compiled with the GTK1
widget set.

Regards,
  - Graeme -

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


[lazarus] fppkg package management

2007-08-16 Thread David Lyon

Michael Van Canneyt wrote:

None of the languages you mention have XML/RPC/Webservices "inbuilt".
  

Python promotes itself as "batteries-included"...

They do provide libraries for these techniques. It would be good to 
point this out if people comment on features of a 'language'.
  

yes, it is more of a promotion thing

Most people seem to confuse the language with the libraries that provide
functionality.
With WST, FPC/lazarus now offers libraries for all areas of modern development.

  

yes, and marketing/promotional people are sloppy with their terms

you are technically correct :-) of course..

The other big issue, something that delphi suffers from bigtime, is
package-management.

Having worked with Perl, they really do a wonderful job of package management.

That is, if you want say, a ups library, type in "ppm search ups". It gives
you a list of modules. To install one, you say "install 2" (install the second
module on the list). Bingo, it now works



This is exactly what fppkg (see the packaging thread in fpc-devel) is meant to 
do.

It is in it's early stages, but all building blocks are there to make
something equal to or better than CPAN.
  
Oh well, if that is the case, then I think it needs to be promoted 
because it has the potential to really propel lazarus over 'commercial' 
pascal tools :-)



Any help with it's development is appreciated.
  
I need to be careful not to overcommit my limited time. But I think that 
if we have our foundation, we can commission contractors to get some of 
these improvements done.


All this is good news then

Regards

David






Re: [lazarus] "Web Service Toolkit” release 0.5

2007-08-16 Thread Michael Van Canneyt


On Thu, 16 Aug 2007, David Lyon wrote:

> Michael Van Canneyt wrote:
> > As far as I'm concerned, this is an absolute must for inclusion in Lazarus
> > by default. It would ensure that lazarus covers all areas of modern
> > development. (if such a thing exists...)
> >   
> When I made my "modern" comment, I actually meant it with students in mind.
> Who sometimes hear that pascal is an "old" language.
> 
> So saying "modern" implies that it is like Python or C# or Java etc..
> 
> Having XML/RPC/Webservices inbuilt would be a good step.

None of the languages you mention have XML/RPC/Webservices "inbuilt".
They do provide libraries for these techniques. It would be good to 
point this out if people comment on features of a 'language'.

Most people seem to confuse the language with the libraries that provide
functionality.

With WST, FPC/lazarus now offers libraries for all areas of modern development.

> 
> The other big issue, something that delphi suffers from bigtime, is
> package-management.
> 
> Having worked with Perl, they really do a wonderful job of package management.
> 
> That is, if you want say, a ups library, type in "ppm search ups". It gives
> you a list of modules. To install one, you say "install 2" (install the second
> module on the list). Bingo, it now works

This is exactly what fppkg (see the packaging thread in fpc-devel) is meant to 
do.

It is in it's early stages, but all building blocks are there to make
something equal to or better than CPAN.

Any help with it's development is appreciated.

Michael.

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


Re: [lazarus] "Web Service Toolkit” release 0.5

2007-08-16 Thread Mattias Gaertner
On Thu, 16 Aug 2007 09:46:46 +1000
David Lyon <[EMAIL PROTECTED]> wrote:

> Hi Darius,
> 
> Darius Blaszijk wrote:
>[...]
> > 2) Lazarus only supports static packages. So installing a package 
> > would always require to recompile Lazarus. I have no idea what the 
> > progress on this topic is. Perhaps the wiki has something on it, or 
> > someone from core can comment.

See
http://wiki.lazarus.freepascal.org/Lazarus/FPC_Libraries

When the ToDos are solved the IDE can be extended.

Mattias

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