Изменение символа компонента TBitBtn

[anka_masurowa]

Помогите пожалуйста.
Нужно,используя компонент TBitBtn,создать кнопку,при первом переходе нажатии на которую на ней появлялся бы образ горящей лампочки,при повторном нажатии-погасшей

[Delphi_ProGer]

Можно просто сохранить 2 изображения, например, Lamp_On.bmp & Lamp_Off.bmp и соотвествено загружать в кнопку(Glyph) их когда вам нужно, например создайте глобальную переменную, или лучше для этого дела используйте Tag компонента. В нём вы будете записывать состояние лампочки.

[anka_masurowa]

А можно поподробнее?
В Glyph из стандартной коллекции уже загружено 2 рисунка.
Сделала такой код для деактивации кнопки
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
BitBtn1.Enabled:=not BitBtn1.Enabled;
end;
А вот как ее обратно активировать?Она должна при каждом нажатии менять состояние

[Пепел Феникса]

Image position Button state Description

First Up This image appears when the button is up (unselected). This image is also used when the button has focus (for example, if the user tabs to it); in this case, a focus rectangle is drawn around the button. If no other images exist in the bitmap, bit buttons also use this image for all other states.
Second Disabled This image usually appears dimmed to indicate that the button can't be selected.
Third Clicked This image appears when the button is clicked. The Up image reappears when the user releases the mouse button.

Fourth Down This image appears when the button stays down (indicating that it remains selected).

из справки.
сами переведете надеюсь.

[anka_masurowa]

Читала...Это мне мало что говорит...Я только начинаю работать с Делфи, поэтому и возникают такие глупые вопросы..Понимаю,что это должно быть достаточно легко, но увы...

[Пепел Феникса]

глиф может состоять из 4 частей.
1)это состояние когда кнопка не нажата(и не выбрана, но включена)
2)это состояние когда кнопка отключена
3)состояние когда на кнопку нажата(и все еще держится кнопка мыши, при отпускании уйдет в 1)
4)состояние когда кнопка была щелкнута и находиться в выбранном состоянии

[anka_masurowa]

а в программном виде это могли бы показать?

[__123]

procedure TForm1.BClick(Sender: TObject);
Var Bmp_1, Bmp_2 : TBitmap;
begin
Bmp_1:=TBitmap.Create;
Bmp_2:=TBitmap.Create;
Bmp_1.Height:=25;
Bmp_1.Width:=25;
Bmp_2.Height:=25;
Bmp_2.Width:=25;
Bmp_1.Canvas.Brush.Color:=clRed;
Bmp_1.Canvas.Rectangle(0,0,24,24);
Bmp_2.Canvas.Brush.Color:=clYellow;
Bmp_2.Canvas.Rectangle(0,0,24,24);
If B.Tag=0 Then
Begin
B.Glyph.Assign(Bmp_1); //Ну или B.Glyph.LoadFromFile('C:\Img.bmp');
B.Tag:=1;
End
Else
Begin
B.Glyph.Assign(Bmp_2);
B.Tag:=0;
End;
Bmp_1.Free;
Bmp_2.Free;
end;

Это, конено, некорректно каждый раз при клике Create,Free,etc, но смысл показывает. Собственно, основной кусок кода

If B.Tag=0 Then
Begin
B.Glyph.Assign(Bmp_1); //Ну или B.Glyph.LoadFromFile('C:\Img.bmp');
B.Tag:=1;
End
Else
Begin
B.Glyph.Assign(Bmp_2);
B.Tag:=0;
End;

Короче в программном виде то что сказал Delphi_ProGer.

[anka_masurowa]

Спасибо=)Постараюсь разобраться=)