Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.02.03;
Скачать: CL | DM;

Вниз

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

 
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, который передан параметром.


 
mdw ©   (2007-06-29 12:54) [4]


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

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



Страницы: 1 вся ветка

Текущий архив: 2008.02.03;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.051 c
2-1199716819
TDBGrid
2008-01-07 17:40
2008.02.03
Снятие выделения строк TDBGrid


6-1179549625
Lora
2007-05-19 08:40
2008.02.03
уползание/вылетание картинок


15-1198561231
mrFreeman2007
2007-12-25 08:40
2008.02.03
Как устанавливать компоненты?


15-1198911358
VAD*Anti Gopn!k
2007-12-29 09:55
2008.02.03
Электрогитара и компьютер.


15-1198637568
Slider007
2007-12-26 05:52
2008.02.03
С днем рождения ! 26 декабря 2007 среда





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский