Witam!
To mój pierwszy post, pozdrawiam wszystkich.
Chcę utworzyć moduł wyświetlający szachownicę. Do tego chcę użyć zestawu komponentów TImage. Problem polega na tym, że kiedy tworzę zadeklarowany jako pole publiczne komponent TImage, to pomimo kompilowania kodu, po uruchomieniu na formatce nie pojawia się komponent TImage. Próbowałem umieszczać kod w OnCreate i OnShow formularza i efekt jest ten sam. W czym jest problem? P.S. To kod próbny. Docelowo, będzie to tablica z dowiązaniami do TImage, zawierających rysunki figur.
unit Unit1;
{$mode objfpc}
{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
public
Im:TImage;
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormShow(Sender: TObject);
begin
Im:=TImage.Create(Form1);
Im.Top:=1;
Im.Left:=1;
Im.Width:=300;
Im.Height:=300;
Im.Stretch:=True;
Im.Visible:=TRUE;
Im.Picture.LoadFromFile('bp.bmp');
end;
end.