Jak zrobic zeby jak sie kliknie a niego czcionka sie pogrubiła a gdy sie kliknie jeszcze raz zeby sie zrobila normalna wie. ze to RichEdit1.SelAttributes.Style:=[fsBold]; tobi za pogrubienie ale jak zrobic zeby po ponownym kliknięciu sie zrobila normalna.
Eh POwtazam sie :)--Początkujący w Delphi zadaje duzo pytan
Jezlie juz zmieniasz czcionke to zamiast: RichEdit1.SelAttributes.Style:=[fsBold] zrob cos takiego: RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style+[fsBold] To sprawi ze jak text bedzie juz mial jakis atrybut to sie tylko doda a nie zmienic na Bold :-) Jak chcesz zniesc ten atrybut to wystarczy: RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsBold] :-)--pozdrawiam PEDROS {hello}
Encyklopedia was potrzebuje:
www.4programmers.net/delphi/help.php
Delphi 6 Personal.
czyli sprubuj coś takiego:
w inspektoże obiektów dla SpeedButton ustaw
AllowAllUp := true;
GroupIndex := 1 // po prostu tu musi być coś wieksze od zera :)
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton.Down then
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold]
else
RichEdit1.SelAttributes..Style := RichEdit1.SelAttributes.Style - [fsBold];
end;
Dzięki za pomoc na was zawsze mozna liczyc.--Początkujący w Delphi zadaje duzo pytan