Q&A
- [컴포넌트]Iamge 컴포넌트에 대한 것입니다.
안녕하세요?
오랫만에 글을 올리는 군요...
이번에는 저 혼자힘으로 해결할 수 있을 줄 알았는데, 너무도 이상한 문제에 부딪혔습니다.
아래의 소스를 보시면 아시겠지만,
일정한 시간내에 그림들을 바꿔가며 보여주는 컴포넌트이거든요.
일단 프로퍼티에 그림의 경로를 설정하게 하여, 그 그림의 경로를 배열로 저장한뒤
UpdateClock에서 일정한 배열을 인덱스를 체크하여 그림들을 각각 보이게 하려고 했습니다.
근데, 항상 마지막 것만 보이고 앞의 것들은 보이지 않습니다.
어떻게 하면 될까요?
unit Im;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TIm = class(TImage)
private
FPicName : String;
FTimer : TTimer;
t : String;
chk : Integer;
i : Integer;
PicNum : Integer;
PicPath : array[1..50] of String;
r1, r2 : String;
tmpString : String;
procedure SetPicName(value : String);
protected
procedure UpdateClock(Sender : TObject);
public
constructor Create(AOwner: TComponent); override;
published
property PicName : String read FPicName write SetPicName;
end;
procedure Register;
implementation
procedure TIm.SetPicName(value:String);
var
ch : String;
t : String;
tmp : Integer;
a : Integer;
begin
If value <> FPicName then
begin
FPicName := value;
Update;
end;
PicPath[i] := FPicName;
Inc(i);
tmpString := tmpString + ' ' + IntToStr(i) + ' ' + PicPath[i-1];
ShowMessage(tmpString);
ch := InputBox('잘못된 File Path의 수정',
'File Path의 번호를 쓰시오',
'0');
tmp := StrToInt(ch);
If ch <> '0' then
begin
ch := InputBox('잘못된 File Path의 수정',
'File Path를 쓰시오',
'File Path?');
PicPath[tmp] := ch;
end;
for a := 1 to i - 1 do
t := t + ' ' + IntToStr(a) + ' ' + PicPath[a];
ShowMessage(t + IntToStr(i));
//end;
end;
constructor TIm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
i := 1;
chk := 1;
if csDesigning in ComponentState then
begin
end
else
begin
FTimer := TTimer.Create (self);
FTimer.OnTimer := UpdateClock;
FTimer.Interval := 100;
FTimer.Enabled := True;
end;
end;
procedure TIm.UpdateClock(Sender : TObject);
begin
If chk < 3 then
begin
Self.Picture.LoadFromFile(PicPath[chk]);
Inc(chk);
end
else
begin
Self.Picture.LoadFromFile(PicPath[chk]);
chk := 1;
end;
end;
procedure Register;
begin
RegisterComponents('Samples', [TIm]);
end;
end.
오랫만에 글을 올리는 군요...
이번에는 저 혼자힘으로 해결할 수 있을 줄 알았는데, 너무도 이상한 문제에 부딪혔습니다.
아래의 소스를 보시면 아시겠지만,
일정한 시간내에 그림들을 바꿔가며 보여주는 컴포넌트이거든요.
일단 프로퍼티에 그림의 경로를 설정하게 하여, 그 그림의 경로를 배열로 저장한뒤
UpdateClock에서 일정한 배열을 인덱스를 체크하여 그림들을 각각 보이게 하려고 했습니다.
근데, 항상 마지막 것만 보이고 앞의 것들은 보이지 않습니다.
어떻게 하면 될까요?
unit Im;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TIm = class(TImage)
private
FPicName : String;
FTimer : TTimer;
t : String;
chk : Integer;
i : Integer;
PicNum : Integer;
PicPath : array[1..50] of String;
r1, r2 : String;
tmpString : String;
procedure SetPicName(value : String);
protected
procedure UpdateClock(Sender : TObject);
public
constructor Create(AOwner: TComponent); override;
published
property PicName : String read FPicName write SetPicName;
end;
procedure Register;
implementation
procedure TIm.SetPicName(value:String);
var
ch : String;
t : String;
tmp : Integer;
a : Integer;
begin
If value <> FPicName then
begin
FPicName := value;
Update;
end;
PicPath[i] := FPicName;
Inc(i);
tmpString := tmpString + ' ' + IntToStr(i) + ' ' + PicPath[i-1];
ShowMessage(tmpString);
ch := InputBox('잘못된 File Path의 수정',
'File Path의 번호를 쓰시오',
'0');
tmp := StrToInt(ch);
If ch <> '0' then
begin
ch := InputBox('잘못된 File Path의 수정',
'File Path를 쓰시오',
'File Path?');
PicPath[tmp] := ch;
end;
for a := 1 to i - 1 do
t := t + ' ' + IntToStr(a) + ' ' + PicPath[a];
ShowMessage(t + IntToStr(i));
//end;
end;
constructor TIm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
i := 1;
chk := 1;
if csDesigning in ComponentState then
begin
end
else
begin
FTimer := TTimer.Create (self);
FTimer.OnTimer := UpdateClock;
FTimer.Interval := 100;
FTimer.Enabled := True;
end;
end;
procedure TIm.UpdateClock(Sender : TObject);
begin
If chk < 3 then
begin
Self.Picture.LoadFromFile(PicPath[chk]);
Inc(chk);
end
else
begin
Self.Picture.LoadFromFile(PicPath[chk]);
chk := 1;
end;
end;
procedure Register;
begin
RegisterComponents('Samples', [TIm]);
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보
- •
- 2000.05.18 22:37
- 3 COMMENTS
- /
- 0 LIKES
-
신승철•2000.05.18 23:50초보 wrote: > DBGRID의 내용을 직접수정하여 폼을 닫아 버린 후 다시 실행 시켜 DBGRID의 내용을 보면 수... -
초보•2000.05.19 04:04신승철 wrote: > 초보 wrote: > > DBGRID의 내용을 직접수정하여 폼을 닫아 버린 후 다시 실행 시켜 DBGR...
-
유레카•2000.05.19 18:59if application.MessageBox('저장하시겠습니까?','종료상자',mb_iconinformation or ...
-
- 초보
- •
- 2000.05.18 22:35
- 2 COMMENTS
- /
- 0 LIKES
-
김성훈•2000.05.19 01:52초보 wrote: > Memo 컴포넌트에서 > 커서위치의 단어를 알수 있는 방법이 있나요? > 아시는 분은 답변 ...
-
초보•2000.05.19 03:45김성훈 wrote: > 초보 wrote: > > Memo 컴포넌트에서 > > 커서위치의 단어를 알수 있는 방법이 있나요?...
-
- 김종근
- 2000.05.18 21:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이 초보
- •
- 2000.05.18 21:15
- 3 COMMENTS
- /
- 0 LIKES
-
배재근•2000.05.19 00:58델파이 초보 wrote: > 하나의 폼에서 다른 폼을 불러 올 때 저는 지금까지 project를 사용하였습니다. > ...
-
초보•2000.05.19 03:07배재근 wrote: > 델파이 초보 wrote: > > 하나의 폼에서 다른 폼을 불러 올 때 저는 지금까지 project를 ...
-
강민주•2000.05.18 23:19델파이 초보 wrote: > 하나의 폼에서 다른 폼을 불러 올 때 저는 지금까지 project를 사용하였습니다. > ...
-
- 델파이 초보
- •
- 2000.05.18 21:30
- 2 COMMENTS
- /
- 0 LIKES
-
쥬니•2000.05.19 04:57델파이 초보 wrote: > 지금 작업할 내용을 DB에서 DBGRID로 데이터를 읽어 들어 와서 > ------ DBGRID자...
-
초보•2000.05.19 06:18답변고맙습니다. 여기 저기 알아보았는데 디비네비게이터를 해당 DB와 연결시키고 해당포인터 지점에서 ...
-
- 한재선
- 2000.05.18 20:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 못난이
- •
- 2000.05.18 20:29
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•2000.05.18 23:15못난이 wrote: > 포인트 사용법에 대한 질문입니다. > > procedure TForm1....... > var field : ^TCo...
-
- 양은주
- •
- 2000.05.18 20:08
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요? 오랫만에 글을 올리는 군요... 이번에는 저 혼자힘으로 해결할 수 있을 줄 알았는데, 너무도 이상한 문제에 부딪혔습니다. 아래의 소스를 보시면 아시겠지만, 일정한 시간내에 그림들을 바꿔가며 보여주는 컴포넌트이거든요. ...-
초보자•2000.05.19 03:02Time이 너무 작아서 빨리 지나가는건 아닐지요.. Time시간을 조금 늘려보시는건 어떨지요.. TTime.Interv...
-
- bhkmm
- 2000.05.18 20:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 이쁘니
- 2000.05.18 19:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 최 소 영
- •
- 2000.05.18 19:34
- 1 COMMENTS
- /
- 0 LIKES
-
홍세비•2000.05.18 20:10최 소 영 wrote: > 두개의 폼이 있는데 Form1과 Form2라고 하면 Form1에는 콤보박스가 있습니다. > 콤보...
-
- 올랭이
- •
- 2000.05.18 19:12
- 2 COMMENTS
- /
- 0 LIKES
-
이쁘니•2000.05.18 20:10올랭이 wrote: > mdb를 쓰구요... > 일련번호는 access에서 일련번호로 해났어요.. > > 추가(button1)...
-
올랭이•2000.05.18 20:45정말로 감사합니다. 저에겐 정말로 많은 도움이
-
- 박장순
- 2000.05.18 18:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금녀
- •
- 2000.05.19 00:13
- 1 COMMENTS
- /
- 0 LIKES
-
이선경•2000.05.20 07:03궁금녀 wrote: > 안녕하세요?? > > 전 델파이에 입문한지 얼마 되지 않은 초보인데요...... > > 첨...
-
- 김남곤
- 2000.05.18 18:32
- 0 COMMENTS
- /
- 0 LIKES
-
- chyang
- 2000.05.18 18:23
- 0 COMMENTS
- /
- 0 LIKES
-
-
이선경•2000.05.20 07:06신상우 wrote: > 델파이 입문한지 며칠안되는 초보입니다 > Qreport DB자료 연속적 봉투인쇄는 어떻게 하...
-
-
- 힙합인
- 2000.05.18 18:19
- 0 COMMENTS
- /
- 0 LIKES
-
-
한차으히•2000.05.18 08:43김동우 wrote: > db에서 어떤날짜를 넣으면 그날짜에 해당하는 데이타를 검색할려고 하는데 > 어떻게 하...
-
-
- 맹주형
- 2000.05.18 07:32
- 0 COMMENTS
- /
- 0 LIKES
Time시간을 조금 늘려보시는건 어떨지요..
TTime.Interval은 아마도 1/1000초일 거에요..
양은주 wrote:
> 안녕하세요?
> 오랫만에 글을 올리는 군요...
>
> 이번에는 저 혼자힘으로 해결할 수 있을 줄 알았는데, 너무도 이상한 문제에 부딪혔습니다.
> 아래의 소스를 보시면 아시겠지만,
> 일정한 시간내에 그림들을 바꿔가며 보여주는 컴포넌트이거든요.
>
> 일단 프로퍼티에 그림의 경로를 설정하게 하여, 그 그림의 경로를 배열로 저장한뒤
> UpdateClock에서 일정한 배열을 인덱스를 체크하여 그림들을 각각 보이게 하려고 했습니다.
> 근데, 항상 마지막 것만 보이고 앞의 것들은 보이지 않습니다.
>
> 어떻게 하면 될까요?
>
>
> unit Im;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> ExtCtrls;
>
> type
> TIm = class(TImage)
> private
> FPicName : String;
> FTimer : TTimer;
> t : String;
> chk : Integer;
> i : Integer;
> PicNum : Integer;
> PicPath : array[1..50] of String;
> r1, r2 : String;
> tmpString : String;
> procedure SetPicName(value : String);
> protected
> procedure UpdateClock(Sender : TObject);
> public
> constructor Create(AOwner: TComponent); override;
> published
> property PicName : String read FPicName write SetPicName;
> end;
>
> procedure Register;
>
> implementation
>
> procedure TIm.SetPicName(value:String);
> var
> ch : String;
> t : String;
> tmp : Integer;
> a : Integer;
> begin
> If value <> FPicName then
> begin
> FPicName := value;
> Update;
> end;
>
> PicPath[i] := FPicName;
> Inc(i);
>
> tmpString := tmpString + ' ' + IntToStr(i) + ' ' + PicPath[i-1];
>
> ShowMessage(tmpString);
> ch := InputBox('잘못된 File Path의 수정',
> 'File Path의 번호를 쓰시오',
> '0');
> tmp := StrToInt(ch);
> If ch <> '0' then
> begin
> ch := InputBox('잘못된 File Path의 수정',
> 'File Path를 쓰시오',
> 'File Path?');
> PicPath[tmp] := ch;
> end;
>
> for a := 1 to i - 1 do
> t := t + ' ' + IntToStr(a) + ' ' + PicPath[a];
>
> ShowMessage(t + IntToStr(i));
> //end;
> end;
>
>
> constructor TIm.Create(AOwner: TComponent);
> begin
> inherited Create(AOwner);
>
> i := 1;
> chk := 1;
>
> if csDesigning in ComponentState then
> begin
> end
> else
> begin
> FTimer := TTimer.Create (self);
> FTimer.OnTimer := UpdateClock;
> FTimer.Interval := 100;
> FTimer.Enabled := True;
> end;
> end;
>
> procedure TIm.UpdateClock(Sender : TObject);
> begin
> If chk < 3 then
> begin
> Self.Picture.LoadFromFile(PicPath[chk]);
> Inc(chk);
> end
> else
> begin
> Self.Picture.LoadFromFile(PicPath[chk]);
> chk := 1;
> end;
> end;
>
>
> procedure Register;
> begin
> RegisterComponents('Samples', [TIm]);
> end;
>
> end.
>