Hi Lazarus List and Alvaro,

I am trying to write a short test project for buttonlist.pas which is a modified version of Ido's untbuttonlist.pas ... but with some extra procedures and functions. The problem I am now having is that there is no sample project showing how to write a ButtonClick Handler. Lazarus complains that it is not a function, although it is declared as a procedure.

from buttonlist.pas, type declaration:
  TButtonClick = procedure (Index : Word) of object;
//line 33
procedure TForm1.MyButtonsClickHandler(index: word);
testunit1.pas(33,39) Error: overloaded identifier
"MyButtonsClickHandler" isn't a function
testunit1.pas(33,18) Error: function header doesn't match any method of
this class "TForm1.MyButtonsClickHandler$33(Word);"
//line 58
  MyButtons.SetLayoutDirection := ldHorizontal;

testunit1.pas(58,13) Error: identifier idents no member "SetLayoutDirection"
testunit1.pas(74) Fatal: There were 3 errors compiling module, stopping

unit testunit1;
{$mode objfpc}{$H+}
interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

  StdCtrls, ButtonList;

type
  { TForm1 }
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    MyButtons: TButtonList;
{ from buttonlist.pas
type
  TLayoutDirection = (ldHorizontal, ldVertical);
[...]
  TButtonClick = procedure (Index : Word) of object;
}
    MyButtonsClickHandler: TButtonClick;
    constructor Create(aOwner: TComponent); override;
  end;
var
  Form1: TForm1;
implementation

{ TForm1 }

procedure TForm1.MyButtonsClickHandler(index: word);
begin
  showmessage( 'You clicked button number ' + inttostr(index) );
end;
constructor TForm1.Create(aOwner: TComponent);
begin
  inherited;
  MyButtons.OnButtonClick := MyButtonsClickHandler;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
  b: integer;
const
  max_level = 8;
  max_byte = 255;
  demo = false;
  X_str = 'X';
  O_str = 'O';
  empty_cell = '';
begin
//  MyButtons := TButtonList.Create(self);
  MyButtons.SetLayoutDirection := ldHorizontal;
  MyButtons.Count := max_level;
  MyButtons.parent := self;
  MyButtons.visible := True;
  for b := 1 to max_level do
  begin
    MyButtons.SetSpecificCaption( b, X_str + inttostr(b) );
  end;
end;
initialization
  {$I testunit1.lrs}
end.

Please see fixes inline.

http://ik.homelinux.org/

2010/9/1 Peter E Williams

MyButtons.LayoutDirection := ldHorizontal;

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20100901/2cfdc1d4/attachment.html>

Hi Ido,

ik wrote

Please see fixes inline. http://ik.homelinux.org/

I went to the above URL and I cannot find any "fixes inline". Please provide an exact URL for the new version.

I have a few bug fixes for it to send to you.

Best Regards,
PEW
Hobart, Tasmania, Australia

[...]

He made the changes in the quoted email, just compare them (gmail highlights the changes for me, which is quite useful).

Henry

Hi Ido, Henry and all,

I missed those changes, but I have already worked them out for myself :-)))

ps - I don't use gmail so I don't get the changes highlighted.

Henry

Best Regards,
PEW

I've highlighted them in Blue (in HTML version), but I do not know how it looks like in text based email.

Ido

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20100901/ca2619df/attachment.html>

the fixes are not at a URL... the fixes are inline in the quoted code in the reply ;)

ik wrote

I've highlighted them in Blue (in HTML version), but I do not know how it looks like in text based email.

like regular quoted text in TB3... at least they have the leading '>' quote symbol... but i think there's a blank line around them, too...