Форум: "KOL";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "KOL";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.032 c
