Толи лыжи не едут, толи я...

← →
Ghost del vonte © (2015-04-09 11:58) [0]

Привет привет!

Господа, немогу понять почему не едут лыжи?!

Для игровой программы пишутся свои компоненты, столкнулся с проблемой у кнопки... У нее есть свойства fGlyphDown и fGlyphUp (Битмап), в процедурах SetGlyphDown и SetGlyphUp стоит проверка, если у GlyphUp пусто, то GlyphDown подгоняет размер кнопки под размер картинки, также происходит и во второй процедуре... однако размеры при тесте кнопки не меняются, чтобы я там ни писал, ни Width := Value.Width, ни SetBounds(Left, Top, Value.Width, Value.Top), ничего не получается! Однако, в тестовой программе (где тестируется кнопка), при загрузке картинок, и указании размера картинок кнопке - все работает! Странно еще то, что у другого компонента, основанного тоже, как и кнопка, на TCustomControl, таких проблем нет, там загружается свое видео (свой тип), из него извлекается информация, устанавливается размер, и начинается воспроизведение. А кнопка никак не хочет менять свой размер) Помогите правильно намазать лыжи и поехать, а то уже второй день стою... Гугл со мной не разговаривает... и учит менять размеры у компонентов при проектировании программы.

← →
MBo © (2015-04-09 12:05) [1]

>однако размеры при тесте кнопки не меняются
> Однако, в тестовой программе (где тестируется кнопка)... - все работает!

Ничего не понял...

← →
Ghost del vonte © (2015-04-09 12:09) [2]

Имею ввиду, что если убрать в процессе загрузки изображений изменение размера, то сама кнопка не меняет размеры, тоесть изменение размера не получается из самого компонента...

Так и знал, это всегда так, стоит задать вопрос и ответ сразу приходит... а вчера или позавчера он прийти не мог...

Вопрос закрыт! Странно, но все начинает работать, если убрать Битмапы из property, и создать отдельную процедуру, в которой загружаются изображения и подгоняется размер!

Извиняюсь за беспокойство, пост можно удалить!

Толи лыжи не едут, толи я... Найти похожие ветки