Projedeki herşeyin fontu Verdana olsun.

[Jire]

Bİraz emir gibi oldu şey, bütün formların fontları (mesela Verdana -- çok seviyorum ) tek bir fonksiyon ile değiştirmemin imkanı varmı?

[Battosai]

Vardır.... objeler üzerinde topluca işlem yapma kodları mevcut onları incelersen yapabilirsin...genelde renk değiştrime veya edit içeriğin temizleme gibi kodlar verilmiştir ordaki .color yerine .Font.name='Verdana' yaptın mı işlemin gerçekleşir...

[sabanakman]

Kod: Tümünü seç

type TControlCrack=class(TControl);

function Tara(Component:TComponent):Integer;
var i:Integer;
begin
  if Component is TControl then TControlCrack(Component).Font.Name:='Verdana';
  Result:=1;
  for i:=0 to Component.ComponentCount-1 do
   Result:=Result+Tara(Component.Components[i]);
end;

kodlarıyla bu mümkündür. Eğer Tara(Application); kodunu yazarsanız o uygulamada tüm bileşenlerin fontu Verdana olacaktır. Eğer Tara(Form2); şeklinde kullanılırsa sadece Form2 içindeki bileşenler taranacaktır. İyi çalışmalar.

[mehmetcan]

Eger tüm kontrolların parentfont özelligi true ise (default olarak true dur) dogrudan formun fontunu degiştirmek hepsinin degişmesine neden olur.

Form1.Font.Name:='verdana';

Formdaki tüm kontrolların fontunu verdana yapar.

[sabanakman]

Fakat size, style, color gibi font özelliklerini de formdan alır . Vurgu yapması gereken bileşenler için parentfont özelliği false olarak bırakılıp bu özelliklerin ayarlanmış olma durumunda yukarıdaki kodlar uygun olanıdır. Eğer tüm proje sabit tek font olarak kalacaksa görsel bileşenlerin parentfont u true olmalı.

[Jire]

Şu anda Self.Font.Name := 'Verdana'; 'yı kullanıyorum ama benim istediğim her forma bu kodu yerleştirmektense tek bir fonksiyon ile bütün formların fontlarını değiştirmek istiyorum.

Örnek vereyim 46 tane form var Form1 Form2 Form3 .... ben bunların hepsini teker teker yazmadan tek bir fonksiyon ile değiştirmek istiyorum. Mümkün mü bilemiyorum.

Cevaplar için teşekkür ederim.

[sabanakman]

Küçük bir eklenti ile sace formlar için çalışır hale getirelim.

Kod: Tümünü seç

function FormTara(Component:TComponent):Integer;
var i:Integer;
begin
  if Component is TForm then TForm(Component).Font.Name:='Verdana';
  Result:=1;
  for i:=0 to Component.ComponentCount-1 do
   Result:=Result+FormTara(Component.Components[i]);
end;

Not:Yukarıdaki cevabım hatalı olmuş, düzeltildi .

[Z.D.]

Base form kullansaydın keşke. mesela bir anaform tasarla, diğer formlarıda bu form üzerinden oluştur.

ana form

Kod: Tümünü seç

unit base;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TBaseFrm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  protected

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BaseFrm: TBaseFrm;

implementation


{$R *.DFM}

procedure TBaseFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin

end;

procedure TBaseFrm.FormCreate(Sender: TObject);
begin
  inherited;

  //TranslateComponent(Self);

  Font.Name := Graphics.DefFontData.Name;
  Font.Charset := Graphics.DefFontData.Charset;
end;

procedure TBaseFrm.FormShow(Sender: TObject);
begin

end;

{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}

end.

diğer 46 formuda base formdan inherit ederiz

Kod: Tümünü seç

unit CustomColumnU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, base;

type
  TCustomColumnf = class(TBaseFrm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CustomColumnf: TCustomColumnf;

implementation


{$R *.dfm}


{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}
procedure TCustomColumnf.FormClose(Sender: TObject; var Action: TCloseAction);
begin

end;

{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}

procedure TCustomColumnf.FormCreate(Sender: TObject);
begin
  inherited;

end;

{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}
procedure TCustomColumnf.FormShow(Sender: TObject);
begin

end;

{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}


end.

Böylelikle baseformda uyguladığımız ayarlar diğer 46 form içinde geçerli olucaktır. Dikkat edilmesi gereken, form object inspector ayarlarında

Kod: Tümünü seç

parentfont=True

olmalı.

[Jire]

Cevaplar için teşekkür ederim.
Aradığım cevapları buldum.