Q&A

  • 신인재님 답변감사..하나더...
답변 감사합니다.



canvas.Brush.Color - 요건 색깔 바꿀때:grid의 바탕을 바꿈...

canvas.Draw - 요건 비트맵그림넣을때 쓰면 돼겠습니다.:grid의 전체를 변경...

위의 답변 감사하고요...



아래것도 부탁합니다...

procedure TStkDFrm.StkGridDrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if StkQTabTPRate.Value>0 then

StkGrid.Columns[3].Font.Color:=clRed

else if StkQTabTPRate.Value<0 then

StkGrid.Columns[3].Font.Color:=clBlue

else

StkGrid.Columns[3].Font.Color:=clBlack;

end;



end.



에서 StkQTabTPrate.Value는 query되는 data의 값입니다.

그값이 >0면 Grid의 Colum(3)을 빨강글씨로...

=0면 Grid의 Colum(3)을 검정글씨로...

<0면 Grid의 Colum(3)을 파랑글씨로 나타내고자 합니다....

위와 같이했더니 글씨의 색이 바뀌기는 하는데...

현재의StkQTabTPrate.Value값이 현재의 Grid의 Colum(3)에 영향을

주는게 아니고 다음 레코드의 display시 Grid의 Colum(3)에 영향을 줍니다.

그러니까 하나씩 밀려서 적용이 되는 셈이죠...

참고로... DrawColumnCell event를 사용했습니다.

답변해 주시면 감사하겠습니다.







