BitBtn картинка

← →
RA (2003-09-22 13:06) [0]

Загружаю в BitBtn картинку (не через ImageList)
Все компилиться и работает
А потом удаляю эту картинку (делаю Clear и жму OK)
И тут появляется ошибка типа пустой ресурс
Вопрос: как избавиться от картинки загруженной таким образом?

← →
Gandalf © (2003-09-23 21:14) [1]

GlyphBitmap? В MCK?

← →
RA (2003-09-24 15:04) [2]

Да именно так! Никак не избавлюсь от этой ошибки!

← →
Gandalf © (2003-09-24 18:24) [3]

Не наблюдается :( Версии какие Delphi, KOLnMCK.

← →
Vladimir Kladov (2003-09-26 12:52) [4]

зачем bitbtn без картинки? если надо сменить с битмапа на imagelist, просто укажите imagelist, imageindex. И все равно узнать версии Delphi, KOL/MCK.

← →
RA (2003-10-07 14:41) [5]

Windows95
Delphi3
KOL_MCK 1.84

Картинку я вставил чтоб было красиво,
а затем решил рисовать эту картинку
вручную (картинка не слишком мудренная).
А удалять сам компонент не хочется!

← →
Vladimir Kladov (2003-10-07 16:24) [6]

я не смог повторить фокус. Положил на форму bitbtn, добавил картинку (bmp), собрал, запустил - работает. Вызвал через [...] напротив glyph редактор картинки, нажал Clear. Сохранил, откомпилировал - работает. kol/mck 1.85, D6. Возможно, D3 более привередлив. Но те, кто юзают D3, должны быть терпеливей, он все-таки не такой продвинутый :)

Хотя это наверное ошибка в MCK - с точки зрения D3. Может, там надо как-то отдельно обработать эту ситуацию. Если найдете как -напишите, поправлю.

← →
RA (2003-10-13 13:54) [7]

Использую BitBtn, т.к. в нем есть св-ва Flat, Options, а
в Button такого нет.
РЕШЕНИЕ ПРОБЛЕМЫ:
1) создаю пустой (длинна=0) файл zero.bmp
2) гружу его вместо имеющегося
3) ВСЕ!!! и glyph уже пишет (none) {когда есть картинка
он пишет (TBitmap)}.

И теперь когда glyph пуст Clear работаем нормально!!!

← →
RA {Upgrate for mckCtrls.pas} (2003-10-17 10:52) [8]

Приведенный выше способ является "внешним".
А вот "внутрений" способ.
надо поправить mckCtrls.pas так:

procedure TKOLBitBtn.SetGlyphBitmap(const Value: TBitmap); begin ... if Value <> nil then begin FGlyphBitmap.Assign( Value ); FOptions := FOptions - [bboImageList]; FImageList := nil; end else begin (*FGlyphBitmap.Width := 0; FGlyphBitmap.Height := 0;*) FGlyphBitmap.Free; FGlyphBitmap:=TBitmap.Create; end; FGlyphCount := 0; ...

BitBtn картинка Найти похожие ветки