LAPORAN PRAKTIKUM FISIKA KOMPUTASI INTERPRETASI ...

Laporan Praktikum FisKom RGB
{ Public declarations }
end;
var
Form1: TForm1;
gambar2 :Tbitmap;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
red,green,blue:byte;
a,b,lebar:Integer;
Part 3
warna:TColor;
open:string;
begin
OpenDialog1.Execute;
open:=OpenDialog1.FileName;
Image1.Picture.LoadFromFile(open);
scrollbar1.Enabled := True;
gambar2.Assign(Image1.Picture);
ScrollBar1.Max:=Image1.Picture.Height;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
gambar2:=TBitmap.Create;
// ScrollBar1.Max:=Image1.Picture.Height;
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
var
red,green,blue:byte;
Part 4
a,b,lebar:Integer;
warna:TColor;
garis:TBitmap;
begin
Series1.Clear;
Series2.Clear;
Series3.Clear;
b:=ScrollBar1.Position;
lebar:=Image1.Picture.Bitmap.Width;
garis:=TBitmap.Create;
garis.Assign(gambar2);
garis.Canvas.MoveTo(0,b);