Canvas scroll bar kullanimi

[Bemrag]

Herkese merhaba ,

Canvas move to ve line to komutları ile kendi ismimi yazdırdım. Yalnız şöyle bir sorunum var ve çözüm bulamadım bu yazdırdığı ismi 2 tane scroll bar yardımı ile form üzerinde yer değişimini (form üzerinde sağa-sola ve yukarı aşağı hareket) sağlamam gerekiyor. Ancak scroll bar i canvas ile bir turlu kullanamadım.bu konuda yardımcı olabilirseniz çok sevinirim.

[loaded]

Merhaba, Kodlar LAZARUS'ta yazılıp denenmiştir.

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ScrollBox:TScrollBox;
  Image:TImage;
begin
  ScrollBox := TScrollBox.Create(Self);
  ScrollBox.parent := self;
  ScrollBox.Left := 0;
  ScrollBox.Top := 0;
  ScrollBox.Align:=alClient;
  ScrollBox.HorzScrollBar.Tracking:=true;
  ScrollBox.VertScrollBar.Tracking:=true;
  ScrollBox.DoubleBuffered:=true;

  Image:=TImage.Create(ScrollBox);
  Image.Parent:=ScrollBox;
  Image.Picture.Bitmap:=nil;
  image.Left:=0;
  image.Top:=0;
  image.Width:=1500;
  image.Height:=1500;
  image.Canvas.Brush.Color:=clBlack;
  image.Canvas.FillRect(image.canvas.ClipRect);

  image.canvas.Font.Color:=clRed;
  image.canvas.Font.size:=50;

  image.Canvas.TextOut(round(image.Width/2),round(image.Height/2),'Loaded'); //Yazıyı canvasın ortasına 750,750 konumuna yaz ...
end;