lazarus-ccr-general — Code conversion and general Lazarus/FPC programming issues

[Lazarus-ccr-general] JvXPCheck really checking

[Matthieu G. <mat...@ya...>]

Hello !

My JVXPCheck checks.

Here it is :


procedure TJvXPCustomCheckControl.Paint;
var
   Rect: TRect;
   BoundColor: TColor;
   Trans: integer;
begin
   with Canvas do
     begin
     // clear background.
     Rect := GetClientRect;
     Brush.Color := Self.Color;
     FillRect(Rect);
     // draw designtime rect.
     if csDesigning in ComponentState then
       DrawFocusRect(Rect);

     // draw boundlines.
     if BoundLines <> [] then
       begin
       //      if Style.GetTheme = WindowsXP then
       //        BoundColor := dxColor_Btn_Enb_Border_WXP
       //      else
       BoundColor := dxColor_DotNetFrame;
       JvXPDrawBoundLines(Self.Canvas, BoundLines, BoundColor, Rect);
       end;

     // draw focusrect.
     if dsFocused in DrawState then
       begin
       Brush.Style := bsSolid;
       DrawFocusRect(Rect);
       end;

     // draw check symbol.
     DrawCheckSymbol(Rect);

     // draw caption.

     Trans := Transparent;
     SetBkMode(Handle, Trans);
     Font.Assign(Self.Font);
     if BiDiMode = bdRightToLeft then
       begin
       Dec(Rect.Right, FCheckSize + 4 + Spacing);
       JvXPPlaceText(Self, Canvas, Caption, Font, Enabled, True,
         taRightJustify, True, Rect);
       end
     else
       begin
       Inc(Rect.Left, FCheckSize + 4 + Spacing);
       JvXPPlaceText(Self, Canvas, Caption, Font, Enabled, True,
         taLeftJustify, True, Rect);
       end;
     end;
end;

