Menampilkan Gambar dan Menampilkan Histogram-nya..

thankz bradda sista udah maw mampir ke blog-ku...

langsung ajah nih,
disini ada sedikit ilmu tentang gimana caranya mengedit gambar, mulai dari melihat histogramnya, mencerahkan, menggelapkan, membuat gambar menjadi lebih terang, skaligus menyamarkan gambar alias menge-blur.
Langkah pertama yg musti d lakukan adalah menyiapkan peralatannya duluw. Mulai dari PC ataw laptop, software Borland Delphi 6 (boleh pake Delphi yg lebih udgrade and update), listrik, cemilan, drink, dan sebagainya, yah di sesuain ajah lah ma kebutuhanmu 
Langkah kedua itu, menyalakan PC ataw laptop kita, lalu d install deh tu software. Setelah di install, kemudian di dobble-klik iconnya, muncul deh.., taraaaaa.....

Langkah ketiga, di close ajah tu program, kemudian d laptopnya di shut down.... hahahaha bercanda.
Kita mulai membuat menu2 yang kita inginkan.
Bradda sistta boleh mulai dr membuat icon MainMenu di menu Standard, kemudian dobble klik. Ketik menu2 yang diinginkan, misalnya menu File yang berisi Open, Close, dan Exit. Untuk menuliskan tu menu, klik kotak hingga berwarna biru, lalu pada Properties pilih Caption. Ketikkan pada tu caption. Dan seterusnya.. 

Run program yang telah dibuat.
Klik File - Open, kemudian pilih gambar yang harus di ambil histogram dengan cara klik Edit - Histogram...

codingnya beginii...:
procedure TMainForm.Open1Click(Sender: TObject);
var
formatInfo:string;
begin
if OpenPictureDialog1.Execute then
begin
Application.CreateForm(TImageForm, ImageForm);
ImageForm.Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
ImageForm.ClientHeight:=ImageForm.Image1.Picture.Height;
ImageForm.ClientWidth:=ImageForm.Image1.Picture.Width;
end;
end;

Lanjut, codingnya begini...
procedure TMainForm.Histogram2Click(Sender: TObject);
begin
if ImageForm<>nil then
begin
ImageForm:=TImageForm(ActiveMDIChild);
try
begin
Application.CreateForm(THistogramForm,HistogramForm);
HistogramForm.ShowHistogram(ImageForm.Image1);
end;
except
HistogramForm.Free;
ShowMessage('File Terlalu Besar');
end;
end;
end;