графика

[balambay]

скажите почему не работает вот такой код пишет [Warning] Unit1.pas(26): Variable 'image1' might not have been initialized


вот сам код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
    var image1:timage;
      begin
Image1.Canvas.Rectangle(10,20,60,40);

end.

[Stilet]

почему не работает

Потому что Image - компонент, и его нужно кинуть на форму с палитры компонентов (допустим ты это сделал), а не просто прописать в коде. А уже потом в событии формы наиболее подходящем писать его рисование:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }


procedure TForm1.FormShow(Sender: TObject);
begin
  Image1.Canvas.Rectangle(10,20,60,40);
end;

end.