Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > [pascal] рисование - графика

Автор: Pichinja 10.3.2013, 18:22

Как могут pascal нарисовать животного? (кота, собаки, зайца, лягушки) Может быть для какого сохранился в компьютере чьего-то животного paschal graph код?

Автор: Alexeis 10.3.2013, 18:34

Google translate ?
It would be better if you say in English

Автор: Pichinja 10.3.2013, 18:43

Цитата(Alexeis @ 10.3.2013, 18:34)

Google translate ?
It would be better if you say in English

Po angliski tozhe trudno. Ja prosto iz Latvii. nu ladna
I need to program in pascal- animal.

Автор: Alexeis 10.3.2013, 19:19

Ага, значит с русским все таки лучше чем с английским.
Вот код для загрузки файла jpg (картинка животного) в компонент TImage

Код


type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Jpeg;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute
  then
    Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;

Автор: Bitter 11.3.2013, 10:52

Alexeis, думаю речь о том, как нарисовать животного, а не загрузить )

Автор: Alexeis 11.3.2013, 13:15

Откуда железке знать как выглядит животное? Тут либо растровый, либо векторный образ загрузить.