pagecontrol daki başlık butonları renkleri

[MicroChip]

pagecontrol daki başlık butonları renklerini nasıl değiştireceğiz bilen varmı?
vallaha ne canvas kaldı nede brush hepsini denedim ama yapamadım. skin componentlerin kodlarına baktım onları da çözmek için 1 hafta lazım

Saygılar

[mrmarman]

Selam.

- Aslında çözümü bulmuşsun. Canvas.Brush.Color senin istediğin işi yapıyor. Sorun nedir ?

- Belki PageControl'ün OwnerDraw'ını True yapmayı unutmuş olabilirsin.


// Düzenleme //

- Haa bir de unutmuşum, umarım tüm bunları OnDrawTab eventinde yapıyorsunudur yoksa her paint olayında yaptığın değişiklik çöpe gider.

[MicroChip]

Aslında dediğini daha önce yaptım zaten. fakat ownerdraw'ını true yaptığımda da başlıktaki captionlar kayboluyor. onu da mı canvasla yapıcam.
bak ownerdraw'ı true yaptıktan sonra canvasla texti yazdırmadım. birde onu deniyeyim

[mrmarman]

- Evet aynen öyle..

- Senin için bir örnek hazırladım. Elime yapışmadı yani
- Bildiğin şeyler sanıyorum ama başka okuyanlar da bilmeyenler de öğrensin istedim.

- Özellikler isteyebileceğin ekstra özelliklerle donattım.
- Her Tab'a başka bir renk.
- Seçili Tab'ın rengini Siyah olarak değişrimek
- Yazı yazdırmak ve Yazının stilini şarta göre değiştirmek..

Kod: Tümünü seç

// PageControl'un OwnerDraw özelliği True olacak.
// OnDrawTab eventine yani buraya yazılacak örnek kod aşağıdaki gibi.
// Muharrem ARMAN (Ankara)
Var
  Renk : TColor;
begin
// Renk initialized Warning'i vermesin diye Renk'e default değer verildi.
// Aslında tab sayısı kadar case tanımı olacağından gerek yok.
  Renk := clBtnFace;

  Case TabIndex of
  0: Renk := clNavy;
  1: Renk := clMaroon;
  2: Renk := clBlue;
  3: Renk := clPurple;
  end; // Case

  With PageControl1 do
  begin
    if Active then // İlgili Tab'a gidildiğinde Tab Rengi Siyah olur. (Sana Bonus)
    begin
      Canvas.Font.Color  := clWhite;
      Canvas.Font.Style  := [fsBold];
      Canvas.Brush.Color := clBlack;
    end
    else
    begin
      Canvas.Font.Color  := clWhite; // Yazı Rengini Beyaz yaptım.
      Canvas.Font.Style  := [];
      Canvas.Brush.Color := Renk; // Taba göre renk değişsin diye
    end;
    Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, Pages[TabIndex].Caption);
    Canvas.FrameRect(Rect);
  end; // With
end;

[MicroChip]

oke saol dostum ellerin dert görmesin ama ben bugun işyerindeyken hallettim bir boşlukta, dediğim olayı yapınca.

ama dediğin gibi bilmeyenler için güzel bir kod.

[mrmarman]

- Sevindim.

- Başarılar.