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;
비트맵을 어쩌라고 하는 건지 쩝~
그리고 경로명은 어느 디렉토리를 얘기하는 건지...
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
-
-
저 에러는 안뜨는데 폼의 타일이 안보이네요.
이거 혹시 그냥폼에서 사용하는 건가요?
책에 있는 것은 무척 길던데...
책속에 있는 것은 또 왜 안되는 걸까요.
'영진출판사'의 델파이 프로그래밍 바이블이라는 두꺼운 책인데...
아무 그림없는 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;
-
저에게 그 소스를 압축해서 보내주이소....
그럼 제가 아주 친절하게 주석문까정 다 달아서 보내드리지요!
그 책은 저도 가지고 있지요! 히~!
항상 즐거운 시간 되시십요!
조규춘 올림...
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;
>
>
(NOTICE) You must be logged in to comment on this post.
-
- [델파이]
- 2000.04.19 12:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 톰과 제리
- 2000.04.19 10:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이어
- •
- 2000.04.19 09:25
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.04.19 09:46델파이어 wrote: > 안녕하세요..^^ > 개인적으로 사용 할 CD타이틀을 만드는데요, > CD타이틀 프로그램...
-
- 궁금녀
- 2000.04.19 06:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2000.04.19 06:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 안명호
- •
- 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: > 구창민님 우선 성의 있는 답변 감사드립니다. > > 하지만 다른 방법으로 문제를 해결 ...
-
- 이언주
- •
- 2000.04.19 05:54
- 3 COMMENTS
- /
- 0 LIKES
-
HART•2000.04.19 18:36어떤 형식으로 디비 세개를 연결하여 출력하는야 따라서 코딩 조금씩 변경되는데.. 먼저 연결 출력 형태가...
-
이언주•2000.04.19 20:01답변해주셔서 감사드립니다.제가 출력을 해야될 부분은 일일일정표로서 금일일정,행사일정,차량정보,생일자...
-
HART•2000.04.21 00:56델파이 예제에 보면 잘 나와 있습니다 위치는 bolanddemosquickrpt 있습니다. 소스 4줄 ~ 5줄 정도 됩니...
-
- 왕초보
- •
- 2000.04.19 05:31
- 1 COMMENTS
- /
- 0 LIKES
-
TeamX•2000.04.19 11:45저도 잘은 모르지만 권장되는 폴더당 파일갯수는 500-600개 정도 인걸로 들은것 같습니다... 많으면 속...
-
- 김고진
- 2000.04.19 05:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보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:08EditMask의 값를 ####-##-##;0; 에서 !9999/99/00;1;_ 로 변경하여 실행하니 그렇게 하니 error...
-
- 지승용
- 2000.04.19 04:35
- 0 COMMENTS
- /
- 0 LIKES
-
- mad
- •
- 2000.04.19 04:31
- 3 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.04.19 05:38mad wrote: > 멤버 디비에 저장된 총 멤버수는 어떻게 나타내죠? > > 그리고 만약 조건을 넣어도 상관 ...
-
mad•2000.04.20 09:33레코드 숫자는 결국 어떻게 나타냅니까? Table1.RecordCount; 이건 어따가 쓰는거죠? 이걸 Edit에 연결...
-
조규춘•2000.04.20 09:56inttostr은 정수형을 문자형으로 바꾸는 겁니다. 히~! Edit1.text := inttostr(Table1.RecordCount); ...
-
- mad
- •
- 2000.04.19 04:27
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.04.19 06:04mad wrote: > 모르겄어요. > 폼1에서 edit1,2가 있고 우편번호 버튼을 누르면 > 폼2가 뜨고 우편번호를 ...
-
- mad
- •
- 2000.04.19 04:20
- 3 COMMENTS
- /
- 0 LIKES
폼에다가 타일 이미지를 까는 건데 FormPaint는 어떻게 선언하고 비트맵을 어쩌라고 하는 건지 쩝~ 그리고 경로명은 어느 디렉토리를 얘기하는 건지... ship.bmp ??? (폼1.캔바스.브러쉬.비트맵) 이게 뭡니까? 제가 하고 싶은 것은 MDI폼...-
조규춘•2000.04.19 05:52mad 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:04mad 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:23allenive wrote: > procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word; > Shift: TShif...
-
-
- 꿈틀이
- •
- 2000.04.19 03:12
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.04.19 09:54꿈틀이 wrote: > 제목 그대로 브라우져 안에 있는 text중에서 마우스 포인터가 위치한 곳에 text를 캡쳐하...
-
꿈틀이•2000.04.20 19:14답변 감사합니다. ^^; 야후에서 못 찾고 네이버에서 찾았는데 그곳이 맞는지 몰라도 이제는 컴포넌트 파...
-
- 차니
- 2000.04.19 05:13
- 0 COMMENTS
- /
- 0 LIKES
-
- hee
- •
- 2000.04.19 02:07
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.04.19 03:13hee 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;
히~! 행복하셔요!