Como faço para Gerar uma imagem BMP no delphi?
bom, queria sabe como faço para gerar uma imagem Bitmap pelo delphi, para carregar no Quick Report como figura, aparti de um arquivo Texto.
Obs. espero ter me expressado bem, caso alguem saiba e nao intendeu mais ou menos qual é minha dúvida, é so escrever.
obrigado.
Obs. espero ter me expressado bem, caso alguem saiba e nao intendeu mais ou menos qual é minha dúvida, é so escrever.
obrigado.
Seek
Curtidas 0
Respostas
Ivonei
08/08/2003
Seja mais claro.
|bom, queria sabe como faço para gerar uma imagem Bitmap pelo delphi
Gerar como? De um arquivo texto? Abrir uma imagem salva? :?:
|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
Stalker
08/08/2003
Também preciso desta informação, no meu caso pode ser de um arquivo texto ou de uma String, por exemplo o relógio da máquina.
Obrigado
Obrigado
GOSTEI 0
Ivonei
08/08/2003
Olha pessoal, o que eu tenho a respeito no momento, é uma função que converte um texto em bitmap. Veja se ajuda.
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;
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
M@rcelo
08/08/2003
Amigo ,
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
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