Q&A
- 특정 색깔Grid의 순차적 깜빡임(물흐르듯이)에 대한 질문.
안녕하세요!!!!!
파이프에서 압력 차를 나타내기 위한 프로그램을 수행중에 있습니다.
압력차의 표현은 대략 각직사각형에 각기 다른 색으로 표현하여 RGB 색깔로
(아래 예시는 진한 빨강에서 옅은 색으로 점점) 나타내었고,
유체가 흐르게끔 보이기 위해서 Timer를 이용하였어요..(편의상 3개의 직사각형만 나타냈습니다.) 깜박이는 색깔은 두색상의 아래의 색으로,물이 흐르게보이게끔 그런식으로...
그런데, 흐르게끔 보이게 할려면 각 직사각형이 순차적으로 깜빡여야하는데
(1번 직사각형 깜빡후 2번 직사각형 깜빡, 그후 3번째....그런식으로)
아래의 프로그램은 직사각형 3개가 동일하게, 같이 깜박이더군요....
이 문제를 어떻게 해결하면 좋은지 자세한 조언이나, 더 나은 프로그램의 제시를
부탁드립니다.
그리고 아래의 프로그램이 실행되는데 버그가 있는것 처럼 파이프 전체가 흔들리거나 깜빡(저정되지않은 바탕색으로)거림니다. 좀더 부드럽게, 파이프 내에서 물이 흐르는 것 처럼 표현하고 싶습니다. 이에 관련된 자료를 최대한도로 보내주시면, 정말 정말 감사하겠습니다.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if iToggle = 0 then
begin
Canvas.Pen.Color := RGB(255,10,10);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,10,10);
Canvas.Rectangle(100,430,157,460);
Canvas.Pen.Color := RGB(255,51,51);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,51,51);
Canvas.Rectangle(157,430,214,460);
Canvas.Pen.Color := RGB(255,76,76);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,76,76);
Canvas.Rectangle(214,430,271,460);
end
else begin
Timer1.Interval := 100;
Canvas.Pen.Color := RGB(255,0,0);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,0,0);
Canvas.Rectangle(100,430,157,460);
Canvas.Pen.Color := RGB(255,41,41);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,41,41);
Canvas.Rectangle(157,430,214,460);
Canvas.Pen.Color := RGB(255,66,66);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,66,66);
Canvas.Rectangle(214,430,271,460);
end;
iToggle := 1 - iToggle;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
iToggle := 0;
end;
end.
P.S. 위의 프로그램에 많은 조언 주신 하얀까마귀님께 다시 감사드림니다...
파이프에서 압력 차를 나타내기 위한 프로그램을 수행중에 있습니다.
압력차의 표현은 대략 각직사각형에 각기 다른 색으로 표현하여 RGB 색깔로
(아래 예시는 진한 빨강에서 옅은 색으로 점점) 나타내었고,
유체가 흐르게끔 보이기 위해서 Timer를 이용하였어요..(편의상 3개의 직사각형만 나타냈습니다.) 깜박이는 색깔은 두색상의 아래의 색으로,물이 흐르게보이게끔 그런식으로...
그런데, 흐르게끔 보이게 할려면 각 직사각형이 순차적으로 깜빡여야하는데
(1번 직사각형 깜빡후 2번 직사각형 깜빡, 그후 3번째....그런식으로)
아래의 프로그램은 직사각형 3개가 동일하게, 같이 깜박이더군요....
이 문제를 어떻게 해결하면 좋은지 자세한 조언이나, 더 나은 프로그램의 제시를
부탁드립니다.
그리고 아래의 프로그램이 실행되는데 버그가 있는것 처럼 파이프 전체가 흔들리거나 깜빡(저정되지않은 바탕색으로)거림니다. 좀더 부드럽게, 파이프 내에서 물이 흐르는 것 처럼 표현하고 싶습니다. 이에 관련된 자료를 최대한도로 보내주시면, 정말 정말 감사하겠습니다.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if iToggle = 0 then
begin
Canvas.Pen.Color := RGB(255,10,10);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,10,10);
Canvas.Rectangle(100,430,157,460);
Canvas.Pen.Color := RGB(255,51,51);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,51,51);
Canvas.Rectangle(157,430,214,460);
Canvas.Pen.Color := RGB(255,76,76);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,76,76);
Canvas.Rectangle(214,430,271,460);
end
else begin
Timer1.Interval := 100;
Canvas.Pen.Color := RGB(255,0,0);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,0,0);
Canvas.Rectangle(100,430,157,460);
Canvas.Pen.Color := RGB(255,41,41);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,41,41);
Canvas.Rectangle(157,430,214,460);
Canvas.Pen.Color := RGB(255,66,66);
Canvas.Pen.Width := 1;
Canvas.Brush.Color := RGB(255,66,66);
Canvas.Rectangle(214,430,271,460);
end;
iToggle := 1 - iToggle;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
iToggle := 0;
end;
end.
P.S. 위의 프로그램에 많은 조언 주신 하얀까마귀님께 다시 감사드림니다...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 물어보기
- •
- 2000.06.23 04:00
- 4 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.23 21:42안녕하세요. 최용일입니다. 폼의 Border속성을 fsNone으로 설정하시면 테두리도 없고 리사이즈프레임도 ... -
물어보기•2000.06.24 02:15답변 감사드립니다. 헌데 간단한 예제 코드좀 알 수 없을까요....아래 설명만 가지고는 제가 지식이 짧아 ...
-
최용일•2000.06.24 08:26안녕하세요. 최용일입니다. 코드는 어렵지 않은데 경계선 좌표계산하는게 좀 짜능나는 일이라서.... 죄...
-
물어보기•2000.06.24 02:15답변 감사드립니다. 헌데 간단한 예제 코드좀 알 수 없을까요....아래 설명만 가지고는 제가 지식이 짧아 ...
-
- 초보
- 2000.06.23 03:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 이동욱
- 2000.06.23 03:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 병규
- 2000.06.24 02:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 서비
- 2000.06.23 03:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 혀노
- •
- 2000.06.23 03:04
- 1 COMMENTS
- /
- 0 LIKES
-
송재영•2000.06.23 03:24혀노 wrote: > 테이블에 Append를 해놓고 > 필터링을 해버리면 안되는건가요? > 디비에디트박스와 디비 ...
-
- 김민선
- 2000.06.23 02:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민선
- •
- 2000.06.23 02:43
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.23 19:20안녕하세여..타락임다..^^ 일케 해보세여... $#F1 알고 나면 쉽져? ^^ 왕초보 타락천사..^__...
-
- 호야
- 2000.06.23 02:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정식
- •
- 2000.06.23 02:37
- 5 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.06.23 19:18안녕하세여. 타락임다..^^ uses QRprntr; ............... procedure TForm1.ButtonClick(Sender: TO...
-
김정식•2000.06.23 23:21그러내요 지금 그렇게 프로그램했슴다. 잘되긴 한데 어쩐지..... 첨단시대에 무시칸방법 같아서 찜찜...
-
유레카•2000.06.23 04:36PaperSize : TQRPaperSize 이고 TQRPaperSize는 열거형입니다.. 그러니 QuickRep1.Page.PaperSize :...
-
김정식•2000.06.23 04:54알려주신데로 QuickRep1.Page.PaperSize := [A4]; 과 같이 기술해도 Compile Error가 나서 다시 ty...
-
유레카•2000.06.23 07:54이론상으론 PaperSize가 RunTime시도 변경가능해야 하는데 제가 코딩해본 결과도 Error가 나네요. 이 프로...
-
- 이은정
- •
- 2000.06.23 02:35
- 2 COMMENTS
- /
- 0 LIKES
-
임형호•2000.06.23 11:07이은정 wrote: > 프로그램을 테이블을 이용해서 만들었는데 자료가 2만건정도 들어가니깐 필터링 할때 넘...
-
까마귀•2000.06.23 02:55이은정 wrote: > 프로그램을 테이블을 이용해서 만들었는데 자료가 2만건정도 들어가니깐 필터링 할때 넘...
-
- 조복기님 도와주세요.
- •
- 2000.06.23 02:18
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.23 08:23안녕하세요. 최용일입니다. 레지스트리를 잘못건드렸을때 포멧한다는 것은 엄청나게 몸이 고생하는 방법...
-
류응철•2000.06.23 09:26감사합니다 최용일님... 다음에 레지스트리 잘못 건드리면 그렇게 복구하져..^^ 최용일님두 오늘 밤새나...
-
최용일•2000.06.23 10:35안녕하세요. 최용일입니다. 인스톨쉴드 홈페이지에 가셔서 뉴스그룹에서 찾아보세요. 많은 질답이 있으...
-
- 이희재
- •
- 2000.06.23 02:05
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요!!!!! 파이프에서 압력 차를 나타내기 위한 프로그램을 수행중에 있습니다. 압력차의 표현은 대략 각직사각형에 각기 다른 색으로 표현하여 RGB 색깔로 (아래 예시는 진한 빨강에서 옅은 색으로 점점) 나타내었고, 유체가 흐르...-
송재영•2000.06.23 03:19안녕하세요. 음 일단 프로그램에 대한 소스를 보니 전체를 리프레쉬하는 방법을 사용하셨네여. 음. 이렇...
-
- 어린왕자
- •
- 2000.06.23 01:44
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.23 08:46안녕하세요. 최용일입니다 OnExit는 컨트롤에서 포커스를 잃을 때 발생합니다. OnEnter는 그반대구요. ...
-
어린왕자•2000.06.23 09:56용일님..더..질문이 있는데요.. 그니깐..^^; 포커스가 없는 그런 버튼을..체크해줄려면 OnClick밖에 업나...
-
최용일•2000.06.23 10:03안녕하세요. 최용일입니다. OnClick이나 OnMouseDown이벤트에서 해야 되겠죠... WM_NCHITTEST메세지를 ...
-
- 정우성
- 2000.06.23 01:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 김희연
- •
- 2000.06.23 01:13
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.23 08:47안녕하세요. 최용일입니다. Chr함수를 쓰시거나 Char로 타입캐스팅하세요. ^^ 항상 즐코하세요. ...
-
- blueofsky
- 2000.06.23 03:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 이명훈
- •
- 2000.06.23 00:15
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.06.23 01:45이명훈 wrote: > 델파이로 만든것을 인터넷상으로 어떻게 올리나요? 그런 기술을 일명 active form...
-
- 사발우성
- •
- 2000.06.23 02:06
- 2 COMMENTS
- /
- 0 LIKES
-
술친구•2000.06.23 01:32사발우성 wrote: > > 하요 고수님들 오늘 비가 오니까 기분이 우울 하네엽.....ㅠ.ㅠ 떠나간...
-
사발우성•2000.06.23 18:36> > top:=pos.y; > > left:=pos.x; > > right:=pos.X+200...
-
- 김희연
- •
- 2000.06.23 00:01
- 1 COMMENTS
- /
- 0 LIKES
-
송재영•2000.06.23 03:21chr 함수나 거 반대되는 함수를 사용해 보세요. ^^; 김희연 wrote: > 가령 Hexa값 0x32 0x30 0x30 0x30 ...
음 일단 프로그램에 대한 소스를 보니 전체를 리프레쉬하는 방법을 사용하셨네여.
음. 이렇게 되면 전체를 다시 그리기때문에 아주 빠른(?) 컴퓨터를 사용하지 않는한
계속 깜빡이게 될겁니다.
그러면 어떻게 해야하냐면...
한줄 내지는 두줄씩 색을 반영하면 아마도 자연스럽게 색이 바뀝니다.
즉 lintto 와 같은 함수를 사용하시면 자연스럽게 색이 바뀌는걸 표현하실수
있을 겁니다.
이만...
이희재 wrote:
> 안녕하세요!!!!!
>
> 파이프에서 압력 차를 나타내기 위한 프로그램을 수행중에 있습니다.
>
> 압력차의 표현은 대략 각직사각형에 각기 다른 색으로 표현하여 RGB 색깔로
> (아래 예시는 진한 빨강에서 옅은 색으로 점점) 나타내었고,
> 유체가 흐르게끔 보이기 위해서 Timer를 이용하였어요..(편의상 3개의 직사각형만 나타냈습니다.) 깜박이는 색깔은 두색상의 아래의 색으로,물이 흐르게보이게끔 그런식으로...
>
>
> 그런데, 흐르게끔 보이게 할려면 각 직사각형이 순차적으로 깜빡여야하는데
> (1번 직사각형 깜빡후 2번 직사각형 깜빡, 그후 3번째....그런식으로)
> 아래의 프로그램은 직사각형 3개가 동일하게, 같이 깜박이더군요....
> 이 문제를 어떻게 해결하면 좋은지 자세한 조언이나, 더 나은 프로그램의 제시를
> 부탁드립니다.
>
> 그리고 아래의 프로그램이 실행되는데 버그가 있는것 처럼 파이프 전체가 흔들리거나 깜빡(저정되지않은 바탕색으로)거림니다. 좀더 부드럽게, 파이프 내에서 물이 흐르는 것 처럼 표현하고 싶습니다. 이에 관련된 자료를 최대한도로 보내주시면, 정말 정말 감사하겠습니다.
>
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> if iToggle = 0 then
> begin
> Canvas.Pen.Color := RGB(255,10,10);
> Canvas.Pen.Width := 1;
> Canvas.Brush.Color := RGB(255,10,10);
> Canvas.Rectangle(100,430,157,460);
>
> Canvas.Pen.Color := RGB(255,51,51);
> Canvas.Pen.Width := 1;
> Canvas.Brush.Color := RGB(255,51,51);
> Canvas.Rectangle(157,430,214,460);
>
> Canvas.Pen.Color := RGB(255,76,76);
> Canvas.Pen.Width := 1;
> Canvas.Brush.Color := RGB(255,76,76);
> Canvas.Rectangle(214,430,271,460);
>
> end
> else begin
> Timer1.Interval := 100;
>
> Canvas.Pen.Color := RGB(255,0,0);
> Canvas.Pen.Width := 1;
> Canvas.Brush.Color := RGB(255,0,0);
> Canvas.Rectangle(100,430,157,460);
>
> Canvas.Pen.Color := RGB(255,41,41);
> Canvas.Pen.Width := 1;
> Canvas.Brush.Color := RGB(255,41,41);
> Canvas.Rectangle(157,430,214,460);
>
> Canvas.Pen.Color := RGB(255,66,66);
> Canvas.Pen.Width := 1;
> Canvas.Brush.Color := RGB(255,66,66);
> Canvas.Rectangle(214,430,271,460);
>
> end;
> iToggle := 1 - iToggle;
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> iToggle := 0;
> end;
> end.
>
> P.S. 위의 프로그램에 많은 조언 주신 하얀까마귀님께 다시 감사드림니다...