Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кто встречался с таким? / 5 сообщений из 5, страница 1 из 1
30.09.2003, 18:12
    #32279933
GroZ
GroZ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто встречался с таким?
Вообщем, есть одна форма Form1 на ней один Image1: TImage;
у формы на OnResize:
Код: plaintext
1.
2.
3.
4.
   Image1.Width := Self.Width;
   Image1.Height := Self.Height;
   Image1.Canvas.MoveTo( 0 ,  0 );
   Image1.Canvas.LineTo(Image1.Width, Image1.Height);

сначала Image заполняет форму, но затем если её подвигать (поизменять размеры, увеличить) то Image почемуто прорисовывается только в педелах старых размеров!
Уже часа 3 над этим бьюсь, мож вы поможете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 18:30
    #32279969
Gold
Gold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто встречался с таким?
Во-первых Stretch=true
Во-вторых Image1.Width := ClientWidth; или Align=alClient
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 18:45
    #32279987
GroZ
GroZ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто встречался с таким?
Stretch=true просто растягивает рисунок - следовательно уродует. можеш попробывать.
Мне же нужно выводить на него графические примитивы и текст.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 18:57
    #32280002
GroZ
GroZ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто встречался с таким?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure TForm1.FormResize(Sender: TObject);
begin
   Image1.Width := Self.ClientWidth;
   Image1.Height := Self.ClientHeight;
   Image1.Picture.Bitmap.Width := Self.ClientWidth;
   Image1.Picture.Bitmap.Height := Self.ClientHeight;
   Image1.Canvas.MoveTo( 0 ,  0 );
   Image1.Canvas.LineTo(Image1.Width, Image1.Height);
end;

всем спасибо ..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.09.2003, 19:00
    #32280006
Gold
Gold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто встречался с таким?
Шо-то я не понял, что тебе надо... Image для того и сделан, чтоб руками не перерисовывать. Если перерисовываешь руками - нафиг он тогда вобще нужен? Рисуй прямо на форме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кто встречался с таким? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]