procedure TJvXPCheckbox.DrawCheckSymbol(const R: TRect);
var
   ClipW: integer;
   ap_Polygon : Array [0..5] of TPoint ;
   //  Theme: TJvXPTheme;

   procedure DrawGradient(const Bitmap: TBitmap);
   begin
{    if BiDiMode = bdRightToLeft then
       BitBlt(Canvas.Handle, R.Right - 1 - FCheckSize, (ClientHeight - 
FCheckSize) div 2 + 1,
         FCheckSize - 2, FCheckSize - 2, Bitmap.Canvas.Handle, 0, 0, 
SRCCOPY)
     else}
     BitBlt(Canvas.Handle, R.Left + 3, (ClientHeight - FCheckSize) div 2 
+ 1,
       FCheckSize - 2, FCheckSize - 2, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
   end;

begin
   // get current theme.
   //  Theme := Style.GetTheme;

   with Canvas do
     begin
     // check for highlight.
     ClipW := Ord(dsHighlight in DrawState);

     // draw border.
{    if (Theme = WindowsXP) or ((Theme = OfficeXP) and (ClipW = 0)) then
       Pen.Color := dxColor_Chk_Enb_Border_WXP
     else}
     Pen.Color := dxColor_BorderLineOXP;
     if BiDiMode = bdRightToLeft then
       Rectangle(Bounds(R.Right - 2 - FCheckSize, (ClientHeight - 
FCheckSize) div
         2, FCheckSize, FCheckSize))
     else
       Rectangle(Bounds(R.Left + 2, (ClientHeight - FCheckSize) div
         2, FCheckSize, FCheckSize));

     // draw background.
{    case Theme of
       WindowsXP:
         begin
           if not ((ClipW <> 0) and (dsClicked in DrawState)) then
           begin
             if ClipW <> 0 then
               DrawGradient(FHlGradient);
             if BiDiMode = bdRightToLeft then
               BitBlt(Handle, R.Right - 1 - FCheckSize + ClipW, 
(ClientHeight - FCheckSize) div 2 + 1 +
                 ClipW, FCheckSize - 2 - ClipW * 2, FCheckSize - 2 - 
ClipW * 2,
                 FBgGradient.Canvas.Handle, 0, 0, SRCCOPY)
             else
               BitBlt(Handle, R.Left + 3 + ClipW, (ClientHeight - 
FCheckSize) div 2 + 1 +
                 ClipW, FCheckSize - 2 - ClipW * 2, FCheckSize - 2 - 
ClipW * 2,
                 FBgGradient.Canvas.Handle, 0, 0, SRCCOPY);
           end
           else
             DrawGradient(FCkGradient);
         end;
       OfficeXP:
         begin}
     if ClipW <> 0 then
       begin
       if not (dsClicked in DrawState) then
         Brush.Color := dxColor_BgOXP
       else
         Brush.Color := dxColor_BgCkOXP;
       if BiDiMode = bdRightToLeft then
         FillRect(Bounds(R.Right - 1, (ClientHeight - FCheckSize) div 2 +
           1, FCheckSize - 2, FCheckSize - 2))
       else
         FillRect(Bounds(R.Left + 3, (ClientHeight - FCheckSize) div
           2 + 1, FCheckSize - 2, FCheckSize - 2));
       end;
     //        end;
     //    end;

     // draw checked or grayed symbols:
     if FState in [cbChecked, cbGrayed] then
       begin
         if (dsClicked in DrawState) or (dsHighlight in DrawState) then
           begin
             Brush.Color := clWhite;
             Pen  .Color := clWhite;
           end
         else
         if FState = cbChecked then
           begin
             Brush.Color := clWindowText;
             Pen  .Color := clWindowText;
           end
          else
           begin
             Brush.Color := clGray;
             Pen  .Color := clGray;
           end;
         if BiDiMode = bdRightToLeft then
           Begin
             CreateCheck ( R.Right - FCheckSize + 1, (ClientHeight - 
FCheckSize) div 2 + 3, ap_Polygon );
             Polygon(ap_Polygon);
           end
         else
         Begin
           CreateCheck ( FCheckSize div 2 - 1, (ClientHeight - 
FCheckSize) div 2 + 3, ap_Polygon );
           Polygon(ap_Polygon);
         end
       end;
     end;
end;


-- 
LIBERLOG - Édition de livres de coaching et de logiciels
13 Rue François Tanguy PRIGENT A.15
35000 RENNES
Tél : 02 23 46 06 54 - Numéro vert : 06 44 733 008 - Fax : 09 72 53 47 55

http://editions.liberlog.fr
http://www.agoravox.tv/auteur/matthius
http://www.thebookedition.com/fr/12123_matthieu-giroux
http://www.ancestromania.net


-- 
LIBERLOG - Édition de livres de coaching et de logiciels
13 Rue François Tanguy PRIGENT A.15
35000 RENNES
Tél : 02 23 46 06 54 - Numéro vert : 06 44 733 008 - Fax : 09 72 53 47 55

http://editions.liberlog.fr
http://www.agoravox.tv/auteur/matthius
http://www.thebookedition.com/fr/12123_matthieu-giroux
http://www.ancestromania.net

[Lazarus-ccr-general] Illegal COFF magic while reading...

[kyan <alf...@gm...>]

Hello to all,

I am trying to port some Delphi libraries to FPC v2.7.1 for Windows
and have come across this error message when trying to compile (either
for i386-win32 or x86_64-win64) some pascal units that link to
external .obj files implementing the Miracle very large integer
library.

The only relevant entry I've managed to find in the bug tracker is
0005915 which has been closed without any comments.

I suspect this is something elementary but I cannot think of a
solution. Can anyone please help?

TIA

Constantine.

[Lazarus-ccr-general] Replacing fparchive with Abbrevia 5.0

[Craig P. <cap...@us...>]

Hi All,

Last week I released Abbrevia 5.0, which adds full support for Free
Pascal on Windows, OS X, and Linux, 32-bit and 64-bit.  "fparchive" was
an older, unofficial port that only supported Win32, and hasn't been
updated in years.  Among other things, it has several buffer overflows,
one of which has been exploited, so I'd like to encourage everyone using
it to upgrade.  To that end, what's the best way to handle that?

Should I add Abbrevia to one or both of
http://wiki.lazarus.freepascal.org/Projects_using_Lazarus
http://wiki.lazarus.freepascal.org/Components_and_Code_examples

Should I add some sort of redirect from
http://wiki.lazarus.freepascal.org/FreePascalArchivePackage
to the Abbrevia SourceForge site, or just update it with new information
and a new download link?

What's the difference between the first two wiki pages?  Also, why, on
the "Components and Code examples" page, are the projects hosted on CCR
separate from those hosted elsewhere?  Since the non-hosted projects
aren't organized into subcategories like the hosted ones are, adding
Abbrevia and removing fparchive would actually reduce its visibility,
since it wouldn't be listed under the "Archiving" heading anymore.

The existing fparchive package is available here:
https://sourceforge.net/projects/lazarus-ccr/files/Code%20and%20Component%20Packages/fparchive%203.05/
Updating the wiki might be enough;  otherwise, can it be removed or can
a readme or copy of Abbrevia be uploaded there?

Thanks,
Craig Peterson
Abbrevia Project Admin

[Lazarus-ccr-general] Error compiling older code...

[Tom L. <ne...@gm...>]

After too many years, I'm trying to rollup a lot of fixes and release a new
version of EpikTimer. In the process, I ran into a compile error with the
demo program that I don't understand. Here are the declarations in
epiktimer.pas:

type
  TickType = Int64;

  TimebaseData = record
     TicksFrequency: Ticktype;
     ...
  end;

TEpikTimer= class(TComponent)
    private
      FHWTicks:TimeBaseData;
    public
      property HWTimebase: TimeBaseData read FHWTicks write FHWTicks;

The demo defines a public TEpikTimer:ET and fails to compile with "Error:
Argument can't be assigned to" from fpc-2.4.2 on this statement:

ET.HWTimebase.TicksFrequency:=5

This reference seems to be a well defined int64 and used to compile in
older versions of FPC. Can someone tell me what has changed and the right
way to assign this value?

Thanks,

-Tom

Re: [Lazarus-ccr-general] Question

[Matthijs W. <mat...@wi...>]

Hi Lawrence,

What is the purpose of this code?
Just for clarity:
What you are doing is the following:
aspect : width / height
then when aspect < 1 you do:
h := height
w := aspect * height.
The last evaluates to: w := (width / height) * height, which is the same as width * (height / height)

The same goes for when aspect > 0.

So in the end you always end up with h equals heigth and w equals width.

In short, your code has no purpose. Or am I missing something?

Regards Matthijs.


From: Lawrence Schlachter 
Sent: Monday, October 24, 2011 6:02 PM
To: mat...@wi... 
Subject: Re: [Lazarus-ccr-general] Question


Matthijs,

My original code does not have that typo in it.  I am evaluating
the aspect for its value in reference to 1.  I still cannot 
get the code to differentiate between portrait and landscape
view.   That is my question,can any code differentiate between those
views in Lazarus?  The code works fine in Delphi.
Thanks for any comments.  

LSchlachter
LS...@at...

Re: [Lazarus-ccr-general] Question

[Matthijs W. <mat...@wi...>]

Hi,

If this code is copy pasted from your original code, then there is a type in it.
You have > 1, < 10 and = 1.
So if aspect is between 1 and 10 nothing happens. 

Regards,

Matthijs


From: Lawrence Schlachter 
Sent: Sunday, October 23, 2011 8:14 PM
To: laz...@li... 
Subject: [Lazarus-ccr-general] Question


Thanking any responders before hand.

How does one use picture aspect in changing the appearance of photos.  The following code which works in Delphi 
doesn't work in Lazarus:

Var
aspect: real;
h,w : integer;
rec: TRect;

OpenPictureDialog1.execute;
image1.picture.loadfromfile(OpenPictureDialog1.filename);
aspect := image1.width/image1.height;
if aspect < 1.0 then
begin
h := image1.height;
w:= round(aspect*h);
end
else if apsect > 10.0 then
begin
w := image1.width;
h := round(w/aspect);
end
else if aspect = 1.0 then
begin
h:= image1.height;
w := image1.width;
end;
rec := Rect(0,0,w,h);
image1.canvas.stretchdraw(rec,image1.picture,graphic);


Any comments????

Thanks
LSchlachter




--------------------------------------------------------------------------------


------------------------------------------------------------------------------
The demand for IT networking professionals continues to grow, and the
demand for specialized networking skills is growing even more rapidly.
Take a complimentary Learning@Cisco Self-Assessment and learn 
about Cisco certifications, training, and career opportunities. 
http://p.sf.net/sfu/cisco-dev2dev 


--------------------------------------------------------------------------------


_______________________________________________
Lazarus-ccr-general mailing list
Laz...@li...
https://lists.sourceforge.net/lists/listinfo/lazarus-ccr-general

Re: [Lazarus-ccr-general] Question

[Lawrence S. <LS...@at...>]

I should have used a different verb to quality my problem.
But "doesn't work",I meant that the code in Lazarus does not
resize the phots in the portrait or landscape manner.  Yes,
autosize is false and stretch is true.

Thanks
Lawrence Schlachter

Re: [Lazarus-ccr-general] Question

[Lawrence S. <LS...@at...>]

Howard,

Sorry about not being more specific in my email.  I have had fair amount of
experience with Delphi and I coded Delphi to change the picture to either
portrait or landscape.  I realize these are terms for printing but I think
the aspect of the picture determines that.   So aspect = 
image.width/image.height.
If this value < 1.0 then height > then width
whereas if the value > 1.0 then width is greater than the height
where if a = 1 then they are equal.  Aspect is a real value whereas 
picture height and picture width are integer values.  So Lazarus does 
not recognize this.
My question is how does one code that in Lazarus.  It works fine in Delphi.

Thanks again
Larry

Re: [Lazarus-ccr-general] Question

[Howard Page-C. <hd...@ta...>]

On 23/10/11 7:14, Lawrence Schlachter wrote:

> How does one use picture aspect in changing the appearance of photos.
> The following code which works in Delphi
> doesn't work in Lazarus:

"Doesn't work" is not very descriptive of your problem.
If you mean that Image1 does not resize as you expect, have you ensured 
that its AutoSize property is true?
Is your Image1 in a TScrollBox - or how do you arrange for the 
containing component to accommodate size changes?

Howard

[Lazarus-ccr-general] Question

[Lawrence S. <LS...@at...>]

Thanking any responders before hand.

How does one use picture aspect in changing the appearance of photos.  
The following code which works in Delphi
doesn't work in Lazarus:

Var
aspect: real;
h,w : integer;
rec: TRect;

OpenPictureDialog1.execute;
image1.picture.loadfromfile(OpenPictureDialog1.filename);
aspect := image1.width/image1.height;
if aspect < 1.0 then
begin
h := image1.height;
w:= round(aspect*h);
end
else if apsect > 10.0 then
begin
w := image1.width;
h := round(w/aspect);
end
else if aspect = 1.0 then
begin
h:= image1.height;
w := image1.width;
end;
rec := Rect(0,0,w,h);
image1.canvas.stretchdraw(rec,image1.picture,graphic);


Any comments????

Thanks
LSchlachter

[Lazarus-ccr-general] Get access to my pictures and more

[Alex du P. <nor...@ne...>]

Hey,

I have created a Netlog profile with my pictures, videos, blogs and events and I want to add you as a friend so you can see it. You first need to register on Netlog! When you log in, you can create your own profile.

Take a look:
http://en.netlog.com/go/mailurl/-bT0yMzg3NDExNDgzJmw9MSZnbT0xMiZ1PSUyRmdvJTJGcmVnaXN0ZXIlMkZpZCUzRC1iR0Y2WVhKMWN5MWpZM0l0WjJWdVpYSmhiRUJzYVhOMGN5NXpiM1Z5WTJWbWIzSm5aUzV1WlhRXyUyNnVpZCUzRDE3NjE0ODI0Mg__

Cheers,
Alex

----------------------------------------------------------------
Don't want to receive invitations from your friends anymore?
http://en.netlog.com/go/mailurl/-bT0yMzg3NDExNDgzJmw9MiZnbT0xMiZ1PSUyRmdvJTJGbm9tYWlscyUyRmludml0ZSUyRmVtYWlsJTNELWJHRjZZWEoxY3kxalkzSXRaMlZ1WlhKaGJFQnNhWE4wY3k1emIzVnlZMlZtYjNKblpTNXVaWFFfJTI2Y29kZSUzRDEwMzMyMDQ3

[Lazarus-ccr-general] MS SQL from Lazarus with on the fly DSN

[Giuseppe M. <giu...@ma...>]

Hi,
I am writing a little utility to dump the contents of some tables of a 
database.  I started to write a console application, the target is to 
have a single exe file.

So far, I was unable to succeed.

The two methods I have tried:

1) using TODBCConnection
Works but only if I have a predefined DSN in the OBC control panel

2) using TMSSQLConnection
Works but requires an additional DLL.

Any ideas? How to either create a DSN-less on the fly connection (AFAIK 
it was possible in Delphi) or how to embed a dll into an exe?
TIA.

Giuseppe Marullo

[Lazarus-ccr-general] MS SQL from Lazarus with on the fly DSN

[Giuseppe M. <giu...@ma...>]

Hi,
I am writing a little utility to dump the contents of some tables of a 
database.  I started to write a console application, the target is to 
have a single exe file.

So far, I was unable to succeed.

The two methods I have tried:

1) using TODBCConnection
Works but only if I have a predefined DSN in the OBC control panel

2) using TMSSQLConnection
Works but requires an additional DLL.

Any ideas? How to either create a DSN-less on the fly connection (AFAIK 
it was possible in Delphi) or how to embed a dll into an exe?
TIA.

Giuseppe Marullo

[Lazarus-ccr-general] MS SQL from Lazarus with on the fly DSN

[Giuseppe M. <giu...@ma...>]

Hi,
I am writing a little utility to dump the contents of some tables of a 
database.  I started to write a console application, the target is to 
have a single exe file.

So far, I was unable to succeed.

The two methods I have tried:

1) using TODBCConnection
Works but only if I have a predefined DSN in the OBC control panel

