Может кто знает как рисовать флаг Швейцарии или Дании в Delphi
Может кто знает как рисовать флаг Швейцарии или Дании в Delphi
Гость
Ответ(ы) на вопрос:
ГостьДания:) Написать в OnPaint
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
Canvas.FillRect(Rect(10, round(2 * 200 / 2) - 25, 3 * 200 + 10, round(2 * 200 / 2) + 25));
Не нашли ответ?
Похожие вопросы