1  COMMENTS
  • Profile
    이정욱 1999.05.11 20:32
    안녕하세요?

    제가 DB는 모르지만 언어적으로 해결을 하시려면...

    하나씩 기억했다가 사용하면 어떨까요?

    즉...

    TempValue를 전역변수로 하나 놓구요..



    procedure TStkDFrm.StkGridDrawColumnCell(Sender: TObject;

    const Rect: TRect; DataCol: Integer; Column: TColumn;

    State: TGridDrawState);

    begin

    if TempValue>0 then

    StkGrid.Columns[3].Font.Color:=clRed

    else if StkQTabTPRate.Value<0 then

    StkGrid.Columns[3].Font.Color:=clBlue

    else

    StkGrid.Columns[3].Font.Color:=clBlack;



    TempValue := StkQTabTPRate.Value;

    end;



    이렇게 하면 안될까요? 흐..

    한번 해보세요.. ^^;



    영이... wrote:

    > 답변 감사합니다.

    >

    > canvas.Brush.Color - 요건 색깔 바꿀때:grid의 바탕을 바꿈...

    > canvas.Draw - 요건 비트맵그림넣을때 쓰면 돼겠습니다.:grid의 전체를 변경...

    > 위의 답변 감사하고요...

    >

    > 아래것도 부탁합니다...

    > procedure TStkDFrm.StkGridDrawColumnCell(Sender: TObject;

    > const Rect: TRect; DataCol: Integer; Column: TColumn;

    > State: TGridDrawState);

    > begin

    > if StkQTabTPRate.Value>0 then

    > StkGrid.Columns[3].Font.Color:=clRed

    > else if StkQTabTPRate.Value<0 then

    > StkGrid.Columns[3].Font.Color:=clBlue

    > else

    > StkGrid.Columns[3].Font.Color:=clBlack;

    > end;

    >

    > end.

    >

    > 에서 StkQTabTPrate.Value는 query되는 data의 값입니다.

    > 그값이 >0면 Grid의 Colum(3)을 빨강글씨로...

    > =0면 Grid의 Colum(3)을 검정글씨로...

    > <0면 Grid의 Colum(3)을 파랑글씨로 나타내고자 합니다....

    > 위와 같이했더니 글씨의 색이 바뀌기는 하는데...

    > 현재의StkQTabTPrate.Value값이 현재의 Grid의 Colum(3)에 영향을

    > 주는게 아니고 다음 레코드의 display시 Grid의 Colum(3)에 영향을 줍니다.

    > 그러니까 하나씩 밀려서 적용이 되는 셈이죠...

    > 참고로... DrawColumnCell event를 사용했습니다.

    > 답변해 주시면 감사하겠습니다.

    >

    >

    >





    • 송수정
    • 1999.05.11 10:01
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.11 11:01
      한델(http://www.delphi.co.kr) 강의실에 가보시면 인쇄에 관한 강좌가 있습니다. 참고하시구요.. TPrint...
    • 엠마
    • 1999.05.11 09:04
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 하윤철
      1999.05.11 18:02
      엠마 wrote: > 테이블에 insert한후에 조회하면은 insert한 자료는 조회가 되지 않습니다. > 테이블에 데...
    • 강경중
    • 1999.05.11 07:08
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.05.11 08:09
      강경중 wrote: > 델파이의 폼에 콤포넌트를 추가하면 > 콤포넌트 마다 고유의 Taborder가 있습니다. > ...
    • 강경중
      1999.05.12 03:13
      안치봉 wrote: > 강경중 wrote: > > 델파이의 폼에 콤포넌트를 추가하면 > > 콤포넌트 마다 고유의 Tabo...
    • 강경중
    • 1999.05.11 06:53
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.11 10:08
      에러를 가로챈다기 보다 무시하게 하면 됩니다. Try Except문으로 처리하세요. 델파이환경에서 Break on ...
    • 강경중
    • 1999.05.11 06:47
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.11 11:03
      ImageList의 속성(Property)를 보시면 그림의 크기를 정하는곳이 있습니다. Width와 Height이죠. 그림은 ...
    • 누군지
      1999.05.11 10:12
      이런 종류의 질문이....??? 스스로 노력을 하다가 문제가 생겼을 때 질문을 해야하는것이 적어도 성의가...
    • 영이...
    • 1999.05.11 03:09
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.11 20:32
      안녕하세요? 제가 DB는 모르지만 언어적으로 해결을 하시려면... 하나씩 기억했다가 사용하면 어떨까요? ...
    • 왕초보
    • 1999.05.11 02:55
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.11 20:38
      CM_EXIT 라는 컴포넌트 내부 메세지를 가로채면 됩니다. procedure CMExit(var Message: TCMExit); mess...
    • 왕초보
      1999.05.11 21:54
      친절한 답변 감사드립니다... 이정욱 wrote: > CM_EXIT 라는 컴포넌트 내부 메세지를 가로채면 됩니다....
    • 이호선
    • 1999.05.11 01:57
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.11 20:50
      BitBtn1.Glyph.LoadFromFile의 메소드가 잘 먹히는데요? 아래는 테스트 해본 코드입니다... var ...
    • 왕초보
      1999.05.11 02:54
      Tfield의 EditMask에다가 #라고 쓰십시오...이게 무슨 뜻인지..? "#"으로만 editmask를 잡으면 1,234 와 ...
    • 하윤철
      1999.05.11 17:29
      죄송합니다... TField에 EditFormat과 DisplayFormat 속성이 있을겁니다. DisplayFormat은 보여주는 ...
    • 김장섭
    • 1999.05.10 20:57
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 글쎄요.
      1999.05.10 23:16
      영문으로 되 있는 데 참고하시는 데 그리 어려움이 없을 겁니다. 그럼 좋은 하루 되셔요. ////////// TI...
    • 김영대
      1999.05.10 22:27
      김장섭 wrote: > 콤보 박스의 Item에 텍스트가 아닌 텍스트와 이미지가 들어가는 > 컴포넌트를 구합니다...
    • 땡글이
    • 1999.05.10 20:44
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 신인재
      1999.05.10 21:37
      treeview의 Q&A를 한델(http:/www.delphi.co.kr)자료실에 올려 놓겠습니다. 참고 하세요... 땡글이 wro...
    • 김봉재
    • 1999.05.10 19:58
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 글쎄요.
      1999.05.10 23:24
      DeleteFiles함수입니다. 세번째 인자가 True이면 서브디렉토리까지 지워주고 아니면 현 디렉토리만 지웁니...
    • 안치봉
      1999.05.10 21:36
      김봉재 wrote: > 창이 두개 있는 화일 매니저같은(?)것을 만들어 보려고 합니다... > 여기서 각각의 화일...
    • 북해
    • 1999.05.10 18:20
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.10 19:37
      모 전적으로 맞는것은 아니지만 제 생각을 말씀드리죠. 일단, 비베는 MS 에서 나온 개발툴이죠. 우리가 생...
    • 이정욱
      1999.05.10 10:41
      패스워드 같은것을 저장하시려면 Encrypt 컴포넌트를 사용하시면 됩니다. 물론 저장은 텍스트형식으로 그...
    • 안명호
    • 1999.05.09 22:53
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.05.10 00:15
      안명호 wrote: > MS 의 SPY++ 이나 Borland 의 WinSight32 같이 > 다른 프로그램에서 발생하는 메시지...
    • 안명호
    • 1999.05.09 21:16
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.05.10 00:15
      안명호 wrote: > 윈도우즈에서 특정 프로그램이 실행 되는지 알아 보려면 어떻게 > 해야 하나요... > 프...