2) using TMSSQLConnection
Works but requires an additional DLL.

Any ideas? How to either create a DSN-less on the fly connection (AFAIK 
it was possible in Delphi) or how to embed a dll into an exe?
TIA.

Giuseppe Marullo

Re: [Lazarus-ccr-general] FileMenuHandler and bzip2lib packages available on the Lazarus-ccr

[Juha M. <juh...@ph...>]

On sunnuntai, 29. marraskuuta 2009 02:26:20 Tom Lisjac wrote:
> The Sourceforge site behaved very strangely after I uploaded the bug
> fix you requested a few days ago. I just re-posted the file and the
> direct link now returns the correct package:
> 
> http://downloads.sourceforge.net/project/lazarus-ccr/bzip2lib/bzip2lib-1.ta
> r.gz
> 
> To anyone that downloaded the original bzip2lib.tar.gz, the updated
> file above contains a typo correction on line 214 where a semicolon
> replaced a comma that caused an error when compiled on Windows.

Thanks.
I also forgot to remove the compiled Linux executable program bzip2test from 
dir Example. On a cross platform system it is not very useful to include such 
binary, but it doesn't do much harm either.

Juha

Re: [Lazarus-ccr-general] FileMenuHandler and bzip2lib packages available on the Lazarus-ccr

