Нужна литература по Delphi 8

[Denis L.]

Подскажите, пожалуйста, литературу с конкретными примерами по построению графических интерфейсов, а также созданию графических объектов (фигур), но не в ОпенДЖИэЛ и их движению. Буду благодарен за прямые ссылки на скачку. Может у кого есть конспекты или метод указания... Буду рад даже скану.

Ps: извиняюсь за ошибку - не в OpenGL

[k1r1ch]

Ну раз не опенГЛ, то попробуй DirectX, поищи учебник (в инете их много)

[Denis L.]

Сообщение от k1r1ch

Ну раз не опенГЛ, то попробуй DirectX, поищи учебник (в инете их много)

у меня в задании надо начертить диск... И задать ему вращении. Мне кажется, что тут можно обойтись и без DirectX, и OpenGL, а построением с помощью графичекого инструментария. Просто я нигде не нашел объянения на примерах, как все грамотно реализовывать. Я смотрел и Парижского и Краснова, но там не то...

[Пепел Феникса]

изучите св-ва/методы канвы(TCanvas у формы например есть...да и вообще почти у всех компонентов графических)

[DomiNick]

надо начертить диск... И задать ему вращении.

Что за диск? Как вращается?

[Denis L.]

Сообщение от DomiNick

Что за диск? Как вращается?

Спасибо. Я хочу сам попробовать, мне это интересно... Я лучше буду спрашивать, что непонятно

[DomiNick]

Пример (на форме две кнопки и Image):

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Image1.Canvas.Pen.Color:=clGreen; // выбираем цвет контура (зелёный)
Form1.Image1.Canvas.Pen.Width:=3; // можем сделать линии потолще
Form1.Image1.Canvas.Brush.Color:=clYellow; // выбираем цвет заливки (жёлтый)
Form1.Image1.Canvas.MoveTo(10, 10); // задаём координаты "пера"
Form1.Image1.Canvas.LineTo(40, 80); // рисуем линию в заданную точку (начало будет там где "перо"; "перо" после этого передвинется в эту заданную точку)
Form1.Image1.Canvas.Ellipse(60, 60, 100, 150); // рисуем эллипс
Form1.Image1.Canvas.Pie(100, 100, 200, 200, 100, 100, 200, 100); // рисуем сектор эллипса
Form1.Image1.Canvas.Rectangle(120, 10, 190, 80); // рисуем прямоугольник
Form1.Image1.Canvas.RoundRect(10, 200, 80, 290, 30, 30); // рисуем прямоугольник со скруглёнными углами
end;

procedure TForm1.Button2Click(Sender: TObject);
var Points: Array Of TPoint;
begin
Form1.Image1.Canvas.Pen.Color:=clRed; // выбираем цвет контура (красный)
Form1.Image1.Canvas.Brush.Color:=clBlue; // выбираем цвет заливки (синий)
SetLength(Points, 13); // минимум 4 точки; для продолжения линии можно добавлять по 3 точки
Points[0]:=Point(200, 200); // начало первой кривой
Points[1]:=Point(170, 230);
Points[2]:=Point(230, 290);
Points[3]:=Point(200, 320); // конец первой кривой (он же начало второй кривой)
Points[4]:=Point(230, 350);
Points[5]:=Point(290, 290);
Points[6]:=Point(320, 320); // конец второй кривой (он же начало третьей кривой)
Points[7]:=Point(350, 290);
Points[8]:=Point(290, 230);
Points[9]:=Point(320, 200); // конец третьей кривой (он же начало червёртой кривой)
Points[10]:=Point(290, 170);
Points[11]:=Point(230, 230);
Points[12]:=Point(200, 200); // конец четвёртой кривой
Form1.Image1.Canvas.PolyBezier(Points); // рисуем 4-ре кривые
Form1.Image1.Canvas.FloodFill(210, 210, Form1.Image1.Canvas.Pen.Color, fsBorder); // заливаем цветом заливки
end;