Q&A
- MDI 폼에 Bitmap은 어떻게...>?
항상 많은 도움 받고 있습니다.
저는 보통 아래의 소스처럼 하여 form에 bitmap을 넣거든요.
그런데 MDI 폼에서는 안되네요. 왜 안되는 거지요?
MDI 폼에 비트맴넣는 방법을 좀 알켜주세요.
부탁드립니다.
var
Form1: TForm1;
Bitmap: TBitmap;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:WINDOWScars.BMP');
end;
destructor TForm.Destroy;
begin
inherited;
Bitmap.Free;
end;
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y, W, H: LongInt;
begin
with Bitmap do
begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do
begin
X := 0;
while X < Width do
begin
Canvas.Draw(X, Y, Bitmap);
Inc(X, W);
end;
Inc(Y, H);
end;
end;
저는 보통 아래의 소스처럼 하여 form에 bitmap을 넣거든요.
그런데 MDI 폼에서는 안되네요. 왜 안되는 거지요?
MDI 폼에 비트맴넣는 방법을 좀 알켜주세요.
부탁드립니다.
var
Form1: TForm1;
Bitmap: TBitmap;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:WINDOWScars.BMP');
end;
destructor TForm.Destroy;
begin
inherited;
Bitmap.Free;
end;
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y, W, H: LongInt;
begin
with Bitmap do
begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do
begin
X := 0;
while X < Width do
begin
Canvas.Draw(X, Y, Bitmap);
Inc(X, W);
end;
Inc(Y, H);
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 시나위
- •
- 1999.10.19 20:48
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.19 23:19시나위 wrote: > 숫자를 화면에 출력할때 > formatfloat를 써서 콤마를 찍었었거든요? > > 그런데 그 ...
-
- 모영찬
- 1999.10.19 20:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 이중락
- 1999.10.19 20:18
- 0 COMMENTS
- /
- 0 LIKES
-
-
이재식•1999.10.19 20:15hopeship wrote: > 기존에 사용하고 있는 프로그램이 있습니다. > 그런데 기존에 개발한 프로그램이 Clip...
-
hopeship•1999.10.19 20:26> > 이재식 Wrote : > 안녕하세요? > 간단합니다. > 패러독스는 확장자가 db입니다. > 그런데, 클리...
-
이재식•1999.10.19 21:22호적관리요? 그건 행자부에서 진행인 프로젝트로서, 우리팀중에 한 팀인데... 아무튼, 잘 되시길 ...
-
-
- skh
- •
- 1999.10.19 19:53
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.10.19 21:49skh wrote: > > 저는 Delphi 초보자 입니다. > > 다름이 아니오라 Threads 무엇인지 그리고 어떤때 ...
-
- 열심이
- •
- 1999.10.19 19:36
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.19 20:33열심이 wrote: > maskedit으로 날짜를 받아 제대로 입력했는지를 체크하려고 합니다 > 년월일을 체크하여...
-
- 최임정
- •
- 1999.10.19 19:25
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.19 20:48최임정 wrote: > 화일의 날짜+시간으로 버전을 체크해서 > pc에서 다운받게 하려고 하거든요. > 그런데,...
-
- sun
- •
- 1999.10.19 19:56
- 2 COMMENTS
- /
- 0 LIKES
-
배불뚝•1999.10.20 00:59> StringGrid에서의 로우별 합계는 어떻게 구하는지요 > 원료비 100 > 재료비 200 > 노무비 200 ...
-
박성훈•1999.10.19 20:14sun wrote: > > 디테일 테이블로 사용할 목적으로 StringGrid를 만들었습니다. > > StringGrid에서...
-
- 박성훈
- •
- 1999.10.19 19:12
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.10.19 19:23박성훈 wrote: > window환경인 두대의 pc를 피어투피어방식으로 연결해서 사용하고자 합니다. > A,B pc모...
-
- 김주성
- •
- 1999.10.19 18:52
- 2 COMMENTS
- /
- 0 LIKES
-
이재식•1999.10.20 03:48김주성 wrote: > 이런 경우 어떡해요.... > 만약 kkk.dbf 가 있다는 가정하에 인덱스 화일을 k_111.ndx로...
-
배불뚝•1999.10.20 03:23김주성 wrote: > 이런 경우 어떡해요.... > 만약 kkk.dbf 가 있다는 가정하에 인덱스 화일을 k_111.ndx로...
-
- 조영욱
- •
- 1999.10.19 18:44
- 1 COMMENTS
- /
- 0 LIKES
항상 많은 도움 받고 있습니다. 저는 보통 아래의 소스처럼 하여 form에 bitmap을 넣거든요. 그런데 MDI 폼에서는 안되네요. 왜 안되는 거지요? MDI 폼에 비트맴넣는 방법을 좀 알켜주세요. 부탁드립니다. var Form1: TForm1; Bitmap: TBi...-
이주흥•1999.10.19 19:07조영욱 wrote: > 항상 많은 도움 받고 있습니다. > 저는 보통 아래의 소스처럼 하여 form에 bitmap을 넣...
-
- 한
- •
- 1999.10.19 18:41
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.10.19 23:07한 wrote: > 안녕하세요. > > TableType := ttParadox; > with FieldDefs do > begin > C...
-
- 나원용
- 1999.10.19 17:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 고혜정
- •
- 1999.10.19 07:56
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.19 18:46"efg's Computer Lab" 가 보셨어요 ? 사이트: http://www.efg2.com/lab/ 거기에 보시면 "HistoStretch ...
-
- 초보자
- •
- 1999.10.19 06:32
- 1 COMMENTS
- /
- 0 LIKES
-
정계훈•1999.10.20 02:38초보자 wrote: > 안녕하세요 > Q1.insert; > Q1.post; > 문으로 해서 자료를 하나 입력하였습니다 방금...
-
- 김영대
- 1999.10.19 05:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 장우민
- 1999.10.19 05:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 지승용
- •
- 1999.10.19 01:44
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.19 05:38지승용 wrote: > 안녕하세요~... > 질문이 있습니다. > 바탕화면에 있는 그림있잖아요. > 그걸 바꾸고 ...
-
- hopeship
- •
- 1999.10.19 01:00
- 1 COMMENTS
- /
- 0 LIKES
-
오승섭•1999.10.19 01:45안녕하셔요.... Delphi에서 그러한 Transaction 처리는 Database Component가 담당을 합니다. Tansaction...
-
- hopeship
- •
- 1999.10.19 00:46
- 2 COMMENTS
- /
- 0 LIKES
-
정계훈•1999.10.20 03:28hopeship wrote: > 안녕하십니까 > 대구에 사는 hopeship입니다. > 다름이 아니라 시스템 날짜를 얻는 ...
-
한재필•1999.10.19 01:51hopeship wrote: > 안녕하십니까 > 대구에 사는 hopeship입니다. > 다름이 아니라 시스템 날짜를 얻는 ...
> 항상 많은 도움 받고 있습니다.
> 저는 보통 아래의 소스처럼 하여 form에 bitmap을 넣거든요.
> 그런데 MDI 폼에서는 안되네요. 왜 안되는 거지요?
>
> MDI 폼에 비트맴넣는 방법을 좀 알켜주세요.
> 부탁드립니다.
> var
> Form1: TForm1;
> Bitmap: TBitmap;
>
> ...
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Bitmap := TBitmap.Create;
> Bitmap.LoadFromFile('C:WINDOWScars.BMP');
> end;
>
> destructor TForm.Destroy;
> begin
> inherited;
> Bitmap.Free;
> end;
>
> procedure TForm1.FormPaint(Sender: TObject);
> var
> X, Y, W, H: LongInt;
> begin
> with Bitmap do
> begin
> W := Width;
> H := Height;
> end;
> Y := 0;
> while Y < Height do
> begin
> X := 0;
> while X < Width do
> begin
> Canvas.Draw(X, Y, Bitmap);
> Inc(X, W);
> end;
> Inc(Y, H);
> end;
> end;
MDI폼에 비트맵을 넣는 방법은 팁란을 뒤져보면 나옵니다..
저도 그 팁을 보고 해봤는데..좀 부족하더군요...
그래서 콤포넌트를 사용합니다....
자료실에 올려놓을 테니 받아서 사용해보세요...
그럼 이만...