Delphi Peak

Hava Civa! gunluk hava durumunu gostermek icin gelistirilmis bir uygulama. Ozelligi ek bir bilesen kullanilmadan (sadece gdi+ kutuphanesi kullanilmis) Delphi 7 ile gelistirilmis olmasi ve kaynak kodunun acik olmasi. Program sahibi programini su sekilde tanitmis.

“Yeni Nesil programlama örneği”. Adından da anlaşılacağı gibi bir “Hava Durumu” programı. Ama bildiğiniz gibi değil… Bir “Widget” örneği. Klasik GDI çizim tekniklerinin dışında yeni nesil GDI+ çizim teknikleri içeriyor. “AlphaBlend” fonksiyonu resim çizme, “UpdateLayeredWindow” fonksiyonu ile katmanlı pencereler (layered windows) oluşturma, PNG formatında 32bit alpha-channel resim biçimlerinin Delphi formlarına uygulanması, donukluk (opaque), saydamlık ve görsel efektler… Hepsi Hava Cıva! da. Dahasıda var. Microsoft XMLDOM yapısının Delphi bileşenleri kullanmadan işlenmesi, RSS yapısının ayrıştırılması, kullanıcının Internet IP ’sinin bulunması, Hicri-Miladi takvim ve Ay konumunun hesaplanması… Programın görselliği bence sizi etkileyecek. Hem de tam sürüm ve kaynak kodu ile birlikte. İnanın pişman olmayacaksınız… Daha söze gerek yok aslında! Beklemeyin hemen indirin!

Meraklilar icin neyin nasil yapildigini uygulamali olarak gosteren cok guzel bir ornek olmus. Yine acik kaynak kodlu olarak yayinlanan Ey DSL i ve Hava Civa nin kaynak kodlarini indirmelerini tum delphicilere tavsiye ederim…

• TObject sinifindaki degisiklikler

TObject sinifina yeni eklenen 6 adet metod var.

class function MethodAddress(const Name: string): Pointer; overload;
function FieldAddress(const Name: string): Pointer; overload;
class function UnitName: string;
function Equals(Obj: TObject): Boolean; virtual;
function GetHashCode: Integer; virtual;
function ToString: string; virtual;

Bunlardan ilk ikisi olan MethodAddress ve FieldAddress zaten eski delphi surumlerinde de mevcuttu. Delphi 2009 da sadece unicode degisikliginden dolayi String tipinde parametre alan yeni surumleride ilave edilmis o kadar.

Diger dort metod ise Vcl.net uyumlulugu icin eklenmis. Zira ToString metodunun yaptigi tek sey Classname degerini geri dondurmek.

function TObject.ToString: string;
begin
Result := ClassName;
end;

GetHashCode ve Equals metodlari ise system unitinde su sekilde tanimlanmislar.
(more…)

PNG Delphi Delphi’de PNG işlemleri yapmamızı sağlayan bir modül. Oldukça çok fonksiyon ve prosedüre sahip. Örneğin basitçe TImage alanına bir PNG resmi yüklemek için yapmanız gereken :

procedure xyz;
var
        filepng      : TPngObject;
begin
...
...
        filepng := TPngObject.Create;
        filepng.LoadFromFile('C:\resim.png');
        JvImage1.Picture.Assign(filepng);
...
...
end;