반응형
with Image1 do
begin
Canvas.Brush.Style := bsClear;
Canvas.Font.Color := clWhite;
Canvas.Font.Size:=12;
Canvas.Font.Style :=[fsBold];
Canvas.TextOut(10, 10,'fdafstest');
end; // with
반응형
with Image1 do
begin
Canvas.Brush.Style := bsClear;
Canvas.Font.Color := clWhite;
Canvas.Font.Size:=12;
Canvas.Font.Style :=[fsBold];
Canvas.TextOut(10, 10,'fdafstest');
end; // with