Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как правильно рисовать на Canvas е у TImage? [D7, WinXP]


BofA ©   (2003-01-21 19:16:00) 

После работы кода:
var
R: TRect;
begin
with Canvas.Brush do
begin
Color:=clWhite;
Style:=bsSolid;
end;
R.Left:=0; R.Top:=0; R.Right:=Width-1; R.Bottom:=Height-1;
R.TopLeft.X:=0; R.TopLeft.Y:=0; R.BottomRight.X:=Width-1; R.BottomRight.Y:=Height-1;
Canvas.FillRect(R);
end;

я пытаюсь изменить размер Image: Image1.Width:=500
После этого для рисования почему-то доступна только та область, которую занимал Image до изменения размера, на остальной области ничего не рисуется (как при работе Clipping"а). Как с этим бороться?


paranoid   (2003-01-21 21:44:00) [1]


> BofA

Се правильно, TImage - галлюцинация, используй PaintBox


gsu   (2003-01-21 19:22:00) [2]

Canvas.FillRect(R);
а причем тут image ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо