Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
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.
