Jump to content
과거의 기술자료(읽기 전용): https://tech.devgear.co.kr ×
과거의 기술자료(읽기 전용): https://tech.devgear.co.kr
  • 0

델파이12 stringgrid 관련


김승연

질문

델파이 12로 코딩을 하던중에 작동이 되지 않는것이 있어서 문의 드립니다.

procedure Tfpmobs10_asn.StringGrid1DblClick(Sender: TObject);
begin
if  StringGrid1.Cells[12,StringGrid1.Row]  = '*' then
      StringGrid1.Cells[12,StringGrid1.Row] := ''
  else
      StringGrid1.Cells[12,StringGrid1.Row] := '*';
end;
procedure Tfpmobs10_asn.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: LongInt; Rect: TRect; State: TGridDrawState);
begin
  // ---------------------------------------
  // 현재의 라인
  // ---------------------------------------
  if  (ARow > 0) and (StringGrid1.cells[12,ARow] = '*') then
  begin
    if (StringGrid1.Cells[12,ARow] = '*') then      // 선택된 라인
        StringGrid1.canvas.brush.color := clNavy
    else
        StringGrid1.canvas.brush.color := ClBlue;
    //
    StringGrid1.canvas.Font.color  := ClWhite;
  end;
end;

이 코드를 적용하면 라인의 컬러가 바뀌어야 하는데 안바뀝니다... 

왜 그런지 모르겠네요 ..

이 댓글 링크
다른 사이트에 공유하기

2 answers to this question

Recommended Posts

이 토의에 참여하세요

지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.

Guest
이 질문에 답변하기...

×   서식있는 텍스트로 붙여넣기.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   이전에 작성한 콘텐츠가 복원되었습니다..   편집창 비우기

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

중요한 정보

이용약관 개인정보보호정책 이용규칙 이 사이트가 더 잘 작동하기 위해 방문자의 컴퓨터에 쿠키가 배치됩니다. 쿠키 설정 변경에서 원하는 설정을 할 수 있습니다. 변경하지 않으면 쿠키를 허용하는 것으로 이해합니다.