با سلام
میخوام یه عکس رو مثل طرح قالیبافی دربیارم و برای اینکار با کد زیر عکس رو گرید بندی میکنم اما این کد گرید بندی رو روی عکس اعمال نمیکنه بلکه روی Image انجام میده و موقیعتش رو روی عکس دوم میاندازه. حالا میخوام این دو عکس رو باهم مرج کنم تا بتونم با گرید عکس رو ذخیره کنم.
کد:
کد:
procedure
MakeGridOnControl(AGridImage: TImage; AHostImage: TImage; GridXSize,
GridYSize: integer; GridXColor, GridYColor: TColor);
var*
*i: integer;
begin
**if not Assigned(AGridImage) then
****Exit;**
**if not Assigned(AHostImage) then**
**Exit;**
**if GridXSize <= 0 then**
**GridXSize := 1;***
*if GridYSize <= 0 then**
**GridYSize := 1;****
AGridImage.Picture := nil;**
AGridImage.BringToFront;*
*AGridImage.AutoSize := False;**
AGridImage.SetBounds(AHostImage.Left, AHostImage.Top, AHostImage.Width, AHostImage.Height);*
*AGridImage.Transparent := true;*
*AGridImage.Canvas.Brush.Color := clWhite;
**AGridImage.Canvas.FillRect(AGridImage.ClientRect);**
**i := GridXSize;**
AGridImage.Canvas.Pen.Color := GridXColor;**while i < AGridImage.Width do****
begin****AGridImage.Canvas.MoveTo(i, 0);***
*AGridImage.Canvas.LineTo(i, AGridImage.Height);**
**inc(i, GridXSize);*
***end;**
**i := GridYSize;*
*AGridImage.Canvas.Pen.Color := GridYColor;*
*while i < AGridImage.Height do**
**begin
****AGridImage.Canvas.MoveTo(0, i);**
**AGridImage.Canvas.LineTo(AGridImage.Width, i);*
***inc(i, GridYSize);***
*end;
end;
مجوز های ارسال و ویرایش
پاسخ با نقل قول
علاقه مندي ها (Bookmarks)