Delphi Forum

resim düzenleme proğramıma resmin üzerine paintte olduğu gibi ve daha fazla şekilde fırçalar eklemek istiyorum ama bunu nasıl yapıcamı bilmiyorum yardım edermisiniz

Formun onPaint olayı vardır. Form seçili iken (form üzerinde bir bileşen değil) özellikler penceresinde onShow, onClose v.s. gibi olaylar vardır. Bu olaylardan biri de onPaint'tir
saol ama on paint olayına mı yazıcam canvas die ama ben butona atamıştım herşeyi bi pencerede gösteriyodu tüm ...

tamam teşekküler aramadan yazmam zaten buraya ama işin içinden çıkamıycam gibi görünüyo

okudum o yazıyı nasıl yapıcağımıda biliyorum ama ben jpg olarak kaydetmek istiyorummmmm

[ Canvas'a yapılan çizim, yazı gibi etkiler kalıcı değildir. Bunu kalıcı kılmak için onPaint olayına yazılmalı ki her tazeleme de gerekli çizimler gerçekleşsin. Bunun yerine TImage 'a çizim yaparakta kalıcı çizim yapılabilir. Zira TImage'a yapılan çizimler hafızada tutulur ve programcıyı fazla ...

procedure TForm1.BitBtn1Click(Sender: TObject);
var
y,x:integer;

Bitmap : TBitmap;
img1 : TBitmap;
XRect : TRect;

begin
y:=StrToint(Edit1.Text);
x:=StrToint(Edit2.Text);

try

Bitmap := TBitmap.Create;
Bitmap.Width := Form1.Image1.Picture.Width;
Bitmap.Height := Form1.Image1.Picture ...

procedure TForm1.BitBtn3Click(Sender: TObject);
var
OldBkMode: integer;
begin
Canvas.Font.Color := clBlue;
OldBkMode := SetBkMode(Canvas.Handle, Ord(TRANSPARENT));
Canvas.Font.Size :=form2.edit1.Font.Size;
canvas.Font.Color:=form2.edit1.Font.Color;
canvas.Font.Name:=form2.edit1.Font.Name ...