[Tom L. <ne...@gm...>]

Juha,

The Sourceforge site behaved very strangely after I uploaded the bug
fix you requested a few days ago. I just re-posted the file and the
direct link now returns the correct package:

http://downloads.sourceforge.net/project/lazarus-ccr/bzip2lib/bzip2lib-1.tar.gz

To anyone that downloaded the original bzip2lib.tar.gz, the updated
file above contains a typo correction on line 214 where a semicolon
replaced a comma that caused an error when compiled on Windows.

Thanks,

-Tom

On Sat, Nov 28, 2009 at 2:16 PM, Juha Manninen <juh...@ph...> wrote:
> It can't be downloaded even by selecting from :
> http://sourceforge.net/projects/lazarus-ccr/files/

Re: [Lazarus-ccr-general] FileMenuHandler and bzip2lib packages available on the Lazarus-ccr

[Tom L. <ne...@gm...>]

On Sat, Nov 28, 2009 at 2:16 PM, Juha Manninen <juh...@ph...> wrote:
> It can't be downloaded even by selecting from :
> http://sourceforge.net/projects/lazarus-ccr/files/

Re: [Lazarus-ccr-general] FileMenuHandler and bzip2lib packages available on the Lazarus-ccr

[Juha M. <juh...@ph...>]

It can't be downloaded even by selecting from :
http://sourceforge.net/projects/lazarus-ccr/files/


