Tasarım alanında bir proje : DelphiTurkey.com

[Mr.X]

Merhaba,

Delphi tarafında büyük bir ihtiyaç olan tasarım konusundaki eksikliği gidermek adına açmış olduğum forum sitemi duyurmak isterim.
Daha önce yaklaşılmamış bir yönden yaklaşarak tasarımı ve tasarlamayı kopyala-yapıştır düzeyine indirgedim. Tasarlanabilecek ne var ise tasarlayıp sunarak ve çeşitlendirerek istediğiniz tasarımı elde etmenizi mümkün kıldım. Üstelik uğraş gerektirmeden ve en kısa sürede...


Türkiye geneline bu konu ile duyurduğum/duyuracağım bu yapıyı daha önce gerçekleştiren oldu mu ya da şuan da aktif olarak sunan ve sunmaya devam eden var mı bilmiyorum ama tasarım konusunun bambaşka bir boyuta şu andan itibaren evrileceği aşikar.
Sitemi ziyaret ederek tasarımları bizzat kendiniz deneyimleyebilir ve kullanabilirsiniz.


Örneğin bu gifteki tasarımı elde etmek için kodu direkt form üzerine yapıştırmanız yeterli.
Gerisi ise nasıl ve nerede kullanacağınıza kalıyor.

   

object katman_1: TRectangle
 Fill.Color = claWhite
 Padding.Left = 5.000000000000000000
 Padding.Top = 5.000000000000000000
 Padding.Right = 5.000000000000000000
 Padding.Bottom = 5.000000000000000000
 Position.X = 120.000000000000000000
 Position.Y = 277.000000000000000000
 Size.Width = 100.000000000000000000
 Size.Height = 40.000000000000000000
 Size.PlatformDefault = False
 Stroke.Kind = None
 XRadius = 20.000000000000000000
 YRadius = 20.000000000000000000
 OnClick = katman_1Click
 object Rectangle2: TRectangle
   Align = VertCenter
   Fill.Color = claBrown
   HitTest = False
   Margins.Right = 60.000000000000000000
   Position.X = 5.000000000000000000
   Position.Y = 9.000000000000000000
   Size.Width = 30.000000000000000000
   Size.Height = 22.000000000000000000
   Size.PlatformDefault = False
   Stroke.Kind = None
   XRadius = 11.000000000000000000
   YRadius = 11.000000000000000000
   object FA1_kuyruk_sag_ileri: TFloatAnimation
     Duration = 0.600000023841857900
     PropertyName = 'Margins.Left'
     StartValue = 0.000000000000000000
     StopValue = 60.000000000000000000
   end
   object FA1_kuyruk_sag_ileri2: TFloatAnimation
     Duration = 0.300000011920929000
     PropertyName = 'Margins.Right'
     StartValue = 60.000000000000000000
     StopValue = 0.000000000000000000
   end
   object FA1_kuyruk_sol_ileri: TFloatAnimation
     Duration = 0.600000023841857900
     PropertyName = 'Margins.Right'
     StartValue = 0.000000000000000000
     StopValue = 60.000000000000000000
   end
   object FA1_kuyruk_sol_ileri2: TFloatAnimation
     Duration = 0.300000011920929000
     PropertyName = 'Margins.Left'
     StartValue = 60.000000000000000000
     StopValue = 0.000000000000000000
   end
   object CA1_kuyruk_acik: TColorAnimation
     Duration = 0.200000002980232200
     PropertyName = 'Fill.Color'
     StartValue = claLightcoral
     StopValue = claDeepskyblue
   end
   object CA1_kuyruk_kapali: TColorAnimation
     Duration = 0.200000002980232200
     PropertyName = 'Fill.Color'
     StartValue = claDeepskyblue
     StopValue = claLightcoral
   end
 end
 object Layout1: TLayout
   Align = Client
   Size.Width = 90.000000000000000000
   Size.Height = 30.000000000000000000
   Size.PlatformDefault = False
   TabOrder = 1
   object C1: TCircle
     Align = Left
     Fill.Color = claLightcoral
     HitTest = False
     Size.Width = 30.000000000000000000
     Size.Height = 30.000000000000000000
     Size.PlatformDefault = False
     Stroke.Kind = None
     object FA1_ileri: TFloatAnimation
       Duration = 0.200000002980232200
       PropertyName = 'Margins.Left'
       StartValue = 0.000000000000000000
       StopValue = 60.000000000000000000
     end
     object FA1_geri: TFloatAnimation
       Duration = 0.200000002980232200
       PropertyName = 'Margins.Left'
       StartValue = 60.000000000000000000
       StopValue = 0.000000000000000000
     end
     object CA1_acik: TColorAnimation
       Duration = 0.200000002980232200
       PropertyName = 'Fill.Color'
       StartValue = claLightcoral
       StopValue = claDeepskyblue
     end
     object CA1_kapali: TColorAnimation
       Duration = 0.200000002980232200
       PropertyName = 'Fill.Color'
       StartValue = claDeepskyblue
       StopValue = claLightcoral
     end
   end
 end
