제가 아는 어떤 분이랑 이름이 같군요

방가 ~~~

LCD 계기판의 문자판을 프로그램으로 넣은 적이 있습니다

Memo의 Text 를 Bitmap으로 다시 Bitmap을 Hex나 0101값으로 변환해적이 있습니다

그때 썼던 Text --> Bitmap 코드가 아래와 같습니다

도움이 되셨으면 합니다

즐푸 하이소



procedure TForm1.Button1Click(Sender: TObject);

var

HandleDC: hDC;

Bitmap: TBitmap;

begin

Bitmap := nil;

HandleDC := getDC(Memo1.Handle);

try

Bitmap := TBitmap.Create;

Bitmap.Width := Memo1.Width-7;

Bitmap.Height := Memo1.Height-7;

Bitmap.Palette := Form1.GetPalette;

bitBlt(Bitmap.Canvas.Handle,

0, 0, Memo1.Width, Memo1.Height,

HandleDC, 1, 1, SRCCOPY);

Image1.Picture.Bitmap.Assign(Bitmap);

releaseDC(Memo1.Handle, HandleDC);

finally

Bitmap.Free;

end;

end;