Q&A
- panel색깔바꾸기.
panel의 색깔을 바꾸려고 하려는데 잘 안돼네요..
테이블의 3번째 필드에서 데이타가 0이면 색깔을 빨간색으로 그 이외의 값은
파란색으로 panel의 색깔을 바꾸려고 합니다.
밑에는 제가 한 건데 안돼네여..
꼭 부탁드립니다.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure pump1;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.pump1;
var
i : integer;
begin
adoquery1.First;
for i := 1 to adoquery1.recordcount do
begin
if adoquery1.Fields[2].Value = '0' then
begin
panel1.color := clblue;
end
else
panel1.color := clred;
end;
adoquery1.next;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end;
end.
테이블의 3번째 필드에서 데이타가 0이면 색깔을 빨간색으로 그 이외의 값은
파란색으로 panel의 색깔을 바꾸려고 합니다.
밑에는 제가 한 건데 안돼네여..
꼭 부탁드립니다.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure pump1;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.pump1;
var
i : integer;
begin
adoquery1.First;
for i := 1 to adoquery1.recordcount do
begin
if adoquery1.Fields[2].Value = '0' then
begin
panel1.color := clblue;
end
else
panel1.color := clred;
end;
adoquery1.next;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end;
end.
3
COMMENTS
-
-
블랙봉 wrote:
> 이우호 wrote:
> > panel의 색깔을 바꾸려고 하려는데 잘 안돼네요..
> > 테이블의 3번째 필드에서 데이타가 0이면 색깔을 빨간색으로 그 이외의 값은
> > 파란색으로 panel의 색깔을 바꾸려고 합니다.
> > 밑에는 제가 한 건데 안돼네여..
> > 꼭 부탁드립니다.
> >
> > unit Unit1;
> >
> > interface
> >
> > uses
> > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> > Db, ADODB, ExtCtrls, StdCtrls;
> >
> > type
> > TForm1 = class(TForm)
> > Panel1: TPanel;
> > DataSource1: TDataSource;
> > ADOQuery1: TADOQuery;
> > Button1: TButton;
> > procedure Button1Click(Sender: TObject);
> >
> > private
> > { Private declarations }
> > public
> > procedure pump1;
> > { Public declarations }
> > end;
> >
> > var
> > Form1: TForm1;
> >
> > implementation
> >
> > {$R *.DFM}
> >
> > procedure TForm1.pump1;
> > var
> > i : integer;
> > begin
> > adoquery1.First;
> > for i := 1 to adoquery1.recordcount do
> > begin
> > if adoquery1.Fields[2].Value = '0' then
> > begin
> > panel1.color := clblue;
> > end
> > else
> > panel1.color := clred;
> > end;
> > adoquery1.next;
> > end;
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > begin
> > application.Terminate;
> > end;
> >
> > end.
> >
>
> 현재 선택된 레코드의 3번째 필드 값에 의해 패널의 색상을 바꾸실려고 그러시는 건가요?
> 지금 현재 코딩을 보면 항상 맨 마지막 레코드의 값에 의해 색상이 결정되도록 되어 있는 것 같네요.
> ADOQuery에도 AfterScroll 이벤트가 있는 것 같네요. 그 이벤트에서 색상 변경하는 루틴을 넣어주시면 될 것 같은데요.
>
> if adoquery1.Fields[2].Value = '0' then
> panel1.color := clblue;
> else
> panel1.color := clred;
우호 reply :
제가 해보니까 첫번째 레코드에 의해서만 변경되고 다음 레코드에서 부터는 변화가 없어요.
-
이우호 wrote:
> 블랙봉 wrote:
> > 이우호 wrote:
> > > panel의 색깔을 바꾸려고 하려는데 잘 안돼네요..
> > > 테이블의 3번째 필드에서 데이타가 0이면 색깔을 빨간색으로 그 이외의 값은
> > > 파란색으로 panel의 색깔을 바꾸려고 합니다.
> > > 밑에는 제가 한 건데 안돼네여..
> > > 꼭 부탁드립니다.
> > >
> > > unit Unit1;
> > >
> > > interface
> > >
> > > uses
> > > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> > > Db, ADODB, ExtCtrls, StdCtrls;
> > >
> > > type
> > > TForm1 = class(TForm)
> > > Panel1: TPanel;
> > > DataSource1: TDataSource;
> > > ADOQuery1: TADOQuery;
> > > Button1: TButton;
> > > procedure Button1Click(Sender: TObject);
> > >
> > > private
> > > { Private declarations }
> > > public
> > > procedure pump1;
> > > { Public declarations }
> > > end;
> > >
> > > var
> > > Form1: TForm1;
> > >
> > > implementation
> > >
> > > {$R *.DFM}
> > >
> > > procedure TForm1.pump1;
> > > var
> > > i : integer;
> > > begin
> > > adoquery1.First;
> > > for i := 1 to adoquery1.recordcount do
> > > begin
> > > if adoquery1.Fields[2].Value = '0' then
> > > begin
> > > panel1.color := clblue;
> > > end
> > > else
> > > panel1.color := clred;
> > > end;
> > > adoquery1.next;
> > > end;
> > >
> > > procedure TForm1.Button1Click(Sender: TObject);
> > > begin
> > > application.Terminate;
> > > end;
> > >
> > > end.
> > >
> >
> > 현재 선택된 레코드의 3번째 필드 값에 의해 패널의 색상을 바꾸실려고 그러시는 건가요?
> > 지금 현재 코딩을 보면 항상 맨 마지막 레코드의 값에 의해 색상이 결정되도록 되어 있는 것 같네요.
> > ADOQuery에도 AfterScroll 이벤트가 있는 것 같네요. 그 이벤트에서 색상 변경하는 루틴을 넣어주시면 될 것 같은데요.
> >
> > if adoquery1.Fields[2].Value = '0' then
> > panel1.color := clblue;
> > else
> > panel1.color := clred;
>
> 우호 reply :
> 제가 해보니까 첫번째 레코드에 의해서만 변경되고 다음 레코드에서 부터는 변화가 없어요.
음... 위에서 제가 말씀드린 대로 했는데도 안된다는 말씀인가요?
이상하네요.... 제가 해보니까 AfterScroll에서 처리하면 되는데요...
(NOTICE) You must be logged in to comment on this post.
-
- 김아성
- •
- 2001.05.15 01:04
- 10 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.05.15 01:19
-
김아성•2001.05.15 01:55
-
음..•2001.05.15 02:19
-
김아성•2001.05.15 02:28
-
이원택•2001.05.15 04:01
-
김아성•2001.05.16 00:21
-
블랙봉•2001.05.15 19:18
- • • •
-
- hlpark
- 2001.05.15 00:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 이영준
- •
- 2001.05.15 00:49
- 2 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.05.15 01:29이영준 wrote: > 안녕하신지요.. > 요즘 델파이가 무지 속 쓰리게 만듭니다. 헉~~ 환장하겠습니다. > ...
-
이영준•2001.05.15 01:44parkisu wrote: > 이영준 wrote: > > 안녕하신지요.. > > 요즘 델파이가 무지 속 쓰리게 만듭니다. 헉~...
-
- [초보]궁금이
- •
- 2001.05.15 00:49
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.05.15 01:01Copy(자를문자,문자시작,자를문자길이) Edit1.Text := 'abcdefgh'; Copy(Edit1.Text,1,3); value = ...
-
- 진짜초보
- •
- 2001.05.15 00:40
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.05.15 01:32진짜초보 wrote: > 이상하게 밑에서 리플이 안달아져서.. > 그냥..위에다 남기게되었습니다..게시마저도 ...
-
- 새까만넘
- •
- 2001.05.15 00:21
- 1 COMMENTS
- /
- 0 LIKES
-
hlpark•2001.05.15 01:45같은 초보 답변입니다. treeview의 ReadOnly를 true로 주시면 되요..... 즐프하세요~ > 안녕하세...
-
- 이우호
- •
- 2001.05.15 00:08
- 3 COMMENTS
- /
- 0 LIKES
panel의 색깔을 바꾸려고 하려는데 잘 안돼네요.. 테이블의 3번째 필드에서 데이타가 0이면 색깔을 빨간색으로 그 이외의 값은 파란색으로 panel의 색깔을 바꾸려고 합니다. 밑에는 제가 한 건데 안돼네여.. 꼭 부탁드립니다. unit Unit1;...-
블랙봉•2001.05.15 00:15이우호 wrote: > panel의 색깔을 바꾸려고 하려는데 잘 안돼네요.. > 테이블의 3번째 필드에서 데이타가 ...
-
이우호•2001.05.15 03:01블랙봉 wrote: > 이우호 wrote: > > panel의 색깔을 바꾸려고 하려는데 잘 안돼네요.. > > 테이블의 3번...
-
블랙봉•2001.05.15 19:11이우호 wrote: > 블랙봉 wrote: > > 이우호 wrote: > > > panel의 색깔을 바꾸려고 하려는데 잘 안돼네...
-
-
블랙봉•2001.05.14 23:45써니 wrote: > 검색시 오름차순으로 정렬하는데 50번째까지데이타만 출력하고 싶습니다. > 알려주세요. ...
-
써니•2001.05.14 23:50블랙봉 wrote: > 써니 wrote: > > 검색시 오름차순으로 정렬하는데 50번째까지데이타만 출력하고 싶습니...
-
물고기나라•2001.05.15 00:01써니 wrote: > 블랙봉 wrote: > > 써니 wrote: > > > 검색시 오름차순으로 정렬하는데 50번째까지데이타...
-
-
- 질문
- •
- 2001.05.14 23:27
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.14 23:47질문 wrote: > 안녕하세요. > > Table에서 Filter로 조회한 데이타 수정이 안됩니다. > > Query를 ...
-
- 김현우
- •
- 2001.05.14 23:21
- 1 COMMENTS
- /
- 0 LIKES
-
유상원•2001.05.15 03:01수고 많습니다. 저희 회사에서도 준비하고 있어서 아는 만큼만 알려드리죠 장비가격은 800만원 정도 이...
-
- 허접코딩이
- 2001.05.14 23:15
- 0 COMMENTS
- /
- 0 LIKES
-
- delcho
- •
- 2001.05.14 22:53
- 1 COMMENTS
- /
- 0 LIKES
-
물고기나라•2001.05.14 23:56delcho wrote: > 안녕하세요.고수님들.... > 저는 stored procedure 를 이용해서 db 작업을 하고 있습니...
-
- moony
- 2001.05.14 22:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 진짜초보
- •
- 2001.05.14 22:23
- 4 COMMENTS
- /
- 0 LIKES
-
Bulduki•2001.05.14 22:32DBGrid OnClick Event에 다음처럼 코딩하시면 됩니다. // DBGrid Click procedure TForm1.DBGrid1CellC...
-
진짜초보•2001.05.14 23:47답변에 감사드리고요~ 그런데..뿌려지지가 않는군요.. 제가 어떤 다른 실수를 했던지..아님.. 뭐가 잘못...
-
물고기나라•2001.05.15 00:07진짜초보 wrote: > 답변에 감사드리고요~ > 그런데..뿌려지지가 않는군요.. > 제가 어떤 다른 실수를 했...
-
진짜초보•2001.05.15 00:36물고기나라 wrote: > 진짜초보 wrote: > > 답변에 감사드리고요~ > > 그런데..뿌려지지가 않는군요.. >...
-
- 박회연
- 2001.05.14 21:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 과객
- 2001.05.14 21:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2001.05.14 21:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 이호원
- •
- 2001.05.14 21:11
- 3 COMMENTS
- /
- 0 LIKES
-
물고기나라•2001.05.15 00:13이호원 wrote: > 안녕하세요.. > > 저는 delphi 5.0 professional 정본을 사용하고 있습니다. > > ...
-
최혜룡•2001.05.15 09:14ent 버젼에서는 둘다가능한게 확실하고요(당근이지만) pro 버전이하에서는 Native방식은 안되는게 확실한...
-
이호원•2001.05.15 01:08> 델파이 엔터프라이즈 버젼에서는 해봤느네 버젼에 따라 어떤넘은 되고 안되고 할꺼 같지는 않은데 --' ...
-
- 이광배
- 2001.05.14 21:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁그미
- 2001.05.14 20:54
- 0 COMMENTS
- /
- 0 LIKES
> panel의 색깔을 바꾸려고 하려는데 잘 안돼네요..
> 테이블의 3번째 필드에서 데이타가 0이면 색깔을 빨간색으로 그 이외의 값은
> 파란색으로 panel의 색깔을 바꾸려고 합니다.
> 밑에는 제가 한 건데 안돼네여..
> 꼭 부탁드립니다.
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Db, ADODB, ExtCtrls, StdCtrls;
>
> type
> TForm1 = class(TForm)
> Panel1: TPanel;
> DataSource1: TDataSource;
> ADOQuery1: TADOQuery;
> Button1: TButton;
> procedure Button1Click(Sender: TObject);
>
> private
> { Private declarations }
> public
> procedure pump1;
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.pump1;
> var
> i : integer;
> begin
> adoquery1.First;
> for i := 1 to adoquery1.recordcount do
> begin
> if adoquery1.Fields[2].Value = '0' then
> begin
> panel1.color := clblue;
> end
> else
> panel1.color := clred;
> end;
> adoquery1.next;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> application.Terminate;
> end;
>
> end.
>
현재 선택된 레코드의 3번째 필드 값에 의해 패널의 색상을 바꾸실려고 그러시는 건가요?
지금 현재 코딩을 보면 항상 맨 마지막 레코드의 값에 의해 색상이 결정되도록 되어 있는 것 같네요.
ADOQuery에도 AfterScroll 이벤트가 있는 것 같네요. 그 이벤트에서 색상 변경하는 루틴을 넣어주시면 될 것 같은데요.
if adoquery1.Fields[2].Value = '0' then
panel1.color := clblue;
else
panel1.color := clred;