end

Kullanımı :

procedure TForm1.katman_1Click(Sender: TObject);
begin
 if C1.Margins.Left = 0 then
 begin
   FA1_ileri.Start;
   FA1_kuyruk_sag_ileri.Start;
   FA1_kuyruk_sag_ileri2.Start;
   CA1_acik.Start;
   CA1_kuyruk_acik.Start;
 end
 else
 begin
   FA1_geri.Start;
   FA1_kuyruk_sol_ileri.Start;
   FA1_kuyruk_sol_ileri2.Start;
   CA1_kapali.Start;
   CA1_kuyruk_kapali.Start;
 end;
end;

Bu ve daha fazlası web sitemde yer almaktadır ve her geçen gün daha fazlası eklenmektedir.

Başlıca sorulacak sorular ve cevapları

Neden komponent olarak sunmuyorsun ?

- Görsel bileşenleri komponent olarak sunmak 3. parti durumuna düşüreceği için ekstra kurulumlar ve gereklilikler getirecektir. Oysaki kopyala-yapıştır sistemi buna kullanıcı bazında gerek bırakmıyor. Ayrıca yapımcısı olarak beni ise büyük oranda hızlandırıyor çünkü tasarım elde etmek için herkes tarafından kullanılabilen IDE’nin sunduklarını kullanıyorum. Ayrıca FMX mimarisini destekleyen her delphi sürümü ile doğrudan uyumlu olduğu ve olacağı için bu yönden de sorunlarla karşılaşmamış oluyorum. Yani ; 3.parti yok. Kurulum yok. Uğraş yok.


Sadece bileşen tasarımları ile mi sınırlı ?
- Hayır. Kullanıcılar yani sizlerin tasarımsal her yönde yaşadığınız zorlukları da kolaylaştırmak mümkün hale geldi. Bununla birlikte giriş ekranları, ana ekranlar, bekletme ekranları, hakkında ve iletişim bölümleri gibi bir uygulama da olması gereken en temel alanlarında tasarımları kopyala-yapıştır ile eziyet olmaktan artık çıkacaktır. Bu durumda sizlere yani kullanıcılara geriye sadece seçmek ve kopyalamak kalacaktır.


Tek tasarım üzerine mi ?
- Şuan için evet. Tecrübesini paylaşmak isteyen herkesin ki bu sadece yazılım ya da tasarım olmasına gerek yok, Paylaşım yapması mümkündür. Sadece paylaşım yapmak istediği alanı sitem üzerinden bildirmesi yeterlidir. Her konuda alan açmaktansa istenilen konuda alan açmak daha iyi bir seçenektir.


Harici neler kullanılıyor ?
-Hiçbir şey! Tasarlanan her şey tamamen Delphi tarafında ve IDE’nin sundukları ile var edilmektedir. Yani ; Photoshop yok. Görsel yok. Dış kaynak yok.

Hepsi ve daha fazlası için ; https://www.delphiturkey.com/