Скачать: CL | DM;

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;
 ...


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c