Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Делаю форму, компоненты которой пропорционально изменяются с изменением её размера. При этом изображение компонентах также претерпевает трансформации. В ходе экспериментов не смог побороть казус связанный со SpeedButton. Первоночально форма выглядит так:



При изменении размера формы по горизонтали на определенном размере рисунок обрубается справа, а остаток прыгает на середину кнопки.



И в таком состоянии он остаётся до тех пор пока не достигнет какой-то неопределённой мною пропорции.

ЗЫ: Для тех кто хочет повторить эксперимент: Форму изменять плавно чтобы не проскочить глючный размер.

Вопрос задал: DNK (статус: Студент) Вопрос отправлен: 12 марта 2010, 16:00 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: Егор

Здравствуйте, DNK!
Долго сидел, разбирался. В чём дело, до конца не понял. Если делать вывод непосредственно на канву какого-либо объекта, то всё отображается корректно. Возможно, глюк связан с тем, что Bitmap не отображается на экране и потому некоторые вещи с ним работают некорректно. Но точно не скажу, не знаю.
Если же нужно не разобраться "почему не работает", а найти решение, при котором оно работает, то можно все операции делать прямо на канве кнопки, не создавая новый объект в памяти:

procedure TForm1.UpdateButtonGlyph;
begin
  with SpeedButton1.Glyph do
  begin
    Width  := SpeedButton1.Width-4;
    Height := SpeedButton1.Height-4;
    TransparentColor   := clFuchsia;
    Canvas.Brush.Color := clYellow;
    Canvas.FillRect(Rect(0, 0, Width, Height));
    ImageList1.Draw(Canvas, (Width - ImageList1.Width) div 2,
                    (Height - ImageList1.Height) div 2, 0);
    Canvas.TextOut((Width - Canvas.TextWidth(str)) div 2, 0, str);
    Canvas.TextOut((Width - Canvas.TextWidth(str)) div 2,
                    Height - Canvas.TextHeight(str), str);
  end;
end;

Ответ отправил: Егор (статус: 10-ый класс) Время отправки: 15 марта 2010, 11:06 Оценка за ответ: 5 Комментарий к оценке: Работает. Спасибо.

Мини-форум вопроса

