Последние записи
- Удалить столбцы Excel макросом
- Получение имён листов из закрытых книг Excel
- Разделить файл Excel на несколько частей
- Задержка консоли перед закрытием в C++
- Перевод чисел из десятичной в римскую запись на PHP
- Как передать переменную js в этом файле в переменную php в этом же файле
- Как добавить часты на HTML-страницу
- Как можно передать значение id в модальное окно, при клике на ссылку
- Как восстановить повреждённые файлы?
- Распаковка определённых файлов/папок из 7zip (sevenzip.pas)
28th
Сен
Как нарисовать две перпендикулярных линии(уголок)?
Posted by obzor under Delphi
Подскажите пожалуйста, как сделать фигуру уголок?
Вот как на иллюстрации, только без заливке и наклонной линии.
Вот как на иллюстрации, только без заливке и наклонной линии.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Form1.Canvas do
begin
pen.color := clRed;
// pen.size:=5; // Для Delphi 7
pen.Width := 5; // // Для Delphi XE
Moveto(100, 100);
Lineto(150, 50);
Lineto(200, 100);
Lineto(100, 100);
end;
end;
end.
Похожие статьи
