Как работать с TCanvas - на PaintBox1 программа должна рисовать полигон

[Михаил Юрьевич]

Обьясните пожалуйста как работать с функцией TCanvas.Если можно то попадробней,
куда чего написать.

[_Dmitry]

TCanvas - это не функция, это класс, представляющий собой "холст для рисования". Его имеют практически все визуальные компоненты Delphi. Он влючает в себя функции для вычерчивания линий, эллипсов, прямоугольников и т.п., а так же инкапсулирует другие классы для штриховки замкнутых фигур, назначения типа линий, шрифтов и т.д.
http://www.programmersforum.ru/showp...34&postcount=4
Внизу каждой страницы форума, есть ссылка на сайт Клуба программистов Delphi, там специально для вас выложены книги. Например, в книге Фленова в 12 главе все подробно расписано.

[Almaas]

Вопрос такой:
Есть Form1, на ней панель с закладками, на второй закладке есть группа на которой я разместил PaintBox1... Как сделать так, чтобы именно на на этом PaintBox1 программа рисовала нужный мне полигон?
Если можно, то поподробнее.
Спасибо.

[_Dmitry]

var
  P: array[1..5] of TPoint; //массив точек
begin
  //координаты точек
  P[1].X:=10; P[1].Y:=10;
  P[2].X:=50; P[2].Y:=10;
  P[3].X:=100; P[3].Y:=50;
  P[4].X:=100; P[4].Y:=100;
  P[5].X:=50; P[5].Y:=100;
  //рисуем полигон
  PaintBox1.Canvas.Polygon(P);

[Jeni]

Только стоит учесть, что PaintBox, в отличие от Image, не хранит изображение и его придется перерисовывать каждый раз при обновлении окна. Так что код лучше вставить в событие OnPaint формы или обновлять по таймеру (в зависимости от задачи).

[Almaas]

Ага, спасибо. Я уже заменил PaintBox1 на Image1.
Теперь возник следующий вопрос - как сделать фон Image1 таким же, как фон остальных окон?

[_Dmitry]

Сделайте фон прозрачным

Image1.Transparent:=true;

или залейте его нужным цветом

Image1.Canvas.Brush.Color:=clBtnFace; //цвет заливки
Image1.Canvas.Brush.Style:=bsSolid; //стиль заливки - сплошная
Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));

[Almaas]

Еще вопрос. На данный момент программа вычерчивает заданное сечение, ставит размерные линии с засечками и выводит подписи к размерам. Можно ли сделать так, чтобы текст писалася под углом 90 градусов? Да, и еще, можно ли сделать, чтобы текст позиционировался по центру к указанной координате?

[_Dmitry]

Со вторым вопросом все просто - сдвигайте текст на половину строки влево

var
  X,Y: integer;
  S: string;
begin
  S:='aaaaaaaaaaaaaaaaaaaaaaaaaaa';
  X:=100; Y:=100; //координаты центра строки
  with Image1.Canvas do
    TextOut(X-round(TextWidth(S)/2),Y,S);

Лучше это оформить ввиде процедуры

[_Dmitry]

Текст под углом

var
  LF: TLogFont;
  FNew,FOld: HFont;
begin
  //Сохраняем хендл шрифта канвы
  FOld:=Image1.Canvas.Font.Handle;
  //обнуляем поля структуры параметров нового шрифта
  FillChar(LF,SizeOf(LF),0);
  //назначаем параметры нового шрифта
  LF.lfHeight:=40; //размер
  LF.lfWeight:=fw_Normal;
  LF.lfEscapement:=900; //угол поворота в десятых долях градуса
  StrPCopy(LF.lfFaceName,'Times New Roman');
  //создаем шрифт на основе заданных параметров
  FNew:=CreateFontIndirect(LF);
  //назначаем его для канвы
  Image1.Canvas.Font.Handle:=FNew;
  //выводим текст
  Image1.Canvas.TextOut(20,200,'aaaaaaaaaa');
  //убиваем шрифт, если больше не нужен
  DeleteObject(FNew);
  //назначаем первоначальный шрифт для канвы
  Image1.Canvas.Font.Handle:=FOld;