Ok it's a stupid question but i ask it
I have make A project using this help
>>>
http://wiki.lazarus.freepascal.org/KOL-CE#Creating_MCK_projectI have put all my components and Now i just would like to ADD some events like Bitbtn1.onclick ;
But Via the Components property events it doesn't work
How i can do this ??
I put My KOL-CE unit1.PAS source here :
{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
{$ifdef FPC} {$mode delphi} {$endif}
unit Unit1;
interface
uses Windows, Messages, KOL {place your units here->}
{$IFDEF LAZIDE_MCK}, Forms, mirror, Classes, Controls, mckCtrls, mckObjs, Graphics;
{$ELSE} ; {$ENDIF}
type
{ TForm1 }
{$I MCKfakeClasses.inc}
{$IFDEF KOLCLASSES} TForm1 = class; PForm1 = TForm1; {$ELSE OBJECTS} PForm1 = ^TForm1; {$ENDIF CLASSES/OBJECTS}
TForm1 = {$IFDEF KOLCLASSES}class{$ELSE}object{$ENDIF}({$IFDEF LAZIDE_MCK}TForm{$ELSE}TObj{$ENDIF})
BitBtn1: TKOLBitBtn;
Form: PControl;
GradientPanel1: TKOLGradientPanel;
ImageList1: TKOLImageList;
KOLForm1: TKOLForm;
KOLProject1: TKOLProject;
Label1: TKOLLabel;
Memo1: TKOLMemo;
OpenSaveDialog1: TKOLOpenSaveDialog;
ProgressBar1: TKOLProgressBar;
Toolbar1: TKOLToolbar;
procedure GradientPanel1Click(Sender: PObj);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
{$IFDEF KOL_MCK}
procedure NewForm1( var Result: PForm1; AParent: PControl );
{$ENDIF}
implementation
{$IFDEF KOL_MCK}
{$I unit1_1.inc}
{$ENDIF}
{ TForm1 }
initialization
{$IFNDEF KOL_MCK} {$I unit1.lrs} {$ENDIF}
end.
Thanks in adavance
KOL-CE is great thanks at the autors
I precise that
I use Lazarus 0.9.25 and FPC 2.2.1 WINDOWS XP and Kol-Ce svn today
u have try too Lazarus 0.9.25 and FPC 2.2.0 windows XP and Kol-Ce svn today
I have make a try with this source code :
http://www.jvdw.nl/speedtest.zipAnd the events in this source code doesn't work for me ????