Juha

Re: [Lazarus-ccr-general] [Lazarus-ccr-announce] FileMenuHandler and bzip2lib packages available on the Lazarus-ccr

[Juha M. <juh...@ph...>]

On lauantai, 7. marraskuuta 2009 22:37:31 Tom Lisjac wrote:
> Juha Manninen has converted a streaming library wrapper for bzip2 and
> a FileMenuHandler component for use with Lazarus. Documentation pages
> have been added to the Lazarus wiki and the packages are now available
> for download:
> 
> http://sourceforge.net/projects/lazarus-ccr/files/FileMenuHandler/FileMenuH
> andler.tar.gz/download
>  http://sourceforge.net/projects/lazarus-ccr/files/bzip2lib/bzip2lib.tar.gz
> /download

Hi!
The last link for downloading bzip2lib does not work although it looks 
correct. What is the right address?

Regards,
Juha Manninen

Re: [Lazarus-ccr-general] Address for ported code

[Tom L. <ne...@gm...>]

Hi Juha,

Thanks for the packages. I will get them posted.

-Tom

On Wed, Nov 4, 2009 at 8:18 AM, Juha Manninen <juh...@ph...> wrote:
> Hi,
>
> today I have sent 2 code packages to address:
> vl...@us...
>
> I hope it is the right address.
>
> Regards,
> Juha Manninen
>
> ------------------------------------------------------------------------------
> Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
> trial. Simplify your report design, integration and deployment - and focus on
> what you do best, core application coding. Discover what's new with
> Crystal Reports now.  http://p.sf.net/sfu/bobj-july
> _______________________________________________
> Lazarus-ccr-general mailing list
> Laz...@li...
> https://lists.sourceforge.net/lists/listinfo/lazarus-ccr-general
>

[Lazarus-ccr-general] Address for ported code

[Juha M. <juh...@ph...>]

Hi,

today I have sent 2 code packages to address:
vl...@us...

I hope it is the right address.

Regards,
Juha Manninen

Re: [Lazarus-ccr-general] Porting someone's component

[Juha M. <juh...@ph...>]

Hi.

> I don't see any problem posting your conversion of this freeware
> package on the ccr.
> 
> It's always a nice courtesy to let an author know when his work has
> been modified or improved. I see an email address for Harry Kakoulidis
> on this actively maintained site, in case you'd like to tell him about
> the improvements you've made:
> 
> http://xarka-software.software.informer.com
> 
> Thanks for your efforts to convert this component. I'm looking forward
> to seeing it on the ccr!

Right, I used his email address from that site and reached him.
He had no objections for the port.

I can give the ported component to CCR but how to proceed in practice?
Should the component be copied to some existing package or should I make a 
package for it even if it is a small component?


Regards,
Juha Manninen

Re: [Lazarus-ccr-general] Porting someone's component

[Tom L. <ne...@gm...>]

Hi Juha,


