자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 바쁜 와중에도 답변을 주시는 분들께 감사 댓글 필수
-----------------------------------------------------------------------------------------------
안녕하세요!!! 고수님들의 해결책을 구합니다.

DBGrid를 사용하면 정상적으로 출력되는데 StringGrid는 이상한 현상이 나타납니다.

 

동일한 현상이 제가 개발하는 프로그램마다 발생하여 여러가지로 방법을 각종 사이트(데브기어 사이트와 델마당등)에서

찾아봐도 도무지 해결방법이 없어 방법을 구함니다. 이것 해결하느라 몇일동안 헤매고 있답니다.

고수님들의 해결책을 기다리고 있겠습니다.

 

즉 나타나는 현상은 다음과 같습니다. 파일을 Attatch하였습니다.

IMG_1345.jpg

 

 

그리고 코딩을 다음과 같이 했습니다.

 

procedure TfrmNPLP500D.btnQueryClick(Sender: TObject);

begin
    strTotSum1.Cells[0,0] := ' 점검 항목';
    strTotSum1.Cells[1,0] := '  대상 건수';
    strTotSum1.Cells[2,0] := '   비    고';
    strTotSum1.Cells[0,1] := 'A업무';
    strTotSum1.Cells[1,1] := FormatFloat('0,',Ta1_1);
    strTotSum1.Cells[0,2] := 'B업무';
    strTotSum1.Cells[1,2] := FormatFloat('0,',Ta1_2);
end;
 
 
procedure TfrmNPLP500D.strTotSum1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  s:string;
  pos:integer;
  oldalign:integer;
begin
  s := strTotSum1.Cells[acol, arow]; // 각 셀의 해당 값을 가져온다.
  with strTotSum1.Canvas do
  begin
 
    fillrect(rect);
    begin
      if (acol = 1 )  then                                 //오른쪽 정렬
        begin
          oldalign := setTextalign(handle, ta_right);
          textrect(rect, rect.right, rect.Top+3, s);
          setTextalign(handle,oldalign);
        end
      else if (acol = 2 ) then   //왼쪽 정렬
        begin
          oldalign := setTextalign(handle, ta_left);
          textrect(rect, rect.left, rect.Top+3, s);
          setTextalign(handle,oldalign);
        end
      else                                                     //중앙 정렬
        begin
          pos := ((rect.Right - rect.Left) - textwidth(s)) div 2;
          textrect(rect, rect.Left+pos, rect.Top+3, s);
        end;
    end;
  end;
 
end;
 

어느부문에 오류가 있어서 발생한 것인가요?

고수님들의 고귀한 해결책 부탁드립니다.

감사합니다.

 

 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15638
공지 유용한 관련 사이트 관리자2 2014.03.20 54469
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97838
3279 rad studio xe2 설치 프로그램 실행시 설치프로그램 강제 종료 secret 마구 2013.04.30 0
3278 paserver오류 [1] secret 최종호 2013.05.02 1
3277 DB 관련 질문 입니다! [1] secret 탄돌이 2013.06.17 1
3276 JVL이라는 라이브러리 관련에러 [1] secret 관리자 2015.02.25 1
3275 제품관련 질문입니다. [1] secret 우와 2014.07.17 2
3274 델파이 프로그래밍언어 책 구입했는데요 [1] secret 나본좌 2012.04.10 2
3273 책 19쪽에 맨처음 하는 예제에서요 secret 나본좌 2012.04.11 2
3272 DB Query 문의 드립니다. [1] secret memc 2012.05.16 2
3271 html5 buider 문의 드립니다. secret 2012.12.14 2
3270 Component들이 보이지 않습니다. secret 변보언 2013.01.22 2
3269 기본 bpl (rtl160.bpl등) 배포시 jdbg파일도 같이 배포해야 하나요? [1] secret 한림대의료원정보기술센터 2013.06.11 2
3268 string.format 함수의 한글 자리수 문제 secret kidb 2014.03.04 2
3267 비콘 안드로이스 샘플소스로 실행했는데 안됩니다. [2] secret kim 2015.12.04 2
3266 비콘신호 수신간격 조정을 어디서 해야하나요? [2] secret kim 2015.12.04 2
3265 MessageDlg 관련 질문입니다. [1] secret 신산 2013.06.20 3
3264 [한미반도체] 64BIT PACKGE관련문의 secret 키루루 2014.08.20 3
3263 위험감지앱이 감지를 했을때만 화면표시를 할 수 있나요? [2] secret kim 2015.12.02 3
3262 ChannelManager을 이용한 콜백 문의 secret lespaul06 2015.02.04 3
3261 WebBrowser1 익스플로러 버젼 secret fanta 2015.01.31 3
3260 아래 질문에 대한 스크린샷 첨부입니다. [2] secret 조우상 2012.05.02 4