Mega Code Archive

 

Categories / Delphi / Graphic

 

3d yazı yazmak

procedure imgPaintCanvas(TheCanvas : TCanvas; TheString : String; TheFontSize, UCorner, LCorner : Integer); Begin TheCanvas.Brush.Style := bsClear; TheCanvas.Font.Style := [fsBold]; TheCanvas.Font.Name := 'MS Sans Serif'; TheCanvas.Font.Size := TheFontSize; TheCanvas.Font.Color := clBlack; TheCanvas.TextOut(UCorner, LCorner, TheString); TheCanvas.Font.Color := clGray; TheCanvas.TextOut(UCorner - 1, LCorner - 1, TheString); TheCanvas.Font.Color := clSilver; TheCanvas.TextOut(UCorner - 2, LCorner - 2, TheString); TheCanvas.Font.Color := clBlack; TheCanvas.TextOut(UCorner - 3, LCorner - 3, TheString); End; //Şöyle Çalışıyor imgPaintCanvas(Image3.Canvas, '0', 10, 6, 4);