Q&A
- StringGrid 정렬시
procedure Tsjsj03frm.Detail_SGDrawCell(Sender: TObject;
ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
if (ARow = 0) then //타이틀을 가운데로 정렬한다.
begin
with Detail_SG do
begin
FillRect(Rect); //1번
Rect.Left := (Rect.Left + Rect.Right - TextWidth(Trim
(Detail_SG.Cells[Col, Row]))) Div 2; //2번
TextRect(Rect, Rect.Left, Rect.Top + 3, Trim
(Detail_SG.Cells[Col, Row])); //3번
end;
end
else
begin
if (ACol in [2, 3, 4]) then
begin //숫자가 들어가는 CELL은 우측으로 정렬한다.
with Detail_SG do
begin
FillRect(Rect);
Rect.Left := Rect.Right - TextWidth(Trim
(Detail_SG.Cells[Col, Row])) - 3;
TextRect(Rect, Rect.Left, Rect.Top + 3, Trim
(Detail_SG.Cells[Col, Row]));
end;
end;
end;
end;
위와 같이 델파이 4.0에서 사용하던 루틴을 그래도 사용했습니다.
Col, Row가 ACol, ARow로 바뀌어서 바꿨습니다만,
1번에서는 Incompatible types : 'HDC' and 'TRect'
2번에서는 Undeclared identifier : 'TextWidth'
3번에서는 Undeclared identifier : 'TextRect'라는 에러가 발생합니
다.
이 부분도 다르게 바꾸어야 하는지요?
ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
if (ARow = 0) then //타이틀을 가운데로 정렬한다.
begin
with Detail_SG do
begin
FillRect(Rect); //1번
Rect.Left := (Rect.Left + Rect.Right - TextWidth(Trim
(Detail_SG.Cells[Col, Row]))) Div 2; //2번
TextRect(Rect, Rect.Left, Rect.Top + 3, Trim
(Detail_SG.Cells[Col, Row])); //3번
end;
end
else
begin
if (ACol in [2, 3, 4]) then
begin //숫자가 들어가는 CELL은 우측으로 정렬한다.
with Detail_SG do
begin
FillRect(Rect);
Rect.Left := Rect.Right - TextWidth(Trim
(Detail_SG.Cells[Col, Row])) - 3;
TextRect(Rect, Rect.Left, Rect.Top + 3, Trim
(Detail_SG.Cells[Col, Row]));
end;
end;
end;
end;
위와 같이 델파이 4.0에서 사용하던 루틴을 그래도 사용했습니다.
Col, Row가 ACol, ARow로 바뀌어서 바꿨습니다만,
1번에서는 Incompatible types : 'HDC' and 'TRect'
2번에서는 Undeclared identifier : 'TextWidth'
3번에서는 Undeclared identifier : 'TextRect'라는 에러가 발생합니
다.
이 부분도 다르게 바꾸어야 하는지요?
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 최두승
- •
- 2000.03.04 11:26
- 5 COMMENTS
- /
- 0 LIKES
-
류동균•2000.03.06 08:01당연히 에러가 나죠. sudang field 는 DB의 Table에 존재하지 않는 필드이기때문에(calcfield) Query문에... -
최두승•2000.03.14 09:27>진심으로 감사드립니다. 많은 도움이 되었습니다. 비슷한 질문을 다시한번 드립니다. 저는 교육연수...
-
뿌요•2001.01.03 18:40강사별로(sabun별로) avg(manjok), sum(lpoint), sum(manpoint), sum(totalpoint)를 나타낼려면 lecture.db...
-
하얀까마귀•2000.03.04 21:28안녕하세요 하얀까마귀 입니다. 종이학님께서 말씀하신 내용이 맞는데요.. 저는 좀 이상해서 몇자 적으...
-
종이학•2000.03.04 18:20최두승 wrote: > 판매관리 프로그램을 만들려고합니다. > > paradox table에 다음과 같이 field를 구성...
-
- 첩현
- •
- 2000.03.04 11:02
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.05 01:28아녕하세요 하얀까마귀입니다. 이건 제가 테스트 한거니까 될겁니다. 그럼 수고하세요 procedure TF...
-
- 이지만
- 2000.03.04 09:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 이방인
- 2000.03.04 06:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤정선
- •
- 2000.03.04 06:18
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.04 06:41안녕하세요 하얀까마귀 입니다. MDIChildren MDIChildCount 가 있어요... 카운트는 당연히 현재의 차일드...
-
- 이선우
- 2000.03.04 05:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 이선우
- 2000.03.04 05:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 염선희
- 2000.03.04 05:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 김상현
- •
- 2000.03.04 04:42
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.03.04 20:23뭐 코딩이 조잡합니다만 저도 비슷한 프로그램을 만든적이 있어 글을 올립니다. 제가 봐도 못 알아보겠네...
-
- 제로
- 2000.03.04 04:32
- 0 COMMENTS
- /
- 0 LIKES
-
-
이재식•2000.03.04 09:12초보맨 wrote: > dbgrid 특정 필드에 포커스를 주던가 접근 하는 방법은 없나요 이재식 Wrote : 안녕...
-
하얀까마귀•2000.03.04 05:29초보맨 wrote: > dbgrid 특정 필드에 포커스를 주던가 접근 하는 방법은 없나요 안녕하세요 하얀까마귀...
-
-
- 양동욱
- 2000.03.04 03:09
- 0 COMMENTS
- /
- 0 LIKES
-
- peter60
- 2000.03.04 02:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 이윤환
- 2000.03.04 02:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지훈
- •
- 2000.03.04 01:54
- 1 COMMENTS
- /
- 0 LIKES
-
peter60•2000.03.04 03:04이지훈 wrote: > > 안녕하세요... > > 필드의 자릿수를 늘린 후로 다음과 같은 에러 메시지...
-
- 기타맨
- •
- 2000.03.04 01:52
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.04 02:10Add 대신에 Insert를 쓰세요... ComboBox1.Items.Add(S); ====> ComboBox1.Items.Insert(0, S); 기타...
-
- 황선희
- •
- 2000.03.04 01:31
- 1 COMMENTS
- /
- 0 LIKES
procedure Tsjsj03frm.Detail_SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (ARow = 0) then //타이틀을 가운데로 정렬한다. begin with Detail_SG do begin FillRect(Rect); //1번 ...-
이만준•2000.03.04 02:35황선희 wrote: > procedure Tsjsj03frm.Detail_SGDrawCell(Sender: TObject; > ACol, ARow: Integer; R...
-
-
- 이재광
- •
- 2000.03.04 00:49
- 1 COMMENTS
- /
- 0 LIKES
-
hart•2000.03.06 20:34델파이 4.0을 퀴리포트에서 가변적으로 출력은 조금 문제가 있는것 같은데. 패치하시고 작업하는게 좋을 것...
-
- bjjang74
- 2000.03.04 00:45
- 0 COMMENTS
- /
- 0 LIKES
> procedure Tsjsj03frm.Detail_SGDrawCell(Sender: TObject;
> ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
> begin
> if (ARow = 0) then //타이틀을 가운데로 정렬한다.
> begin
> with Detail_SG do
> begin
> FillRect(Rect); //1번
> Rect.Left := (Rect.Left + Rect.Right - TextWidth(Trim
> (Detail_SG.Cells[Col, Row]))) Div 2; //2번
> TextRect(Rect, Rect.Left, Rect.Top + 3, Trim
> (Detail_SG.Cells[Col, Row])); //3번
> end;
> end
> else
> begin
> if (ACol in [2, 3, 4]) then
> begin //숫자가 들어가는 CELL은 우측으로 정렬한다.
> with Detail_SG do
> begin
> FillRect(Rect);
> Rect.Left := Rect.Right - TextWidth(Trim
> (Detail_SG.Cells[Col, Row])) - 3;
> TextRect(Rect, Rect.Left, Rect.Top + 3, Trim
> (Detail_SG.Cells[Col, Row]));
> end;
> end;
> end;
> end;
>
> 위와 같이 델파이 4.0에서 사용하던 루틴을 그래도 사용했습니다.
>
> Col, Row가 ACol, ARow로 바뀌어서 바꿨습니다만,
>
> 1번에서는 Incompatible types : 'HDC' and 'TRect'
> 2번에서는 Undeclared identifier : 'TextWidth'
> 3번에서는 Undeclared identifier : 'TextRect'라는 에러가 발생합니
> 다.
>
> 이 부분도 다르게 바꾸어야 하는지요?
>
안녕하세요..
> with Detail_SG do ==> with Detail_SG.Canvas do
이렇게 고치면 되겠네요...
다들 TCanvas 에 있는 것들이네요..
그럼