Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Звук, графика и видео > Инициализация графики


Автор: NewDima 9.3.2006, 13:13
Народ, извините за глупую просьбу, объясните, поожалуйста, как инициализировать в делфе графический режим, ну совсем задолбалсяискать, везде говорят про изображения, или назовите какойнить хорошенький ресурчик в сети по графе
Я говорю про графику типа на паскале - uses graph; и т.д.
На паскале то я знаю, а как здесь...
Помогите, чем сможете smile

Автор: z-END 9.3.2006, 13:15
Canvas =)

Автор: Kesh 9.3.2006, 13:16
NewDima, читай статьи по DirectX и OpenGL...

Автор: NewDima 9.3.2006, 13:18
Читал я про DirectX на codenet, например, но там ничего непонятно!
Народ, практичечски, практически ("слова, слова, слова")

Автор: s-mike 10.3.2006, 08:24
http://delphigfx.mastak.ru/ - большое количество примеров и неплохие статьи.

Автор: NewDima 13.3.2006, 13:18
Ето конечно хорошо, но я этот сайт вдоль и поперек исползал весь. Там интересно говорится про DirectX, не затрагивая Delphi.
кто-нить, ну хотя бы набросайте мне текстик, рисующий синусоду на черном экране, тогда легче будет

Автор: Snowy 13.3.2006, 14:08
Запускаешь Delphi.
Автоматически создается новый проект.
В окне Object Incpector выбираешь закладку Events.
Ищешь в нем OnCreate. Делаешь на нем двойной клик.
Появляется такой код:
Код
procedure TForm1.FormCreate(Sender: TObject);
begin

end;

Заменяешь его на вот этот:
Код
procedure TForm1.FormCreate(Sender: TObject);
var
  img: TImage; // Image
  bmp: TBitMap; // на нем рисуем
  x, y: integer;
begin
  DoubleBuffered := true; // это неважно
  img := TImage.Create(Self); // создаем Image
  img.Parent := Self; // кладем его на форму
  img.Align := alClient; // растягиваем на всю форму
  img.Stretch := true; // включаем масштабирование при изменении размеров формы
  bmp := TBitmap.Create; // создаем картинку
  bmp.Width := img.Width;   // задаем ширину - во весь Image
  bmp.Height := img.Height; // задаем высоту - во весь Image
  with bmp.Canvas do // работаем с холстом
  begin
    Brush.Color := clBlack; // ставим цвет кисти - черный
    FillRect(Rect(0, 0, Width, Height)); // рисуем черный прямоугольник во весь холст
    Pen.Color := clLime; // устанавливаем цвет линий - зеленый
    Pen.Width := 4;      // устанавливаем толщину линий - 4
    y := bmp.Height div 2; // вычисляем y для нашей оси x. (0 - верх холста)
    PenPos := Point(0, y); // ставим начальную позицию в точку (0, 0)
    for x := 0 to Width do // цикл рисования графика
      LineTo(x, Round(sin(x / Width * pi * 4) * (Height / 3) + y));
  end;
  img.Picture.Graphic := bmp; // присваиваем нашу картинку Image'у
  bmp.Free; // Все, картинка нам больше не нужна - убиваем.
end;
Нажимаешь F9.

P.S. И купи себе книжку по Delphi.

Автор: NewDima 14.3.2006, 12:03
Книжка есть, вот графики там нет! А за пример спасибо.

Автор: svarogik 26.3.2006, 16:31
не разобрался как запускать это все, делфи запустить смог, остальное непонятно.
Кстати как там в консольном режиме писать, а то я в паскале писал, а в делфи куча всяких кнопок, глаза разбегаются и ничерта непонятно, если имеет какое нибудь значение то делфа 7-ая

Автор: Snowy 27.3.2006, 09:23
svarogik,
Цитата(Snowy)
купи себе книжку по Delphi

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)