Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Nikfel © (2007-06-28 17:37:00)
Почему при рисовании происходит искажение. Проверьте вот этот код. Искажение не происходит если вместо 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-29 12:54:00) [1]

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

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

SPeller_work (2007-06-29 10:26:00) [2]
Наверное просто надо рисовать в DC, который передан параметром.

Nikfel (2007-06-28 20:39:00) [3]
Рисуется нормально, но задний план становится белым и в углу черным (только в тех местах где ничего не рисовал). Наверно надо полностью закрашивать объект. Такое искажение наблюдается только при использовании Label1Paint, а при нажатии кнопки закрашивает нормально.

mdw (2007-06-28 20:15:00) [4]
Попробовал. Все нормально рисуется. В чем проявляются искажения? Кстати, для рисования обычно используется PaintBox.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »