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

Картинка из TImageList на кнопку TBitBtn   Найти похожие ветки 

← →
12 ©   (2010-12-17 09:56) [0]

procedure TfrmSubject.btnExpandClick(Sender: TObject);
begin
// btnCollapsExpand.Glyph := nil; //так работает, но правильно ли?
 if not Collapsed then
 begin
   if not(ilBntContainer.GetBitmap(1, btnCollapsExpand.Glyph )) then ShowMessage( "фиг" );
 end else
 begin
   if not(ilBntContainer.GetBitmap(2, btnCollapsExpand.Glyph )) then ShowMessage( "фиг" );
end;

Первый раз картинка меняется, потом уже нет. Картинок в ilBntContainer много, штук 8

---

← →
12 ©   (2010-12-17 09:57) [1]

да, и сообщений ShowMessage( "фиг" ); не выскакивает

---

← →
Anatoly Podgoretsky ©   (2010-12-17 10:06) [2]

> 12  (17.12.2010 09:56:00)  [0]

Сообщения должно быть два, разных
"фиг" и "фиг вам"
Информция в теме должна быть более полной.

---

← →
Anatoly Podgoretsky ©   (2010-12-17 10:07) [3]

В конце концов есть же отладчик, но только не пиши if и then в одной строке.

---

← →
12 ©   (2010-12-17 10:10) [4]

в отладчике, в обоих случаях, все проходит нормально
и сообщений ни одного не выдается, ни в каком случае..

пока
btnCollapsExpand.Glyph := nil;не ставлю - картинки не меняются

---

← →
sniknik ©   (2010-12-17 10:32) [5]

> пока
> btnCollapsExpand.Glyph := nil;не ставлю - картинки не меняются
а может не видишь т.к. там где нибудь транспарент и оно "накладывается" и теряется в деталях...
проверь на не перекрывающихся картинках (типа у одной нарисовано только внизу, у другой вверху, и одним цветом).

---

← →
12 ©   (2010-12-17 11:03) [6]

>  может не видишь т.к. там где нибудь транспарент и оно "накладывается"
> и теряется в деталях.

одну взял - черная загибулина посредине , другая - синий крест из угла в угол. Пока Glyph := nil; - не меняются.

---

← →
clickmaker ©   (2010-12-17 13:09) [7]

ilBntContainer.GetBitmap(1, btnCollapsExpand.Glyph );
btnCollapsExpand.Invalidate;

либо

ilBntContainer.GetBitmap(1, TempBmp );
btnCollapsExpand.Glyph := TempBmp

не поможет?

---

← →
12 ©   (2010-12-17 13:40) [8]

> btnCollapsExpand.Invalidate;

да, помогло
Спасибо!

---

← →
12 ©   (2010-12-17 14:18) [9]

а не, не помогло, это я в прошлый раз nil не закомментил..
временная тоже не помогает

ну да ладно,
буду nil делать, ничего страшного в принципе
память не течет, работает

---

← →
Плохиш ©   (2010-12-17 17:25) [10]


procedure TfrmSubject.btnExpandClick(Sender: TObject);
var
 bmp: TBitmap;
begin
 bmp := TBitmap.Create;
 try
   if Collapsed then
     if ilBntContainer.GetBitmap(2, bmp) then
       btnCollapsExpand.Glyph.Assign(bmp)
     else ShowMessage("fig")
   else
     if ilBntContainer.GetBitmap(1, bmp) then
       btnCollapsExpand.Glyph.Assign(bmp)
     else ShowMessage("fig");
 finally
   bmp.Free;
 end;
end;


---

← →
12 ©   (2010-12-17 22:30) [11]

> Плохиш ©   (17.12.10 17:25) [10]

спасибо

---

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

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



Память: 0.47 MB
Время: 0.005 c