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 21:40
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.11 22:26
      먼저 OnChange이벤트를 재정의를 하십시요. 그리고 ChangeBySelf라는 변수를 Boolean형으로 주시구요.. O...
    • 최석기
      1999.05.12 02:23
      이정욱 wrote: > 먼저 OnChange이벤트를 재정의를 하십시요. > 그리고 ChangeBySelf라는 변수를 Boolean...
    • 이정욱
      1999.05.11 20:23
      RxLib의 RichEDit2 콘트롤을 사용하는 방법이 있구요.. 또하나는 상용인 InfoPower에 포함되어있는 RichEd...
    • 아무게
    • 1999.05.11 18:49
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.11 20:26
      공유정보를 읽어오는것입니다. 김영대님의 팁에서 가져왔습니다. // 아래 예제는 Windows NT/Windows 20...
    • 김지건
    • 1999.05.11 18:10
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 이정욱
      1999.05.11 20:16
      64k 이상을 넘지 못합니다. 그럴때는 RichEdit을 사용하시는것이 좋습니다. 아니면 상용으로나온 확장 Me...
    • 김지건
      1999.05.11 20:54
      이정욱 wrote: > 64k 이상을 넘지 못합니다. > 그럴때는 RichEdit을 사용하시는것이 좋습니다. > 아니면...
    • 송수정
    • 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에 텍스트가 아닌 텍스트와 이미지가 들어가는 > 컴포넌트를 구합니다...