Hello,
I'am starting with Lazarus and after one week project I decided to try a
bit challenging one, so I've decided to create a chess GUI. I've
created a not so smart group of TImages at design time and loaded images
corresponding white and black squares what worked accordingly, ofc,
after my short test, I've decided try to create them at runtime with the
following code:
var
Form1: TForm1;
Square_a : array [1..8] of TImage;
.
.
procedure TForm1.FormCreate(Sender: TObject);
begin
Square_a[1] := TImage.Create (Self);
Square_a[1].Enabled:=True;
Square_a[1].Visible:=True;
Square_a[1].AutoSize:=False;
Square_a[1].Left:=0;
Square_a[1].Top:=300;
Square_a[1].Height:=50;
Square_a[1].Width:=50;
Square_a[1].Name:='a1';
Square_a[1].Picture.LoadFromFile('white.jpg');
end;
For my surprise I could not manage to make white.jpg visible. Maybe is
an obviuos mistake from my side, I am checking some docs about TImage
usage, if someone already knows what is wrong with this code would save
me some time.
Thanks a lot
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
