Mega Code Archive
Resim üzerinde transparan yazı
<![CDATA[
//...::::::( KORSAN )::::::...\\
//Formunuz üzerine image ve button nesnesi koyup
//image nesnesine bir resim yükledikten sonra
//aşağıdaki kodları uygun yerlere kopyalayın....
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.Picture.Bitmap.Canvas do
begin
Font.Color := clBlue;
Brush.Style := bsclear;
Font.Size := 13;
TextOut(10, 10, 'Transparan Yazı!!');
end;
end;
{**** Veya ****}
procedure TForm1.Button1Click(Sender: TObject);
var
OldBkMode: integer;
begin
with Image1.Picture.Bitmap do
begin
Canvas.Font.Color := clBlue;
OldBkMode := SetBkMode(Canvas.Handle, Ord(TRANSPARENT));
Canvas.Font.Size := 13;
Canvas.TextOut(10, 10, 'Transparent Yazı!!');
SetBkMode(Canvas.Handle, OldBkMode);
end;
end;
]]>