VPF::[pascal] рисование - графика - Форум программистов

Pichinja

Дата 10.3.2013, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.3.2013

Репутация: нет
Всего: нет

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

Alexeis

Дата 10.3.2013, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

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

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Pichinja

Дата 10.3.2013, 18:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.3.2013

Репутация: нет
Всего: нет

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Ага, значит с русским все таки лучше чем с английским.
Вот код для загрузки файла 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 (ссылка)

(нет голосов)

Загрузка ...

Опытный лентяй

Профиль
Группа: Завсегдатай
Сообщений: 1209
Регистрация: 15.8.2004
Где: Харьков, Ukraine

Репутация: 6
Всего: 27

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

Alexeis

Дата 11.3.2013, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

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

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »