Skin Hakkında

[vedatkaba]

Arkadaşlar herkese merhaba.Sizden ricam mükemmel arayüzler oluşturmak için skin kullanmak istiyorum ama yok.mesala http://www.sunisoft.com internet adresinde mevcut ama trial versiyonlu.aynı zamanda pahalı.lütfen bana yardımzı olun yada yol gösterin.Herkese kolay gelsin.

[ALUCARD]

skin kullanmamak için bu işin bi yoluda kendi skinini kendin hazırla bu işin yoluda biraz resim düzenleme programı bilmek ten geçiyor.

formun üzerine iyi düzenlenmiş bi resim koy

kullanıcıya resimi değiştirme şansı ver oldu sana skin

benim bi arkadaşım yapmıştı çokta güzel olmuştu

sana yol

[vedatkaba]

tamamda arkadaşım hangi araçları kullanalım.
veya bildiğin bir component veya değişik bir şekli.

[macsonfor]

Burda bir konuda anlaşalım eğer yaptığın projelerin görsellik olarak çok iyi olmasını istiyorsan birazcık elini cbine götüreceksin mesela Raize Component seti çok harika.
Ha bunlara vercek paran yoksa elinde olanlarla yetinmek zorundasın sanırım. Umarım açıklayıcı olabilmişimdir.
Kolay Gelsin...

[hbahadir]

Arşivimden bulduğum (Fatih Badur'a ait) aşağıdaki kod sana en azından bilgi verir.

Kod: Tümünü seç

{
 Fatih BADUR
 Facom SoftWare
 Date  :25 Aralık 1997
 Ver   :1.001
}
unit Fform;

interface

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

type
  TTip = (FSekizGen, FDaire,FDefault,FRoundKare,FSinCos);
  FatihForm = class(TGraphicControl)
  private
    { Private declarations }
    X,Y,
    H,W:Integer;
    FTip        :TTip;                          // Form Tipleri
    FShow       :Boolean;                       // Mesaj için degişken
    F           :TForm;                         // Aktif Olan Formu kullanmak için
    R           :HRgn;                          // Formun Seklini belirtmek için
    procedure SetStyle(Value: Ttip);            // Form Seklini Seçmek
    procedure SetShow(Value: Boolean);          // Mesajı Aktif Hale Getir
  protected
    { Protected declarations }
  public

  Procedure SetForm;                            // Programdan Çalıştırmak için
    { Public declarations }
  published
    { Published declarations }
    Property Show         : Boolean read FShow write SetShow;
    property FormStyle    : Ttip    read FTip  write SetStyle default FSekizGen;
    property Visible;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Facom', [FatihForm]);
end;
Procedure FatihForm.SetForm;
var
    Dizi:Array[0..50] of TPoint;
    I                 :Integer;
    I_                :LongInt;
begin
//F.Handle :=GetActiveWindow;
   F:=TForm(Self.PArent);                             // Aktif Form Bulunuyor
X:=F.Width;
Y:=F.Height;
case ftip of
     FDefault:
              begin
                   R:=CreateRectRgn(0,0,X,Y);           // Çerçeve
                   SetWindowRgn(F.Handle,R,True);       // İşi yapan Apı
              end;
     FDaire:
              begin
                   R:=CreateEllipticRgn(0,0,X,Y);       // Elips
                   SetWindowRgn(F.Handle,R,True);
              end;
     FRoundKare:
                begin
                R:=CreateRoundRectRgn(0,0,X,Y,45,45);   // Köşeleri Oval
                SetWindowRgn(F.Handle,R,True);
                end;
     FSinCos:
              begin
              Randomize;
                   for I:=0 to 49 do
                       begin
                           I_:=I;
                           Dizi[I].Y:=Trunc((Sin(I_)+Cos(I_))*random(x));
                           Dizi[I].X:=Round((Sin(I_)-Cos(I_))*random(y));
                       end;
                   R:=CreatePolygonRgn(Dizi,50,Winding); // Polyon
                   SetWindowRgn(F.Handle,R,True);
              end;
     FSekizGen:
              begin
                   Dizi[0].X:=X div 3;                     Dizi[0].Y:=0;
                   Dizi[1].X:=0;                           Dizi[1].Y:=y div 3;
                   Dizi[2].X:=0;                           Dizi[2].Y:=2 * y div 3;
                   Dizi[3].X:=X div 3;                     Dizi[3].Y:=y;
                   Dizi[4].X:=2 *x div 3;                  Dizi[4].Y:=y;
                   Dizi[5].X:=x;                           Dizi[5].Y:=2*y div 3;
                   Dizi[6].X:=x;                           Dizi[6].Y:=y div 3;
                   Dizi[7].X:=2*x div 3;                   Dizi[7].Y:=0;
                   R:=CreatePolygonRgn(Dizi,8,Winding);
                   SetWindowRgn(F.Handle,R,True);
              end;
     end;
     F.Update;
end;
procedure FatihForm.SetShow(Value: Boolean);
begin
FShow:=Value;
       if FShow then
          ShowMEssage('Facom SoftWare '#13+'Fatih BADUR'+#13+'+90 (212) 592 97 80 PBX');
end;

procedure FatihForm.SetStyle(Value: Ttip);
begin
    FTip := Value;
    SetForm;
end;

end.

[hbahadir]

ek olarak yanılmıyorsam free olan CoolForm diye bir component vardı. Internette aratırsan bulursun herhalde.