![Membuat Membuat](https://prostylex.org/uploads/images/2495560.png)
Buat Form Seperti Berikut
Kali Saya Akan Membagikan Ilmu CARA MEMBUAT TEXS BERJALAN DI DELPHI 7 DENGAN SIMPEL, Ikuti Tutor Yang Saya Buat Agar Tidak Eror Pas Di Run. Ok Langsung Aja Kita Praktekan:) #ALAT YANG DIPERLUKAN# 1.-1 Panel 2.-1 Label 3.-1 Timer #LANGKAH PERTAMA# 1.-Buka Delphi 7. Assalamu'alaikum Wr.wb Shobat shada semua kali ini saya akan Share Sebuah cara untuk membuat Data didalam database menggunakan Data Base:D langung saja ke TKP hehehe: Langkah-langkah membuat database: 1. Masuk kedalam database dekstop 2. Pilih File terus working direktory tekan browse cari drive folder yang ingin digunakan databasenya 3.
![Membuat keygen dengan delphi 7 pdf Membuat keygen dengan delphi 7 pdf](/uploads/1/1/9/4/119420569/432763564.png)
Dec 01, 2011 Pada Delphi pun kita bisa membuat Database seperti VB, VB.Net dan sebagainya. Untuk membuat Database delphi memiliki tool sendiri yang terdapat didalam aplikasinya yang disebut dengn Database Desktop berikut tampilannya: Nha sekrang gimana cara membuat Databasenya. Okey langsung aja.
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;
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;
Membuat Keygen Dengan Delphi 7 Programming
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;
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;
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;
Membuat Keygen Dengan Delphi 7 0
procedure TfGray.FormCreate(Sender: TObject);
begin
EdtSourceFile.Text:=”;
end;
begin
EdtSourceFile.Text:=”;
end;
procedure TfGray.HeaderDblClick(Sender: TObject);
begin
ShowMessage(‘Aplikasi Tidak Bisa Diperbesar’);
end;
begin
ShowMessage(‘Aplikasi Tidak Bisa Diperbesar’);
end;
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.