ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кто встречался с таким?
5 сообщений из 5, страница 1 из 1
Кто встречался с таким?
    #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:12
| Ответить | Цитировать | Написать  
Кто встречался с таким?
    #32279969
Gold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gold
Участник
Во-первых Stretch=true
Во-вторых Image1.Width := ClientWidth; или Align=alClient
...
Рейтинг: 0 / 0
30.09.2003, 18:30
| Ответить | Цитировать | Написать  
Кто встречался с таким?
    #32279987
Фотография GroZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GroZ
Участник
Stretch=true просто растягивает рисунок - следовательно уродует. можеш попробывать.
Мне же нужно выводить на него графические примитивы и текст.
...
Рейтинг: 0 / 0
30.09.2003, 18:45
| Ответить | Цитировать | Написать  
Кто встречался с таким?
    #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, 18:57
| Ответить | Цитировать | Написать  
Кто встречался с таким?
    #32280006
Gold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gold
Участник
Шо-то я не понял, что тебе надо... Image для того и сделан, чтоб руками не перерисовывать. Если перерисовываешь руками - нафиг он тогда вобще нужен? Рисуй прямо на форме.
...
Рейтинг: 0 / 0
30.09.2003, 19:00
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кто встречался с таким?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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