Buat Form Seperti Berikut
- Membuat Keygen Dengan Delphi 7 Windows 7
- Membuat Keygen Dengan Delphi 7 Download
- Membuat Keygen Dengan Delphi 7 Pdf
- Membuat Keygen Dengan Delphi 7 0
- Membuat Keygen Dengan Delphi 7 64
Pada kesempatan kali ini Saya mau bahas Cara install Alphaskins v.8 di Delphi 7, Banyak yg sudah tau cara install skins untuk mempercantik tampilan aplikasi delphi, tapi gk ada salahnya saya bahas kembali, untuk bahan baca-baca yg belum faham mengenai install alpha skins ini.
Merubah citra berwarna menjadi citra Grayscale. Untuk membuat citra berwarna menjadi citra dengan grayscale (abu-abu) maka nilai warna ditiap piksel citra kita manipulasi menggunakan Sourcode Berikut:
unit uMain;
- Membuat Text Editor Sederhana dengan Delphi 7. Assalammu’alaikum Warrahmatullahi Wabarakatuh. Salam sejahtera untuk kita semua. Dalam kesempatan kali ini saya akan mencoba membagi apa yang telah saya buat yakni tentang bagaimana Membuat Text Editor Sederhana dengan Delphi 7.
- Keygen Borland Delphi 7 Enterprise Edition. Dimana Delphi 7 ini meruapakan sebuah bahasa pemrograman berbasis visual yang digunakan untuk membuat program aplikasi pada laptop atau komputer yang sobat miliki. Dalam software ini memiliki kelebihan yang dimana kelebihan borlan delphi 7 ini dapat sobat liat di bawah postingan ini.
- Borland Delphi 7 Enterprise Terbaru Full adalah pengembangan lingkungan terpadu yang kuat (IDE) yang dikembangkan oleh Borland,bekerja untuk konsol, desktop,web,dan aplikasi mobile.Alat pengembangan aplikasi yang cepat ini mandiri, bekerja sama dengan beberapa platform seperti sistem Windows (32-bit/64-bit),Mac OS X,iOS dan Android.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, jpeg, StdCtrls, ExtDlgs, ComCtrls, Menus;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, jpeg, StdCtrls, ExtDlgs, ComCtrls, Menus;
type
TfGray = class(TForm)
BackGround: TImage;
Header: TPanel;
spdbtnExit: TSpeedButton;
spdMinimize: TSpeedButton;
ImgLoad: TImage;
EdtSourceFile: TEdit;
spdbtnUpload: TSpeedButton;
SpeedButton2: TSpeedButton;
ImgGray: TImage;
OpdLoad: TOpenPictureDialog;
SpeedButton1: TSpeedButton;
OpdSave: TSavePictureDialog;
PopupMenu1: TPopupMenu;
Pembuat1: TMenuItem;
SpeedButton3: TSpeedButton;
StatusBar1: TStatusBar;
procedure spdbtnExitClick(Sender: TObject);
procedure spdMinimizeClick(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure spdbtnUploadClick(Sender: TObject);
procedure EdtSourceFileClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure HeaderDblClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Pembuat1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fGray: TfGray;
Jpg: TJPEGImage;
Bmp :TBitmap;
TfGray = class(TForm)
BackGround: TImage;
Header: TPanel;
spdbtnExit: TSpeedButton;
spdMinimize: TSpeedButton;
ImgLoad: TImage;
EdtSourceFile: TEdit;
spdbtnUpload: TSpeedButton;
SpeedButton2: TSpeedButton;
ImgGray: TImage;
OpdLoad: TOpenPictureDialog;
SpeedButton1: TSpeedButton;
OpdSave: TSavePictureDialog;
PopupMenu1: TPopupMenu;
Pembuat1: TMenuItem;
SpeedButton3: TSpeedButton;
StatusBar1: TStatusBar;
procedure spdbtnExitClick(Sender: TObject);
procedure spdMinimizeClick(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure spdbtnUploadClick(Sender: TObject);
procedure EdtSourceFileClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure HeaderDblClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Pembuat1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fGray: TfGray;
Jpg: TJPEGImage;
Bmp :TBitmap;
implementation
uses Math, uPembuat;
uses Math, uPembuat;
{$R *.dfm}
procedure TfGray.spdbtnExitClick(Sender: TObject);
begin
Application.Terminate;
end;
begin
Application.Terminate;
end;
procedure TfGray.spdMinimizeClick(Sender: TObject);
begin
Application.Minimize;
end;
begin
Application.Minimize;
end;
procedure TfGray.SpeedButton2Click(Sender: TObject);
var brs, kol, r : Integer;
clr : Longint;
temp : PByteArray;
rgb1 : array [0..2] of Integer;
begin
ImgGray.Picture.Bitmap := ImgLoad.Picture.Bitmap;
ImgGray.Picture.Bitmap.PixelFormat := pf24bit;
for brs := 0 to ImgGray.Picture.Bitmap.Height-1 do
begin
temp := ImgGray.Picture.Bitmap.ScanLine[brs];
Application.ProcessMessages;
kol := 0;
repeat
//clr :=((temp[kol])+(temp[kol+1])+(temp[kol+2]))div 3;
Rgb1[0] := temp[kol];
Rgb1[1] := temp[kol+1];
Rgb1[2] := temp[kol+2];
clr := MaxIntValue(rgb1);
for r:=0 to 2 do
temp[kol+r] := clr;
inc(kol,3);
until kol >= 3*ImgGray.Picture.Bitmap.Width-1;
end;
ImgGray.Invalidate;
end;
var brs, kol, r : Integer;
clr : Longint;
temp : PByteArray;
rgb1 : array [0..2] of Integer;
begin
ImgGray.Picture.Bitmap := ImgLoad.Picture.Bitmap;
ImgGray.Picture.Bitmap.PixelFormat := pf24bit;
for brs := 0 to ImgGray.Picture.Bitmap.Height-1 do
begin
temp := ImgGray.Picture.Bitmap.ScanLine[brs];
Application.ProcessMessages;
kol := 0;
repeat
//clr :=((temp[kol])+(temp[kol+1])+(temp[kol+2]))div 3;
Rgb1[0] := temp[kol];
Rgb1[1] := temp[kol+1];
Rgb1[2] := temp[kol+2];
clr := MaxIntValue(rgb1);
for r:=0 to 2 do
temp[kol+r] := clr;
inc(kol,3);
until kol >= 3*ImgGray.Picture.Bitmap.Width-1;
end;
ImgGray.Invalidate;
end;
Membuat Keygen Dengan Delphi 7 Windows 7
procedure TfGray.spdbtnUploadClick(Sender: TObject);
var
ImageJpg: TJPEGImage;
Imagebmp: TBitmap;
Strfile:string;
formatInfo:string;
begin
Imagejpg := TJPEGImage.Create();
Imagebmp := TBitmap.Create();
if (OpdLoad.Execute) then
begin
if ((ExtractFileExt(OpdLoad.FileName)=’.jpeg’)
OR (ExtractFileExt(OpdLoad.FileName)=’.jpg’))then
begin
ImageJpg.LoadFromFile(OpdLoad.FileName);
StrFile:=OpdLoad.FileName;
ImgLoad.Picture.LoadFromFile(strfile);
EdtSourceFile.Text:=strfile;
Imagebmp.Assign(imagejpg);imgLoad.Picture.Bitmap:=imagebmp;
end
else if (ExtractFileExt(OpdLoad.FileName)=’.bmp’) then
begin
Imagebmp.LoadFromFile(OpdLoad.FileName);
ImgLoad.Picture.Bitmap:=imagebmp;
end else MessageDlg(‘Ekstensi tidak diketahui’, mtCustom, mbOKCancel, 0)
end;
StatusBar1.SimpleText:= OpdLoad.FileName +’ ‘+
IntToStr(ImgLoad.Picture.Width) + ‘x’+
IntToStr(ImgLoad.Picture.Height) + ‘ ‘+
formatInfo;
end;
var
ImageJpg: TJPEGImage;
Imagebmp: TBitmap;
Strfile:string;
formatInfo:string;
begin
Imagejpg := TJPEGImage.Create();
Imagebmp := TBitmap.Create();
if (OpdLoad.Execute) then
begin
if ((ExtractFileExt(OpdLoad.FileName)=’.jpeg’)
OR (ExtractFileExt(OpdLoad.FileName)=’.jpg’))then
begin
ImageJpg.LoadFromFile(OpdLoad.FileName);
StrFile:=OpdLoad.FileName;
ImgLoad.Picture.LoadFromFile(strfile);
EdtSourceFile.Text:=strfile;
Imagebmp.Assign(imagejpg);imgLoad.Picture.Bitmap:=imagebmp;
end
else if (ExtractFileExt(OpdLoad.FileName)=’.bmp’) then
begin
Imagebmp.LoadFromFile(OpdLoad.FileName);
ImgLoad.Picture.Bitmap:=imagebmp;
end else MessageDlg(‘Ekstensi tidak diketahui’, mtCustom, mbOKCancel, 0)
end;
StatusBar1.SimpleText:= OpdLoad.FileName +’ ‘+
IntToStr(ImgLoad.Picture.Width) + ‘x’+
IntToStr(ImgLoad.Picture.Height) + ‘ ‘+
formatInfo;
end;
Membuat Keygen Dengan Delphi 7 Download
procedure TfGray.EdtSourceFileClick(Sender: TObject);
var
Strfile:string;
formatInfo:string;
begin
Jpg := TJPEGImage.Create();
Bmp := TBitmap.Create();
if (OpdLoad.Execute) then
begin
if ((ExtractFileExt(OpdLoad.FileName)=’.jpeg’)
OR (ExtractFileExt(OpdLoad.FileName)=’.jpg’))then
begin
Jpg.LoadFromFile(OpdLoad.FileName);
StrFile:=OpdLoad.FileName;
ImgLoad.Picture.LoadFromFile(strfile);
EdtSourceFile.Text:=strfile;
Bmp.Assign(Jpg);imgLoad.Picture.Bitmap:=Bmp;
end
else if (ExtractFileExt(OpdLoad.FileName)=’.bmp’) then
begin
Bmp.LoadFromFile(OpdLoad.FileName);
ImgLoad.Picture.Bitmap:=Bmp;
end else MessageDlg(‘Ekstensi tidak diketahui’, mtCustom, mbOKCancel, 0)
end;
StatusBar1.SimpleText:= OpdLoad.FileName +’ ‘+
IntToStr(ImgLoad.Picture.Width) + ‘x’+
IntToStr(ImgLoad.Picture.Height) + ‘ ‘+
formatInfo;
end;
var
Strfile:string;
formatInfo:string;
begin
Jpg := TJPEGImage.Create();
Bmp := TBitmap.Create();
if (OpdLoad.Execute) then
begin
if ((ExtractFileExt(OpdLoad.FileName)=’.jpeg’)
OR (ExtractFileExt(OpdLoad.FileName)=’.jpg’))then
begin
Jpg.LoadFromFile(OpdLoad.FileName);
StrFile:=OpdLoad.FileName;
ImgLoad.Picture.LoadFromFile(strfile);
EdtSourceFile.Text:=strfile;
Bmp.Assign(Jpg);imgLoad.Picture.Bitmap:=Bmp;
end
else if (ExtractFileExt(OpdLoad.FileName)=’.bmp’) then
begin
Bmp.LoadFromFile(OpdLoad.FileName);
ImgLoad.Picture.Bitmap:=Bmp;
end else MessageDlg(‘Ekstensi tidak diketahui’, mtCustom, mbOKCancel, 0)
end;
StatusBar1.SimpleText:= OpdLoad.FileName +’ ‘+
IntToStr(ImgLoad.Picture.Width) + ‘x’+
IntToStr(ImgLoad.Picture.Height) + ‘ ‘+
formatInfo;
end;
procedure TfGray.FormCreate(Sender: TObject);
begin
EdtSourceFile.Text:=”;
end;
begin
EdtSourceFile.Text:=”;
end;
Membuat Keygen Dengan Delphi 7 Pdf
procedure TfGray.HeaderDblClick(Sender: TObject);
begin
ShowMessage(‘Aplikasi Tidak Bisa Diperbesar’);
end;
begin
ShowMessage(‘Aplikasi Tidak Bisa Diperbesar’);
end;
Membuat Keygen Dengan Delphi 7 0
procedure TfGray.SpeedButton1Click(Sender: TObject);
begin
if OpdSave.Execute then
begin
jpg:=TJPEGImage.Create;
jpg.Assign(ImgGray.Picture.Graphic);
jpg.SaveToFile(OpdSave.FileName);
jpg.Free;
ShowMessage(‘Done’);
end;
end;
begin
if OpdSave.Execute then
begin
jpg:=TJPEGImage.Create;
jpg.Assign(ImgGray.Picture.Graphic);
jpg.SaveToFile(OpdSave.FileName);
jpg.Free;
ShowMessage(‘Done’);
end;
end;
Membuat Keygen Dengan Delphi 7 64
procedure TfGray.Pembuat1Click(Sender: TObject);
begin
fPembuat.ShowModal;
end;
end.
begin
fPembuat.ShowModal;
end;
end.