Q&A
- 트리뷰에서 시간표현문제에 관하여 질문드립니다.
안녕하세요..
한 가지 풀리지 않는 문제가 있어 도움을 받고자 올립니다.
트리뷰를 이용해서 세계시간을 나타내는 간단한 프로그램을 해보고 있는데요..
나라이름을 선택하면 그나라와 우리나라와의 시차를 계산해서 표시해주는 간단한거죠..
근데 나라이름을 서브노드로 두고 대륙이름을 탑노드로 두어서 구현했는데 문제는 탑노드에 해당하는 걸 클릭했을때 아무변화가 없도록 하고싶은데 현재시간에서 1시간이 빠진 값으로 표현되는 겁니다. 예를 들어 아시아의 태국이 시차가 -2이라면 프로그램이 시작되면 처음에는 우리나라시각이 나타나고 태국을 클릭하면 계산된 값이 나타납니다. 여기서 아시아를 클릭하면 -1이 계산된 값이 나타난다 이거죠. 저는 아시아를 선택하기 이전의 값이 그대로 나타나길 원하는데.. 어떻게 하면 해결될까요?
참고로 소스를 같이 올리니까 보시고 많은 조언 부탁드리께요..
procedure TForm2.FormShow(Sender: TObject);
var
Topnode: TTreenode;
subNode: TTreenode;
begin
timer1.Enabled := true;
tv.Items.Clear ;
topnode:=tv.Items.AddChild(nil, '아시아');
subnode:=tv.items.AddChild(topnode, '일본');
subnode.stateIndex := 0;
subnode:=tv.items.AddChild(topnode,'태국,자카르타(인도네시아)');
subnode.stateindex := -2;
subnode:=tv.items.AddChild(topnode,'베트남,캄보디아');
subnode.stateindex := -2;
subnode:=tv.items.AddChild(topnode,'방글라데시');
subnode.stateindex := -3;
subnode:=tv.items.AddChild(topnode,'파키스탄');
subnode.stateindex := -4;
topnode:= tv.Items.AddChild(nil,'북미');
subnode:=tv.items.AddChild(topnode,'LA,산타모니카(미국)');
subnode.stateindex := -17;
subnode:=tv.items.AddChild(topnode,'시애틀,샌프란시스코(미국)');
subnode.stateindex := -17;
tv.Selected := tv.TopItem;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
CurrentDateTime: TDateTime; // 현재의 시간
ResultDateTime: TDateTime; // 시차가 계산된 시간
begin
CurrentDateTime := Now;
if TimeTerm < 0 then // TimeTerm 이게 시차
ResultDateTime := CurrentDateTime - EncodeTime(-1 * TimeTerm, 0, 0, 0)
else
ResultDateTime := CurrentDateTime + EncodeTime(TimeTerm, 0, 0, 0);
label1.Caption :=datetostr(resultdatetime)+ ' ' + ' ' + timetostr(resultdatetime);
end;
procedure TForm2.TVChange(Sender: TObject; Node: TTreeNode);
begin
if tv.Selected = tv.topitem then timeterm := 0
else timeterm:=node.StateIndex;
end;
end.
한 가지 풀리지 않는 문제가 있어 도움을 받고자 올립니다.
트리뷰를 이용해서 세계시간을 나타내는 간단한 프로그램을 해보고 있는데요..
나라이름을 선택하면 그나라와 우리나라와의 시차를 계산해서 표시해주는 간단한거죠..
근데 나라이름을 서브노드로 두고 대륙이름을 탑노드로 두어서 구현했는데 문제는 탑노드에 해당하는 걸 클릭했을때 아무변화가 없도록 하고싶은데 현재시간에서 1시간이 빠진 값으로 표현되는 겁니다. 예를 들어 아시아의 태국이 시차가 -2이라면 프로그램이 시작되면 처음에는 우리나라시각이 나타나고 태국을 클릭하면 계산된 값이 나타납니다. 여기서 아시아를 클릭하면 -1이 계산된 값이 나타난다 이거죠. 저는 아시아를 선택하기 이전의 값이 그대로 나타나길 원하는데.. 어떻게 하면 해결될까요?
참고로 소스를 같이 올리니까 보시고 많은 조언 부탁드리께요..
procedure TForm2.FormShow(Sender: TObject);
var
Topnode: TTreenode;
subNode: TTreenode;
begin
timer1.Enabled := true;
tv.Items.Clear ;
topnode:=tv.Items.AddChild(nil, '아시아');
subnode:=tv.items.AddChild(topnode, '일본');
subnode.stateIndex := 0;
subnode:=tv.items.AddChild(topnode,'태국,자카르타(인도네시아)');
subnode.stateindex := -2;
subnode:=tv.items.AddChild(topnode,'베트남,캄보디아');
subnode.stateindex := -2;
subnode:=tv.items.AddChild(topnode,'방글라데시');
subnode.stateindex := -3;
subnode:=tv.items.AddChild(topnode,'파키스탄');
subnode.stateindex := -4;
topnode:= tv.Items.AddChild(nil,'북미');
subnode:=tv.items.AddChild(topnode,'LA,산타모니카(미국)');
subnode.stateindex := -17;
subnode:=tv.items.AddChild(topnode,'시애틀,샌프란시스코(미국)');
subnode.stateindex := -17;
tv.Selected := tv.TopItem;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
CurrentDateTime: TDateTime; // 현재의 시간
ResultDateTime: TDateTime; // 시차가 계산된 시간
begin
CurrentDateTime := Now;
if TimeTerm < 0 then // TimeTerm 이게 시차
ResultDateTime := CurrentDateTime - EncodeTime(-1 * TimeTerm, 0, 0, 0)
else
ResultDateTime := CurrentDateTime + EncodeTime(TimeTerm, 0, 0, 0);
label1.Caption :=datetostr(resultdatetime)+ ' ' + ' ' + timetostr(resultdatetime);
end;
procedure TForm2.TVChange(Sender: TObject; Node: TTreeNode);
begin
if tv.Selected = tv.topitem then timeterm := 0
else timeterm:=node.StateIndex;
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보자
- •
- 2000.05.22 22:47
- 2 COMMENTS
- /
- 0 LIKES
-
강인규•2000.05.22 23:41table 의 datachange event에 아래와 같이 코딩하십시요. Edit1.Text := Table1.fieldbyname('필드명1... -
HART•2000.05.22 23:33datasoure 컴폰너트에서 datachange 이벤트에서 처리해야함 procedure TFS_SaleGroupPoint_sum.ds_salei...
-
- 성은지
- 2000.05.22 21:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 델_맹
- 2000.05.22 21:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 하홍렬
- 2000.05.22 21:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 이성림
- •
- 2000.05.22 21:25
- 1 COMMENTS
- /
- 0 LIKES
-
이선경•2000.05.26 01:25이성림 wrote: > Access 테이블 생성시 궁금한게 있어서 질문합니다. > 테이블 생성 SQL을 사용하고 인덱...
-
- 강인규
- •
- 2000.05.22 21:19
- 1 COMMENTS
- /
- 0 LIKES
-
사발우성•2000.05.22 21:21감사 함당. ^^... 역쉬 한델은 넘 좋아...하하하. 강인규 wrote: > autoincrement.(스펠 맞나?) > ...
-
- 델Man
- •
- 2000.05.22 21:14
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•2000.05.23 01:05델Man wrote: > > > > 현재 입력 포커스를 가지고 있는 control에 특정 메세지를 보내려고 하는...
-
- 김길남
- 2000.05.22 20:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영미
- •
- 2000.05.22 20:34
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.22 21:37안녕하세요. 최용일입니다. OnKeyDown이나 OnKeyPress이벤트에서 할 수 있습니다. 아마도 안 먹는다는 ...
-
- 바보
- 2000.05.22 20:24
- 0 COMMENTS
- /
- 0 LIKES
-
-
이쁘니•2000.05.22 20:27사용하구 계신 테이블 필드명을 올려주실수 있나요?
-
사발우성•2000.05.22 20:45이쁘니 wrote: > 사용하구 계신 테이블 필드명을 올려주실수 있나요? > 넵 지금 사용 하구 있는 테이블...
-
이쁘니•2000.05.22 20:53> 공정구분테이블 필드는 > 공정구분 과 공정명으로 구성되고요 > 1.00 자동기 SOT > 2.00 자동기...
-
사발우성•2000.05.22 20:55^o^ Thank you 감솨 함당... 복받을겨.... 이쁘니 wrote: > > 공정구분테이블 필드는 > > 공정구분 과 ...
-
-
-
- 권윤진
- •
- 2000.05.22 19:59
- 5 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.23 06:42안녕하세요. 최용일입니다 2G이상의 하드디스크 용량을 구하실려면 SysUtils에 정의되어있는 GetDiskFre...
-
권윤진•2000.05.23 00:53최용일 wrote: > 안녕하세요. 최용일입니다 > > 2G이상의 하드디스크 용량을 구하실려면 SysUtils에 정...
-
최용일•2000.05.23 08:03안녕하세요. 최용일입니다. 델파이 헬프메뉴에 보시면 Windows SDK가 있는데 여기에서 찾아보시면 됩니...
-
강민주•2000.05.22 22:45권윤진 wrote: > 특정 드라이브의 전체사이즈와 사용가능한 용량을 알아내고자 함니다.. > 책에서 참고하...
-
권윤진•2000.05.23 00:51강민주 wrote: > 권윤진 wrote: > > 특정 드라이브의 전체사이즈와 사용가능한 용량을 알아내고자 함니다...
-
- 손경옥
- •
- 2000.05.22 19:42
- 1 COMMENTS
- /
- 0 LIKES
-
전령•2000.05.23 05:01손경옥 wrote: 어! 저도 그 프로젝트하고 있어요....기말 시험 대신.... 혹시, 우리 학교 학생인가.......
-
- 전령
- •
- 2000.05.22 19:35
- 1 COMMENTS
- /
- 0 LIKES
-
신승철•2000.05.22 19:54전령 wrote: > 안녕하세요.... > case문을 쓰는데 잘 않되요....^^; > db를 구축하고 '병실종류'는 문자...
-
- tommy
- •
- 2000.05.22 19:33
- 1 COMMENTS
- /
- 0 LIKES
-
이쁘니•2000.05.22 20:13디비그리드를 사용하시게 되면요.. procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; ...
-
- 사발우성
- •
- 2000.05.22 19:17
- 3 COMMENTS
- /
- 0 LIKES
-
이쁘니•2000.05.22 19:33안냥하세요..새로운 주의 시작압니다...출발은 잘 하고 계신지 모르겠네요.. 제가 룩업콤보박스를 쓰...
-
이쁘니•2000.05.22 20:19DBLookupComboBox2.ListSource := DataSource1; DBLookupComboBox2.ListField := '사원명'; ...
-
사발우성•2000.05.22 20:00이쁘니 wrote: > > 안냥하세요..새로운 주의 시작압니다...출발은 잘 하고 계신지 모르겠네요.. > > ...
-
- 최진석
- •
- 2000.05.22 18:29
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요.. 한 가지 풀리지 않는 문제가 있어 도움을 받고자 올립니다. 트리뷰를 이용해서 세계시간을 나타내는 간단한 프로그램을 해보고 있는데요.. 나라이름을 선택하면 그나라와 우리나라와의 시차를 계산해서 표시해주는 간단한거...-
최용일•2000.05.22 21:12안녕하세요. 최용일입니다. procedure TForm2.TVChange(Sender: TObject; Node: TTreeNode); begin ...
-
- 힙합인
- 2000.05.22 18:14
- 0 COMMENTS
- /
- 0 LIKES
-
- missH
- •
- 2000.05.22 12:50
- 1 COMMENTS
- /
- 0 LIKES
-
이쁘니•2000.05.22 19:49QUERY1.CLOSE; QUERY1.SQL.CLESR; QUERY1.SQL.ADD('SELECT * FROM 테이블명 '); QUERY1.SQL.ADD('...
procedure TForm2.TVChange(Sender: TObject; Node: TTreeNode);
begin
if Tv.Selected.Level > 1 then
begin
if tv.Selected. = tv.topitem then timeterm := 0
else timeterm:=node.StateIndex;
end;
end;
^^ 항상 즐코하세요.
최진석 wrote:
> 안녕하세요..
> 한 가지 풀리지 않는 문제가 있어 도움을 받고자 올립니다.
> 트리뷰를 이용해서 세계시간을 나타내는 간단한 프로그램을 해보고 있는데요..
> 나라이름을 선택하면 그나라와 우리나라와의 시차를 계산해서 표시해주는 간단한거죠..
> 근데 나라이름을 서브노드로 두고 대륙이름을 탑노드로 두어서 구현했는데 문제는 탑노드에 해당하는 걸 클릭했을때 아무변화가 없도록 하고싶은데 현재시간에서 1시간이 빠진 값으로 표현되는 겁니다. 예를 들어 아시아의 태국이 시차가 -2이라면 프로그램이 시작되면 처음에는 우리나라시각이 나타나고 태국을 클릭하면 계산된 값이 나타납니다. 여기서 아시아를 클릭하면 -1이 계산된 값이 나타난다 이거죠. 저는 아시아를 선택하기 이전의 값이 그대로 나타나길 원하는데.. 어떻게 하면 해결될까요?
> 참고로 소스를 같이 올리니까 보시고 많은 조언 부탁드리께요..
>
> procedure TForm2.FormShow(Sender: TObject);
> var
> Topnode: TTreenode;
> subNode: TTreenode;
> begin
> timer1.Enabled := true;
> tv.Items.Clear ;
> topnode:=tv.Items.AddChild(nil, '아시아');
> subnode:=tv.items.AddChild(topnode, '일본');
> subnode.stateIndex := 0;
> subnode:=tv.items.AddChild(topnode,'태국,자카르타(인도네시아)');
> subnode.stateindex := -2;
> subnode:=tv.items.AddChild(topnode,'베트남,캄보디아');
> subnode.stateindex := -2;
> subnode:=tv.items.AddChild(topnode,'방글라데시');
> subnode.stateindex := -3;
> subnode:=tv.items.AddChild(topnode,'파키스탄');
> subnode.stateindex := -4;
>
> topnode:= tv.Items.AddChild(nil,'북미');
> subnode:=tv.items.AddChild(topnode,'LA,산타모니카(미국)');
> subnode.stateindex := -17;
> subnode:=tv.items.AddChild(topnode,'시애틀,샌프란시스코(미국)');
> subnode.stateindex := -17;
>
> tv.Selected := tv.TopItem;
> end;
>
> procedure TForm2.Timer1Timer(Sender: TObject);
> var
> CurrentDateTime: TDateTime; // 현재의 시간
> ResultDateTime: TDateTime; // 시차가 계산된 시간
> begin
> CurrentDateTime := Now;
> if TimeTerm < 0 then // TimeTerm 이게 시차
> ResultDateTime := CurrentDateTime - EncodeTime(-1 * TimeTerm, 0, 0, 0)
> else
> ResultDateTime := CurrentDateTime + EncodeTime(TimeTerm, 0, 0, 0);
>
> label1.Caption :=datetostr(resultdatetime)+ ' ' + ' ' + timetostr(resultdatetime);
>
> end;
>
>
> procedure TForm2.TVChange(Sender: TObject; Node: TTreeNode);
> begin
> if tv.Selected = tv.topitem then timeterm := 0
> else timeterm:=node.StateIndex;
>
> end;
>
> end.