![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() На форму бросаем Image
В ObjectInspector свойство Aling ставим в alTop Рисуем линию Код:
Image1.Canvas.PenPos:=(Point(0,0)); Image1.Canvas.LineTo(Image1.Width,Image1.Height); Далее разворачиваем форму на полный экран и снова пробуем нарисовать линию. Линия прорисовывается не по всей длине Image. Если развернуть форму на полный экран перед прорисовкой первой линии, то далее все работает нормально. Как побороть это я нашел способ, а как бы сделали Вы ? В файле проект демонстрирующий вышеописанное. TImage.rar Последний раз редактировалось CodeNameHawk, 13.07.2010 в 21:34. |
#2
|
|||
|
|||
![]() Align = alClient
![]() |
#3
|
|||
|
|||
![]() Цитата:
Это ничего не меняет. Сам Image нормально растягивается по длине формы, но происходит отсечка части рисунка. Последний раз редактировалось CodeNameHawk, 13.07.2010 в 21:36. |
#4
|
||||
|
||||
![]() незабываем увеличить само изображение:
Код:
Image1.Picture.Bitmap.SetSize(ClientWidth,ClientHeight); Arrrgh |
#5
|
|||
|
|||
![]() Цитата:
Спасибо. Как раз то что искал. Я делал так В ObjectInspector для Image1 свойство Visible ставил в false, а при создании формы создавал рисунок максимального размера. Код:
Image1.Width :=Screen.Width; Image1.Canvas.Brush.Color:=Form1.Canvas.Brush.Color; Image1.Canvas.FillRect(Rect(0,0,Image1.Width ,Image1.Height)); Image1.Visible:=true; |