min@y™ (статус: Доктор наук), 12 марта 2010, 19:44 [#1]: Выложи ссылки на скриншоты, а то не видно. Вытаскивать их из исходников HTML влом. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Егор (статус: 10-ый класс), 12 марта 2010, 20:22 [#2]: min@y™:мне видно, не знаю, почему у тебя не так http://savepic.org/294493.jpg: http://savepic.org/272989.jpg: Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

DNK (статус: Студент), 13 марта 2010, 19:05 [#3]: 2Егор: Всё правильно только без двоеточий. http://savepic.org/294493.jpg http://savepic.org/272989.jpg "Digital Networked Knight"

Егор (статус: 10-ый класс), 13 марта 2010, 19:24 [#4]: Цитата (DNK): только без двоеточий блин! )) Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

DNK (статус: Студент), 15 марта 2010, 07:51 [#5]: Блин, люди! Ну альтернативу тогда предложите что ли! "Digital Networked Knight"

Егор (статус: 10-ый класс), 15 марта 2010, 10:39 [#6]: а зачем так сложно? SpeedButton1.SetBounds(StartRect.Left + dX div 2, StartRect.Top + dY div 2, Round((StartRect.Right - StartRect.Left) * Width / Constraints.MinWidth), Round((StartRect.Bottom - StartRect.Top) * Height / Constraints.MinHeight)); не знаем про свойства Anchors? ...ImageList1.Draw(BitMap.Canvas, (BitMap.Width - ImageList1.Width) div 2,... ImageList1 не является видимым компонентом. ширина этого компонента равна 42 независимо ни от чего. в том числе и от размера картинки Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

DNK (статус: Студент), 15 марта 2010, 12:31 [#7]: Цитата (Егор): не знаем про свойства Anchors? Тогда скажи, как с их помощью сделать так, чтоб размер компонента изменялся пропорционально дельте окна, и при этом он сдвигался ровно на столько, что бы другие компоненты на него не "наезжали". Цитата (Егор): ImageList1 не является видимым компонентом. ширина этого компонента равна 42 независимо ни от чего. в том числе и от размера картинки И чё?.. "Digital Networked Knight"

Вадим К (статус: Академик), 15 марта 2010, 12:36 [#8]: и то, что "ImageList1.Width" бессмысленная конструкция. Нельзя брать размер у компонента, у которого ее физически нет. А почему же все таки она есть? а это такой хитрый ход, что бы все таки можно было компонент разместить на форме редактора. Исключительно для упрощения. И наверно надо ещё изучить свойство Align Галочка "подтверждения прочтения" - вселенское зло.

Егор (статус: 10-ый класс), 15 марта 2010, 12:57 [#9]: Anchors: выставляем все поля в true - тогда компонент будет изменяться пропорционально размерам формы фактически, строки dX := Width - Constraints.MinWidth; dY := Height - Constraints.MinHeight; SpeedButton1.SetBounds(StartRect.Left + dX div 2, StartRect.Top + dY div 2, Round((StartRect.Right - StartRect.Left) * Width / Constraints.MinWidth), Round((StartRect.Bottom - StartRect.Top) * Height / Constraints.MinHeight)); делает как раз то, что можно было бы не делать, если установит Anchors так, как я написал Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

Вадим К (статус: Академик), 15 марта 2010, 13:04 [#10]: Anchors - это не "пропорционально". Это свойство приводит к тому, что для каждой с указанных сторон сохраняется растояние до родительского контрола. По умолчанию выставлено только для top и left и относительно верхнего левого угла растояние будет одно и тоже всегда. если ещё выставить right в true, то при изменении размеров формы будет меняться ширина. расширили форму на 20 пикселей, компонент станет на 20 шире. А высота не будет меняться (потому что не надо в этом случае). Ну и так дальше? Галочка "подтверждения прочтения" - вселенское зло.

min@y™ (статус: Доктор наук), 15 марта 2010, 13:19 [#11]: Цитата (Вадим К): и то, что "ImageList1.Width" бессмысленная конструкция. Нельзя брать размер у компонента, у которого ее физически нет. А почему же все таки она есть? а это такой хитрый ход, что бы все таки можно было компонент разместить на форме редактора. Исключительно для упрощения. Да ладно! TImageList.Width и Height - это размер картинок, которые он хранит. Имхо, в данном случае Anchors достаточно. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

DNK (статус: Студент), 15 марта 2010, 13:39 [#12]: Цитата (Вадим К): и то, что "ImageList1.Width" бессмысленная конструкция. Нельзя брать размер у компонента, у которого ее физически нет. При чём тут размер компонента? Цитата: Specifies the width of all images within the image list. Delphi syntax: property Width: Integer; C++ syntax: __property int Width = {read=FWidth, write=SetWidth, default=16}; Description Use the Width property to specify the width of images before any are added to the image list. The image list is cleared when this value changes. "Digital Networked Knight"

DNK (статус: Студент), 15 марта 2010, 13:44 [#13]: Цитата (Егор): Anchors: выставляем все поля в true - тогда компонент будет изменяться пропорционально размерам формы фактически, строки Егор! У меня для тебя упражнение: Поставь кнопки в виде таблицы 2 на 3. Выставь все поля в true и сообщи что у тебя в итоге получилось. "Digital Networked Knight"

Вадим К (статус: Академик), 15 марта 2010, 14:10 [#14]: давно я с виндой в делфи не сидел. вроде там было другое свойство для размера картинок... посмотрим, посмотрим... Галочка "подтверждения прочтения" - вселенское зло.

13 мая 2011, 09:40: Статус вопроса изменён на решённый (изменил автор вопроса — DNK)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.