Beste mensen,
Ik heb als test eens Free Pascal (met alles er op en er aan) plus Lazarus geïnstalleerd om te testen. Ik heb op mijn Windows laptop de volledige Turbo Delphi staan, die werkt perfect, maar eenzelfde testprojectje via Free Pascal en Lazarus werkt maar gedeeltelijk, zeer raar hoor.
De Afsluiten code werkt perfect, maar de Kleurknop doet het niet, ook de OnCreate code (om het formulier bij creatie op clOlive te zetten) doet het langs geen kanten. Ik denk toch dat Free Pascal pakweg dezelfde code syntax gebruikt als Delphi (Object Pascal). Zie onderstaande code en schermafdruk:
[unit UKleur;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons;
type
{ TfrmKleur }
TfrmKleur = class(TForm)
btnKleur: TButton;
btnClose: TButton;
procedure FormCreate(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure btnKleurClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
frmKleur: TfrmKleur;
implementation
{ TfrmKleur }
procedure TfrmKleur.btnKleurClick(Sender: TObject);
begin
frmKleur.Color := clPurple;
end;
procedure TfrmKleur.btnCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmKleur.FormCreate(Sender: TObject);
begin
frmKleur.Color := clOlive;
end;
initialization
{$I ukleur.lrs}
end./code]
Iemand met ideeën?