Q&A

  • 이거 어떤분이 올리신 건데 안되네요.
폼에다가 타일 이미지를 까는 건데 FormPaint는 어떻게 선언하고

비트맵을 어쩌라고 하는 건지 쩝~

그리고 경로명은 어느 디렉토리를 얘기하는 건지...

ship.bmp ???

(폼1.캔바스.브러쉬.비트맵) 이게 뭡니까?

제가 하고 싶은 것은 MDI폼에 타일 이미지를 까는 건데 다른 예제도 해보았는데

안되네요. 책에 있는 것두 안되다니 제가 좀 멍청한건가요?

혹시 잘되는 소스좀 보여주세요.

부모폼에서 잘 보이는 소스를 가지고 계시다면요.

그럼 부탁드립니다.



procedure TForm1.FormPaint(Sender: TObject);

var

Bitmap: TBitmap;

begin

Bitmap := TBitmap.Create;

try

Bitmap.LoadFromFile('Ship.bmp');

Form1.Canvas.Brush.Bitmap := Bitmap; // 이게 뭐죠?

Form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight)); // 이것두 에러

finally

Form1.Canvas.Brush.Bitmap := nil; // 당연히 에러

Bitmap.Free;

end;

end;

3  COMMENTS
  • Profile
    조규춘 2000.04.19 05:52
    mad wrote:

    > 폼에다가 타일 이미지를 까는 건데 FormPaint는 어떻게 선언하고



    폼을 선택하고 오브젝트 인스펙터의 오른쪽에 보시면 이벤트가 있지요!

    거기서 보시면은 onpaint 라고 하는 이벤트가 있어요!

    그것을 더블클릭해서 아래의 소스를 치셔요! (아님! 복사하시구요)





    > 비트맵을 어쩌라고 하는 건지 쩝~

    > 그리고 경로명은 어느 디렉토리를 얘기하는 건지...

    > ship.bmp ???



    Bitmap.LoadFromFile('Ship.bmp'); 에서 ('Ship.bmp')이 부분에 적어주는것이

    경로를 적어주는 겁니다. 그러니끼니.....

    만약 타일로 깔아줄 그림을 여기에다가 적는거지요!

    예를 들어 c 드라이브에 image 폴더에 ses.bmp를 설치하려면...

    Bitmap.LoadFromFile('c:imageses.bmp'); 이렇게 하면 되지요!



    > (폼1.캔바스.브러쉬.비트맵) 이게 뭡니까?



    델파이로 폼에 그림을 그릴때 그림이 곧바로 폼에 그려지는 것이 아니라...

    폼에 속성중에 하나인 canvas에 의해서 그려지는 겁니다.

    거기서 그림을 불러오는 거지요!



    > 제가 하고 싶은 것은 MDI폼에 타일 이미지를 까는 건데 다른 예제도 해보았는데

    > 안되네요. 책에 있는 것두 안되다니 제가 좀 멍청한건가요?



    제가 더 멍청하겠지요! 히~! -> 농담이구요!

    처음부터 잘하는 사람이 있나요!



    > 혹시 잘되는 소스좀 보여주세요.



    아래에 있는 것이 소스여요



    > 부모폼에서 잘 보이는 소스를 가지고 계시다면요.

    > 그럼 부탁드립니다.

    >

    > procedure TForm1.FormPaint(Sender: TObject);

    > var

    > Bitmap: TBitmap;

    > begin

    > Bitmap := TBitmap.Create;

    타일로 깔 그림을 생성시키는 겁니다.

    > try

    > Bitmap.LoadFromFile('Ship.bmp');

    타일로 깔 그림을 불러오는 겁니다.

    > Form1.Canvas.Brush.Bitmap := Bitmap; // 이게 뭐죠?

    불러온 그림을 폼에 그려줄려고 하는 거지요!



    > Form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight)); // 이것두 에러

    > finally

    > Form1.Canvas.Brush.Bitmap := nil; // 당연히 에러

    > Bitmap.Free;

    > end;

    > end;



    히~! 행복하셔요!

  • Profile
    mad 2000.04.20 09:38
    저 에러는 안뜨는데 폼의 타일이 안보이네요.

    이거 혹시 그냥폼에서 사용하는 건가요?

    책에 있는 것은 무척 길던데...

    책속에 있는 것은 또 왜 안되는 걸까요.

    '영진출판사'의 델파이 프로그래밍 바이블이라는 두꺼운 책인데...

    아무 그림없는 MDI폼은 지겹습니다.

    왜 안되는 걸까요?





    > procedure TForm1.FormPaint(Sender: TObject);

    > var

    > Bitmap: TBitmap;

    > begin

    > Bitmap := TBitmap.Create;

    타일로 깔 그림을 생성시키는 겁니다.

    > try

    > Bitmap.LoadFromFile('Ship.bmp');

    타일로 깔 그림을 불러오는 겁니다.

    > Form1.Canvas.Brush.Bitmap := Bitmap; // 이게 뭐죠?

    불러온 그림을 폼에 그려줄려고 하는 거지요!



    > Form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight)); // 이것두 에러

    > finally

    > Form1.Canvas.Brush.Bitmap := nil; // 당연히 에러

    > Bitmap.Free;

    > end;

    > end;





  • Profile
    조규춘 2000.04.20 10:02


    저에게 그 소스를 압축해서 보내주이소....



    그럼 제가 아주 친절하게 주석문까정 다 달아서 보내드리지요!



    그 책은 저도 가지고 있지요! 히~!



    항상 즐거운 시간 되시십요!



    조규춘 올림...

    mad wrote:

    > 저 에러는 안뜨는데 폼의 타일이 안보이네요.

    > 이거 혹시 그냥폼에서 사용하는 건가요?

    > 책에 있는 것은 무척 길던데...

    > 책속에 있는 것은 또 왜 안되는 걸까요.

    > '영진출판사'의 델파이 프로그래밍 바이블이라는 두꺼운 책인데...

    > 아무 그림없는 MDI폼은 지겹습니다.

    > 왜 안되는 걸까요?

    >

    >

    > > procedure TForm1.FormPaint(Sender: TObject);

    > > var

    > > Bitmap: TBitmap;

    > > begin

    > > Bitmap := TBitmap.Create;

    > 타일로 깔 그림을 생성시키는 겁니다.

    > > try

    > > Bitmap.LoadFromFile('Ship.bmp');

    > 타일로 깔 그림을 불러오는 겁니다.

    > > Form1.Canvas.Brush.Bitmap := Bitmap; // 이게 뭐죠?

    > 불러온 그림을 폼에 그려줄려고 하는 거지요!

    >

    > > Form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight)); // 이것두 에러

    > > finally

    > > Form1.Canvas.Brush.Bitmap := nil; // 당연히 에러

    > > Bitmap.Free;

    > > end;

    > > end;

    >

    >

    • 구창민
      2000.04.19 09:46
      델파이어 wrote: > 안녕하세요..^^ > 개인적으로 사용 할 CD타이틀을 만드는데요, > CD타이틀 프로그램...
    • 안명호
    • 2000.04.19 05:59
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 안명호
      2000.04.20 02:03
      프로그래밍시 한글 폰트 사용할때 스크립트를 영문으로 두어 그런 현상이 나타나더군요... 2000에서는 ...
    • 구창민
      2000.04.19 09:43
      안명호 wrote: > 윈도우 2000에서 프로그램을 작성하여 윈도우 98에서 동작을 시켜보면 > > 프로그램 ...
    • 안명호
      2000.04.20 02:01
      구창민님 우선 성의 있는 답변 감사드립니다. 하지만 다른 방법으로 문제를 해결 하였습니다. 다른분...
    • 구창민
      2000.04.20 09:41
      안명호 wrote: > 구창민님 우선 성의 있는 답변 감사드립니다. > > 하지만 다른 방법으로 문제를 해결 ...
    • HART
      2000.04.19 18:36
      어떤 형식으로 디비 세개를 연결하여 출력하는야 따라서 코딩 조금씩 변경되는데.. 먼저 연결 출력 형태가...
    • 이언주
      2000.04.19 20:01
      답변해주셔서 감사드립니다.제가 출력을 해야될 부분은 일일일정표로서 금일일정,행사일정,차량정보,생일자...
    • HART
      2000.04.21 00:56
      델파이 예제에 보면 잘 나와 있습니다 위치는 bolanddemosquickrpt 있습니다. 소스 4줄 ~ 5줄 정도 됩니...
    • TeamX
      2000.04.19 11:45
      저도 잘은 모르지만 권장되는 폴더당 파일갯수는 500-600개 정도 인걸로 들은것 같습니다... 많으면 속...
    • 초보1
    • 2000.04.19 05:06
    • 5 COMMENTS
    • /
    • 0 LIKES
    • Mr.Q
      2000.04.19 11:41
      초보1 wrote: > > 안녕하십니까 ... > 두개의 maskedit3, maskedit4로 일자를 구하려 하는데 잘안되네...
    • 초보1
      2000.04.19 18:59
      그렇게 하니 error가 ''20000301' is not a valid date and time' 라고 하네요.
    • Mr.Q
      2000.04.20 00:19
      초보1 wrote: > > 그렇게 하니 error가 > ''20000301' is not a valid date and time' 라고 하네요. ...
    • 조규춘
      2000.04.19 05:29
      초보1 wrote: > > 안녕하십니까 ... > 두개의 maskedit3, maskedit4로 일자를 구하려 하는데 잘안되네...
    • 초보1
      2000.04.19 19:08
      EditMask의 값를 ####-##-##;0; 에서 !9999/99/00;1;_ 로 변경하여 실행하니 그렇게 하니 error...
    • mad
    • 2000.04.19 04:31
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 조규춘
      2000.04.19 05:38
      mad wrote: > 멤버 디비에 저장된 총 멤버수는 어떻게 나타내죠? > > 그리고 만약 조건을 넣어도 상관 ...
    • mad
      2000.04.20 09:33
      레코드 숫자는 결국 어떻게 나타냅니까? Table1.RecordCount; 이건 어따가 쓰는거죠? 이걸 Edit에 연결...
    • 조규춘
      2000.04.20 09:56
      inttostr은 정수형을 문자형으로 바꾸는 겁니다. 히~! Edit1.text := inttostr(Table1.RecordCount); ...
    • mad
    • 2000.04.19 04:27
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 조규춘
      2000.04.19 06:04
      mad wrote: > 모르겄어요. > 폼1에서 edit1,2가 있고 우편번호 버튼을 누르면 > 폼2가 뜨고 우편번호를 ...
    • mad
    • 2000.04.19 04:20
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 조규춘
      2000.04.19 05:52
      mad wrote: > 폼에다가 타일 이미지를 까는 건데 FormPaint는 어떻게 선언하고 폼을 선택하고 오브젝...
    • mad
      2000.04.20 09:38
      저 에러는 안뜨는데 폼의 타일이 안보이네요. 이거 혹시 그냥폼에서 사용하는 건가요? 책에 있는 것은 무...
    • 조규춘
      2000.04.20 10:02
      저에게 그 소스를 압축해서 보내주이소.... 그럼 제가 아주 친절하게 주석문까정 다 달아서 보내드리...
    • mad
    • 2000.04.19 04:09
    • 2 COMMENTS
    • /
    • 0 LIKES
    • Mr.Q
      2000.04.19 12:04
      mad wrote: > 파라독스를 사용하고 있습니다. > > 그런데 근디 > Datasorce1,Datasorce2, table1, DBG...
    • mad
      2000.04.20 09:28
      그런디 > with query1 do > begin > close; > sql.clear; > sql.add('select * from inout.db wher...
    • allenive
    • 2000.04.19 04:02
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 장경임
      2000.04.26 03:23
      allenive wrote: > procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word; > Shift: TShif...
    • 구창민
      2000.04.19 09:54
      꿈틀이 wrote: > 제목 그대로 브라우져 안에 있는 text중에서 마우스 포인터가 위치한 곳에 text를 캡쳐하...
    • 꿈틀이
      2000.04.20 19:14
      답변 감사합니다. ^^; 야후에서 못 찾고 네이버에서 찾았는데 그곳이 맞는지 몰라도 이제는 컴포넌트 파...
    • hee
    • 2000.04.19 02:07
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 조규춘
      2000.04.19 03:13
      hee wrote: > 폼의 크기에 따라 컨트롤의 크기를 변하게 하는 프로퍼티