Fórum Como faço para Gerar uma imagem BMP no delphi? #173823
08/08/2003
0
Obs. espero ter me expressado bem, caso alguem saiba e nao intendeu mais ou menos qual é minha dúvida, é so escrever.
obrigado.
Seek
Curtir tópico
+ 0Posts
08/08/2003
Ivonei
|bom, queria sabe como faço para gerar uma imagem Bitmap pelo delphi
Gerar como? De um arquivo texto? Abrir uma imagem salva? :?:
Gostei + 0
11/08/2003
Stalker
Obrigado
Gostei + 0
11/08/2003
Ivonei
procedure ConvTextOut(CV: TCanvas; const sText: String; x, y,angle:integer);
//
// Escreve um texto e converte-o em Imagem
//
var
LogFont: TLogFont;
SaveFont: TFont;
begin
SaveFont := TFont.Create;
SaveFont.Assign(CV.Font);
GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
with LogFont do
begin
lfEscapement := angle *10;
lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
end;
CV.Font.Handle := CreateFontIndirect(LogFont);
SetBkMode(CV.Handle, TRANSPARENT);
CV.TextOut(x, y, sText);
CV.Font.Assign(SaveFont);
SaveFont.Free;
end;
Gostei + 0
11/08/2003
M@rcelo
Como eu mando parametros para esta rotina, o que epreciso pra usal-la?
procedure ConvTextOut(CV: TCanvas; const sText: String; x, y,angle:integer);
Obrigado
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)