Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];

Вниз

bold button   Найти похожие ветки 

← →
lauren   (2005-09-13 01:37) [0]

ну зделала bold button. нажымаю становится жырным,но не знаю как зделать так чтоб очередном шелчке произошло обраное. может кто нибуть поможет?

---

← →
Цукор 5   (2005-09-13 01:45) [1]


begin
 if Button1.Font.Style = [fsBold]
 then
 Button1.Font.Style:=[]
 else
 Button1.Font.Style:=[fsBold];
end;


---

← →
Джо ©   (2005-09-13 01:51) [2]

>  [1] Цукор 5   (13.09.05 01:45)

Все же, наверное, корректнее будет так:

procedure TForm1.Button1Click(Sender: TObject);
 function ReverseBoldStyle (FontStyle: TFontStyles): TFontStyles;
 begin
   Result := FontStyle;
   if fsBold in FontStyle then
     Exclude (Result,fsBold)
   else
     Include (Result,fsBold)
 end;
begin
 Button1.Font.Style := ReverseBoldStyle(Button1.Font.Style)
end;


---

← →
Наиль ©   (2005-09-13 08:49) [3]

function ReverseBoldStyle (FontStyle: TFontStyles): TFontStyles;
begin
  Result := FontStyle+fsBold-fsBold*FontStyle;
end;

---

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

Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.003 c