Aby zapisać do zmiennej string nazwę czcionki z fontdialog można zrobić tak:
s:=fontdialog.font.name;
Ale jak do tej zmiennej zapisać wielkość czcionki z fontdialog?
AHA (dopisane) - i jak można ustalić jaka ma być zaznaczona czcionka w FontDialog?, ja zrobiłem tak:
FontDialog.font:= (i tu czcionka itd) - ale to nie działa!
Aby zapisać do zmiennej string nazwę czcionki z fontdialog można zrobić tak:
s:=fontdialog.font.name;
Ale jak do tej zmiennej zapisać wielkość czcionki z fontdialog?
s:=fontdialog.font.name+' '+inttostr(fontdialog.font.size);
dopisane:
fontdialog.font.name:='Nazwa czcionki';
zm : byte
zm:=FontDialog.Font.size;
<font color="green">fontdialog.font.name:='Nazwa czcionki'; </span>
Nie działa! - próbowałem na różnych czcionkach i zdarzeniach i nic- zawsze w FontDialog żadna czcionka nie jest zaznaczona!!!
U mnie działa bez problemu na przykład coś takiego
with FontDialog1.Font do
begin
Name := 'tahoma';
Size := 32;
end;
if FontDialog1.Execute ....itd...
wyświetla okno czcionek z wybraną czcionką tahoma i rozmiarem 32.
Duże i małe litery w nazwie czcionki nie są istotne.
Witam.
A czy wie ktos jak zapisac FontDialog1.Font.Style ???
Potzrebuje zapisac do pliku INI ale string tego nie obsłuzy.
THX
Ale jak do tej zmiennej zapisać wielkość czcionki z fontdialog?
Np.
[code]S := FontDialog.Font.Name + '*' + IntToStr(FontDialog.Font.Size);[/code]
Potem w pętli odczytujesz wartości do * (a w nazwach fontów raczej nie ma * wiec nie ma obawy ze cos sie pochrzani), a stringa po "*" konwertujesz na Integer (w sumie Byte tez powiniem wystaczyć ale skoro w VCL jest integer to lepiej dac tak samo :) ).
fontdialog.font.name:='Nazwa czcionki';
Nie działa! - próbowałem na różnych czcionkach i zdarzeniach i nic- zawsze w FontDialog żadna czcionka nie jest zaznaczona
Mi to działa we wszystkich przypadkach, ze stringa bezpośrednio, z edita, bez zachowanych wielkości liter...
A czy wie ktos jak zapisac FontDialog1.Font.Style
Np tak:
var
FStyle : String;
begin
if fsBold in FontDialog1.Font.Style then
FStyle := FStyle + 'b';
{itd. dla każdej własciwości przyporządkowujesz litere}
a potem odczytujesz np:
var
Style : TFontStyles;
begin
if Pos('b', FStyle) > 0 then
Style := Style + [fsBold];
{itd. dla innych styli}
Łukasz dlaczego wygrzebałeś tego posta sprzed roku? :-/
Co do styli to znalzłem bardzo łatwy sposób (chyab gdzies na forum):
INI.WriteInteger('CzcionkaListy', 'Style', Byte(Lista.Font.Style));
CzcionkaListy.Font.Style := TFontStyles(Byte(INI.ReadInteger('CzcionkaListy','Style',0)));
A co do daty postu to nie wiem. Przeszukiwałem forum w poszukiwaniu zapisu style z Font-ów, nie znalazłem to dołączyłem pytanie do tego tematu. Chyba lepiej tak niż nowy post zakładać.
PAPA