Как лудше рисовать на компоненте.

← →
Nikfel © (2007-06-28 17:37) [0]

Почему при рисовании происходит искажение. Проверьте вот этот код. Искажение не происходит если вместо Label1Paint использовать Label1Click. Может стоит рисовать по другому чтобы при свертывании изображение сохранялось. Заранее спасибо.
const colort:array[1..15] of tcolor=
($00FFFDF9,$00FFFCF6,$00FFFBF3,
$00FFFAF0,$00FFF9ED,$00FFF8EA,$00FFF7E7,
$00FFF6E4,$00FFF5E1,$00FFF4DE,$00FFF3DB,
$00FFF2D8,$00FFF1D5,$00FFF0D2,$00FFEFCF);

procedure TForm1.Label1Paint(Sender: PControl; DC: HDC);
var q,w:integer;
begin
w:=1;
For q:=1 to 15 do begin
label1.Canvas.pen.Color:=colort[q];
label1.Canvas.MoveTo(1,w);
label1.Canvas.LineTo(label1.Width-1,w);
w:=w+1;
label1.Canvas.MoveTo(1,w);
label1.Canvas.LineTo(label1.Width-1,w);
w:=w+1;
end;
end;

← →
mdw © (2007-06-28 20:15) [1]

Попробовал. Все нормально рисуется. В чем проявляются искажения? Кстати, для рисования обычно используется PaintBox.

P.S. *лудше - лучше

← →
Nikfel © (2007-06-28 20:39) [2]

Рисуется нормально, но задний план становится белым и в углу черным (только в тех местах где ничего не рисовал). Наверно надо полностью закрашивать объект. Такое искажение наблюдается только при использовании Label1Paint, а при нажатии кнопки закрашивает нормально.

← →
SPeller_work (2007-06-29 10:26) [3]

Наверное просто надо рисовать в DC, который передан параметром.

> Наверно надо полностью закрашивать объект.

А как вы хотели? В представленном коде отрисовывается прямоугольник
(1,1, Width-1, 15). Все остальное пространство (0-1, 15-Height и т.д), естественно, тоже нужно как то заполнять. Вызовите хотя бы FillRect перед отрисовкой.

Как лудше рисовать на компоненте. Найти похожие ветки