> Yes, I forgot to mention, the component is freeware. I got it from Torry's but
> you can find it from many sites.
> This is the whole header from its single pascal source file:
>
> {
> ----------------------------------------------------------------
> TFileMenuHandler v1.0 by Harry Kakoulidis 11/1999
> kc...@ma...
> ha...@ho...
>
> Component for handling Recent files list and Open, Save,
> Save As, Exit Commands. Uses a ini file for the recent
> list. Read FileMenuHdl.txt form more information.
>
> This is Freeware. Please copy FilMen10.zip unchanged.
> If you find bugs, have options etc. Please send at my e-mail.
>
> The use of this component is at your own risk.
> I do not take any responsibility for any damages.
> ----------------------------------------------------------------
> }

I don't see any problem posting your conversion of this freeware
package on the ccr.

It's always a nice courtesy to let an author know when his work has
been modified or improved. I see an email address for Harry Kakoulidis
on this actively maintained site, in case you'd like to tell him about
the improvements you've made:

http://xarka-software.software.informer.com

Thanks for your efforts to convert this component. I'm looking forward
to seeing it on the ccr!

-Tom

Re: [Lazarus-ccr-general] Porting someone's component

[Juha M. <juh...@ph...>]

Hi,

> Proprietary code can't be uploaded to the CCR for distribution, but if
> you obtained the source from a public site like Torry's or DSP,
> there's a good possibility that it's freeware.
> 
> Is there any other documentation like a readme or file headers that
> discuss copyright or a license that the code is released under? If
> there isn't, Google returns a lot of hits for "Harry Kakoulidis",
> including some that are Delphi related. If the hotmail address has
> gone stale, perhaps there's another one out there where you could
> reach him.

Yes, I forgot to mention, the component is freeware. I got it from Torry's but 
you can find it from many sites.
This is the whole header from its single pascal source file:

{
----------------------------------------------------------------
TFileMenuHandler v1.0 by Harry Kakoulidis 11/1999
kc...@ma...
ha...@ho...

Component for handling Recent files list and Open, Save,
Save As, Exit Commands. Uses a ini file for the recent
list. Read FileMenuHdl.txt form more information.

This is Freeware. Please copy FilMen10.zip unchanged.
If you find bugs, have options etc. Please send at my e-mail.

The use of this component is at your own risk.
I do not take any responsibility for any damages.
----------------------------------------------------------------
}

The FileMenuHdl.txt file also mentions his web site 
"http://kakoulidis.homepage.com" but it does not work either.

Ok, I will try to find his new contact information.
What happens if I still don't reach him? Does it mean the component then stays 
out from CCR?

The code is simple, just one pascal file. The obvious answer the author would 
give is "yes". He didn't want money for it 10 years ago, why would he now.

The porting was trivial, too. I only had to run Tools -> Change Delphi unit to 
Lazarus unit...
and change some unit dependencies in the uses section.

The mentioned FilMen10.zip file contains also a demo program with windows 
executable and windows resource file, so its inclusion could be negotiated.


Regards,
Juha Manninen

Re: [Lazarus-ccr-general] Porting someone's component

[Tom L. <ne...@gm...>]

Hi Juha,

> I am porting TFileMenuHandler component as a "side effect" with some other
> porting.
>
> The file says:
>
> TFileMenuHandler v1.0 by Harry Kakoulidis 11/1999
> kc...@ma...
> ha...@ho...
>
> I sent mail to those 2 addresses but didn't get answer. The component is 10
> years old and it may be difficult to reach the author.
> Can a component be included in CCR without the original author's permission?

Proprietary code can't be uploaded to the CCR for distribution, but if
you obtained the source from a public site like Torry's or DSP,
there's a good possibility that it's freeware.

Is there any other documentation like a readme or file headers that
discuss copyright or a license that the code is released under? If
there isn't, Google returns a lot of hits for "Harry Kakoulidis",
including some that are Delphi related. If the hotmail address has
gone stale, perhaps there's another one out there where you could
reach him.

Thanks,

-Tom