질문 1에 대한 답변입니다..

첩부되는 소스를 다운로드 받아보시구요..

대충 소스를 여곳에 써본다면..



procedure TForm1.Button1Click(Sender: TObject);

var

HandleDC: hDC;

Bitmap: TBitmap;

begin

Bitmap := nil;



HandleDC := getDC(Edit1.Handle);

try

Bitmap := TBitmap.Create;



Bitmap.Width := Edit1.Width-7;

Bitmap.Height := Edit1.Height-7;

Bitmap.Palette := Form1.GetPalette;



bitBlt(Bitmap.Canvas.Handle,

0, 0, Edit1.Width, Edit1.Height,

HandleDC, 1, 1, SRCCOPY);



Image1.Picture.Bitmap.Assign(Bitmap);

releaseDC(Edit1.Handle, HandleDC);

finally

Bitmap.Free;

Bitmap := nil;

end;

end;



이런~ 화일은 어떻게 올리죠??

음... 옛날엔 문서첨부라는 것이 있었던거 같았는데......

않보이네요..



폼에.. 버튼 하나.. Edit하나.. Image 컴포넌트 하나입니다..

컴포넌트의 이름은 바꾸지 않고 사용합니다..



그럼 도움 되시길..



로비 wrote:

> 목적 : 펌웨어가 있답니다 (LCD계기판이 있죠)

> 그곳의 LCD에 임의의 문자열이나 그림을 넣을수 있는

> 프로그램을 제작중입니다

>

> 경과 : 여러가지 LCD관련 VCL들을 보았는데요.

> 일단 유니코드 지원안하는 것들 뿐이더군요

> 대부분 자체 폰트(?)를 매트릭스화 해 있구요

> 단, 소스는 없지만 nccled라는 프로그램이 유니코드및

> 윈도우 지원 모든 폰트를 지원합니다

>

> 방향 : 우선은 스트링이나 이미지를 비트맵으로 바꾼뒤,

> 그놈의 Hexa값을 넘겨주면 될것 같은데요...

>

> 질문 : 1. edit1.text의 내용('로비는델초보')을 image1으로 어떻게 바꾸나요 ?

> 2. 파일을 읽을때, 적당한 바이트로 끊어서 0101로 표현하면

> FontView 의 기능을 할것 같은데 , 그런가요 ?

>

> * 간단한 예제 올려주심 감사하구요 ^.^

>

> 더운날 .. 고생들 하세요

>

>

>

>

>

>