Semoga berhasil... Jika ada masalah kirim email ke : putu_dalungcity@yahoo.co.id
Nama : Abryan Tata Pangarsa
Web : abryantp.blogspot.com
Sourcecode [ Membuat program open file gambar ] :
unit Abryan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls, ExtDlgs, Menus;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Open1: TMenuItem;
Stretch1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
OpenPictureDialog1: TOpenPictureDialog;
Image1: TImage;
procedure Exit1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Stretch1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
bentang : Boolean ;
implementation
{$R *.dfm}
procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate ;
end;
procedure TForm1.Open1Click(Sender: TObject);
begin
if (OpenPictureDialog1.Execute = True) then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName );
HorzScrollBar.Range := Image1.Width ;
VertScrollBar.Range := Image1.Height ;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
bentang := False ;
end;
procedure TForm1.Stretch1Click(Sender: TObject);
begin
bentang := not bentang ;
if bentang then
begin
Stretch1.Checked := True;
HorzScrollBar.Range := 0 ;
VertScrollBar.Range := 0;
end
else
begin
Stretch1.Checked := False;
HorzScrollBar.Range := Image1.Width ;
VertScrollBar.Range := Image1.Height ;
end;
Image1.Stretch := bentang ;
end;
end.