Database til font dialog

er det den sidst benyttede font i fontdialog du gerne vil have gemt.

Her er et lille eksempel:

uses
  Registry

var
  StdFont: TFont;
  TmpFont: TFont;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FontDialog1.Execute then
  begin
  TmpFont := FontDialog1.Font;
  Memo1.Font := TmpFont;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  try
  OpenKey('software\mitfirma\mitprogram', True);
  WriteString('navn', TmpFont.Name);
  WriteInteger('farve', TmpFont.Color);
  WriteInteger('stoerrelse', TmpFont.Size);
  finally
  Reg.Free
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  try
  OpenKey('software\mitfirma\mitprogram', True);
  TmpFont.Name := ReadString('navn');
  TmpFont.Color := ReadInteger('farve');
  TmpFont.Size := ReadInteger('stoerrelse');
  finally
  Reg.Free
  end;
  FontDialog1.Font := TmpFont;
  Memo1.Font := TmpFont;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Memo1.Font := StdFont;
  FontDialog1.Font := StdFont;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StdFont := TFont.Create;
  with StdFont do
  begin
  Name := 'MS Sans Serif';
  Size := 8;
  Color := clBlack;
  end;
end;

Du kan downloade sourcen her:
www.mobhit.dk/eksp342373.zip

MVH
  Casper Steinmann

dit link virker ikke

hvor skal de forskellige funktioner indsættes, jeg har ikke helt forstået det... jeg har selvfølgelig gjort StdFont og TmpFont globale variabler. Button1.click har jeg sat ind ved min font knap. Form1.FormCreate har jeg også sat ind det rigtige sted, men hvad med resten????

hmm, havde lagt den lokalt på egen pc og den var slukket... sorry, her er et link der virker hele tiden:
  www.eurowave.dk/eksp342373.zip

Du skal have 4 knapper, en memocontrol og en Fontdialogboks, ellers virker det ikke... men download sourcen og kig, det er lidt nemmere ;)

Casper :)

takker, men hvordan kan man gøre så den automatisk henter den font som man senest har brugt????

altså når man åbner programmet :)

Indsætter dette(som også er i Button3Click) i OnShow, altså:

procedure TForm1.FormShow(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  try
  OpenKey('software\mitfirma\mitprogram', True);
  TmpFont.Name := ReadString('navn');
  TmpFont.Color := ReadInteger('farve');
  TmpFont.Size := ReadInteger('stoerrelse');
  finally
  Reg.Free
  end;
  FontDialog1.Font := TmpFont;
  Memo1.Font := TmpFont;
end;

når programmet starter så siger den at den ikke kan finde data til 'farve'. Er det ikke muligt at anguve hvad farve er inden programmet starter?

Ahh... i formcreate skal du indsætte denne linie: TmpFont := TFont.Create;

ok takker indtil videre.... :)
MEN man skal have været inde i programmet en gang og så virker det. Er det ikke muligt at gøre det uden at have prøvet programmet før??? takker endnu engang

np da ;)

men hvis du skal checke det, så kan/skal du bruge den her(det er Formshow)

procedure TForm1.FormShow(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  try
  //Hvis ikke programmet er startet før,
  //så eksisterer der ikke en nøgle i
  //registreringsdatabasen, derfor skal
  //der oprettes en ny og vi putter samtidig
  //nogle standard værdier i.
  if not KeyExists('software\mitfirma\mitprogram') then
  begin
    OpenKey('software\mitfirma\mitprogram', True);
    WriteString('navn', 'MS Sans Serif');
    WriteInteger('farve', clBlack);
    WriteInteger('stoerrelse', 8);
  end;
  OpenKey('software\mitfirma\mitprogram', True);
  TmpFont.Name := ReadString('navn');
  TmpFont.Color := ReadInteger('farve');
  TmpFont.Size := ReadInteger('stoerrelse');
  finally
  Reg.Free
  end;
  FontDialog1.Font := TmpFont;
  Memo1.Font := TmpFont;
end;

MVH
  Casper Steinmann

mærkeligt at det stadigvæk sker.... men tak for hjælpen

hmm ja, det er mærkeligt... men np ;)