Последние записи
- Запретить ввод пробелов в ячейки Excel
- Что в календаре Excel возвращает дату?
- Склеивание скриншотов с перехлестом
- Как закрыть папку в Excel средствами VBA без имитации нажатия клавиш?
- Медианный фильтр прорисовки изображений через pixels Delphi
- Объединение dict`s как произвести объединение словарей?
- Как сделать буквы на картинке жирными
- А кому нужен был расширенный функционал BB CODE для подсветки синтаксиса ? Кто эти люди и где они сейчас?
- Обмен данными с USB устройством, как лучше реализовать
- Метод дихотомического деления — самый простой метод нахождения корней в C++
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.
Похожие статьи
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)
Warning: require_once(/home/program/programmersclub.ru/docs/60c3403e55019aa8da82c567fcf8afa0/sape.php): failed to open stream: No such file or directory in /home/program/programmersclub.ru/docs/wp-content/themes/xtreme/sidebar.php on line 108
Fatal error: require_once(): Failed opening required '/home/program/programmersclub.ru/docs/60c3403e55019aa8da82c567fcf8afa0/sape.php' (include_path='.:/home/program/programmersclub.ru/php') in /home/program/programmersclub.ru/docs/wp-content/themes/xtreme/sidebar.php on line 108