Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.11.2009, 17:25   #1
Denis L.
 
Регистрация: 03.11.2009
Сообщений: 4
По умолчанию Нужна литература по Delphi 8

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

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

Последний раз редактировалось Denis L.; 03.11.2009 в 18:00.
Denis L. вне форума Ответить с цитированием
Старый 03.11.2009, 19:05   #2
k1r1ch
ACM!
Форумчанин
 
Аватар для k1r1ch
 
Регистрация: 19.06.2009
Сообщений: 382
По умолчанию

Ну раз не опенГЛ, то попробуй DirectX, поищи учебник (в инете их много)
k1r1ch вне форума Ответить с цитированием
Старый 03.11.2009, 19:27   #3
Denis L.
 
Регистрация: 03.11.2009
Сообщений: 4
По умолчанию

Цитата:
Сообщение от k1r1ch Посмотреть сообщение
Ну раз не опенГЛ, то попробуй DirectX, поищи учебник (в инете их много)
у меня в задании надо начертить диск... И задать ему вращении. Мне кажется, что тут можно обойтись и без DirectX, и OpenGL, а построением с помощью графичекого инструментария. Просто я нигде не нашел объянения на примерах, как все грамотно реализовывать. Я смотрел и Парижского и Краснова, но там не то...
Denis L. вне форума Ответить с цитированием
Старый 03.11.2009, 19:38   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

изучите св-ва/методы канвы(TCanvas у формы например есть...да и вообще почти у всех компонентов графических)
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 03.11.2009, 19:54   #5
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

Цитата:
надо начертить диск... И задать ему вращении.
Что за диск? Как вращается?
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 04.11.2009, 10:56   #6
Denis L.
 
Регистрация: 03.11.2009
Сообщений: 4
По умолчанию

Цитата:
Сообщение от DomiNick Посмотреть сообщение
Что за диск? Как вращается?

Спасибо. Я хочу сам попробовать, мне это интересно... Я лучше буду спрашивать, что непонятно
Denis L. вне форума Ответить с цитированием
Старый 04.11.2009, 19:59   #7
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

Пример (на форме две кнопки и 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;
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Литература по Delphi crazy horse Общие вопросы Delphi 36 24.03.2022 14:48
Нужна литература exrolexx Свободное общение 0 13.04.2009 17:34
помогите с Ms-Dos (Нужна литература) Maxxx 83 Свободное общение 1 05.02.2009 15:44
Литература по Delphi Wetlan Свободное общение 3 16.04.2007 07:37