자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15636
공지 유용한 관련 사이트 관리자2 2014.03.20 54466
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97835
2759 스트링그리드 문자 정렬 문제 [4] file 똘귀아빠 2020.02.03 969
2758 한글깨짐 문제 ( 한글 폴더 선택시) . file 그아이네 2020.02.07 365
2757 델파이 10.3 TCardPanel 버그 신고 [2] 이치고 2020.02.07 230
2756 RemObject 사용시 파일 업로드 삭제 방법? [1] 가나다 2020.02.06 150
2755 [안드로이드][64bit배포][C++ Builder] 안드로이드 배포 관련 문의 입니다. [3] vastia 2020.02.03 354
2754 델파이 6과 10.3.3 Rio 를 한 컴퓨터에서 실행할 수 있나요? [1] 노력하는삶 2020.02.06 249
2753 델파이10.2에서 MariaDB10버전은 연결이 안되는 건가요 [2] 육식육식 2020.02.05 850
2752 기존 MDI프로극램에 데몬프로그램 기능을 추가하고 싶습니다 [4] 헨씀히포 2020.02.03 222
2751 개발자 기술자료의 동영상 링크가 안되는게 너무 많습니다. [2] 노력하는삶 2020.02.05 115
2750 FireDAC MS SQL Table 접속 문의 [1] 아들만셋 2020.02.03 1207
2749 Form의 BorderStyle 정의시점?에 대한 차이점 질문입니다. [5] file Danny 2020.01.22 218
2748 MDI Child Dll [2] 라시드 2015.10.26 348
» StringGrid에 출력되는 Data(제목등)이 이중(잔상?)으로 나오는데 해결책을 구합니다. [4] file AllwaysHappy 2017.11.01 13843
2746 델파이 10.3.3 Rio 에서 fastreport 가 어디 있나요? [1] 노력하는삶 2020.02.04 158
2745 Windows 64-bit로 빌드 후 실행 시 오류가 납니다. [1] file 비앤케이 2020.02.03 226
2744 델파이 컴파일 후 실행 오류 관련 [2] file 똘귀아빠 2020.01.31 229
2743 [현대화 세미나] 윈도우, 우분투, 안드로이드, iOS, OSX 간 효과적인 마이그레이션 방법이 궁금합니다. 험프리 2020.01.31 291
2742 [현대화 세미나] 리눅스 환경에서 데이터스냅 배포 방법이 궁금합니다. 험프리 2020.01.31 235
2741 원격서버(호스팅서버)에 데이터스냅 미들웨어 배포하는 방법 운직 2020.01.31 96
2740 DB접속에 문제가 있어 여쭈어 봅니다. [5] 루키 2019.08.07 590