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.
Canvas scroll bar kullanimi
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Canvas scroll bar kullanimi
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;
Kalk ve işe yarar bir şey yap! Çünkü Allah (c.c.) yeniden başlayanların yardımcısıdır.