Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.19.31.73] |
|
Сообщ.
#1
,
|
|
|
Вопрос касается именно Lazarus'а, т.к. в Delphi такого глюка нет.
Image привязан якорями (Anchors) к форме. Однако, если поменять размер формы, то размер канваса не меняется (в Delphi тоже). Изменить размер канваса можно, например, так (из OnResize формы): Image1.Picture.Bitmap.Width := Image1.Width; Image1.Picture.Bitmap.Height := Image1.Height; Но тут есть нюанс: при увеличении размера окна появляются чёрные куски в той области, где происходит увеличение. Как сделать, чтобы такого не было? Скажем, вот такой код: procedure TForm1.FormResize(Sender: TObject); begin with Image1.Canvas, Image1 do begin Picture.Bitmap.SetSize(Width, Height); Brush.Color := clYellow; FillRect(ClipRect); end; end; |
Сообщ.
#2
,
|
|
|