Q&A
- StringGrid에서 (OndrawCell작업) 글자가 안보여염..(ㅠㅠ)
아래와 같이 코딩을 했는데 글자가 안보이네요..
부탁드립니다.
with StringGrid1.Canvas do
begin
if (gdFixed in State) then
begin
Brush.Color := $00FF80FF;
Font.Color := clBlack;
FillRect(Rect);
end else if (StringGrid1.Cells[1,I] <> StringGrid1.Cells[7,I]) then
begin
Font.Color := clBlack;
Brush.Color := clPurple;
FillRect(Rect);
end else
begin
Font.Color := clWindowText;
Brush.Color := clWindow;
FillRect(Rect);
end;
end;
부탁드립니다.
with StringGrid1.Canvas do
begin
if (gdFixed in State) then
begin
Brush.Color := $00FF80FF;
Font.Color := clBlack;
FillRect(Rect);
end else if (StringGrid1.Cells[1,I] <> StringGrid1.Cells[7,I]) then
begin
Font.Color := clBlack;
Brush.Color := clPurple;
FillRect(Rect);
end else
begin
Font.Color := clWindowText;
Brush.Color := clWindow;
FillRect(Rect);
end;
end;
3
COMMENTS
-
-
저렇게 코딩해서 그리드의 셀을 비교해서 특정셀만 색깔이 바꿔어야 되거든요..
그리고 스트링 그리드의 Fixed 된 컬럼이 글자가 안보이네요
아까 가르쳐 준데로 했는데도요~~
다시한번 부탁드립니다.
> > with StringGrid1.Canvas do
> > begin
> > if (gdFixed in State) then
> > begin
> > Brush.Color := $00FF80FF;
> > Font.Color := clBlack;
> > FillRect(Rect);
> > end else if (StringGrid1.Cells[1,I] <> StringGrid1.Cells[7,I]) then
> > begin
> > Font.Color := clBlack;
> > Brush.Color := clPurple;
> > FillRect(Rect);
> > end else
> > begin
> > Font.Color := clWindowText;
> > Brush.Color := clWindow;
> > FillRect(Rect);
> > end;
> > end;
> //////////////////////////////////////////////////////////////////
> FillRect으로 셀을 채운후 글자는 TextRect로 다시 써야보입니다
> 일단 아래것을 참고해보세요
> procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
> Field: TField; State: TGridDrawState);
> begin
>
> with TDBGrid(Sender) do begin
> if (SelectedRows.CurrentRowSelected) then begin //현선택된줄만 색칠하기
> Canvas.Brush.Color := clYellow;
> Canvas.Font.Color := clBlack;
> Canvas.FillRect(Rect);
> //필드타입에 따라 다시쓰는 위치를 조정하세요.
> if Field.DataType = ftString then
> canvas.TextRect(Rect, Rect.Left + 2, Rect.Top, Field.AsString)
> else
> canvas.TextRect(Rect, Rect.Right - canvas.TextWidth(Field.AsString)
> - 3, Rect.Top, Field.AsString)
> end;
> end;
> end;
-
꼴통 wrote:
> 저렇게 코딩해서 그리드의 셀을 비교해서 특정셀만 색깔이 바꿔어야 되거든요..
> 그리고 스트링 그리드의 Fixed 된 컬럼이 글자가 안보이네요
> 아까 가르쳐 준데로 했는데도요~~
> 다시한번 부탁드립니다.
> > > with StringGrid1.Canvas do
> > > begin
> > > if (gdFixed in State) then
> > > begin
> > > Brush.Color := $00FF80FF;
> > > Font.Color := clBlack;
> > > FillRect(Rect);
> > > end else if (StringGrid1.Cells[1,I] <> StringGrid1.Cells[7,I]) then
> > > begin
> > > Font.Color := clBlack;
> > > Brush.Color := clPurple;
> > > FillRect(Rect);
> > > end else
> > > begin
> > > Font.Color := clWindowText;
> > > Brush.Color := clWindow;
> > > FillRect(Rect);
> > > end;
> > > end;
> > //////////////////////////////////////////////////////////////////
> > FillRect으로 셀을 채운후 글자는 TextRect로 다시 써야보입니다
> > 일단 아래것을 참고해보세요
> > procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
> > Field: TField; State: TGridDrawState);
> > begin
> >
> > with TDBGrid(Sender) do begin
> > if (SelectedRows.CurrentRowSelected) then begin //현선택된줄만 색칠하기
> > Canvas.Brush.Color := clYellow;
> > Canvas.Font.Color := clBlack;
> > Canvas.FillRect(Rect);
> > //필드타입에 따라 다시쓰는 위치를 조정하세요.
> > if Field.DataType = ftString then
> > canvas.TextRect(Rect, Rect.Left + 2, Rect.Top, Field.AsString)
> > else
> > canvas.TextRect(Rect, Rect.Right - canvas.TextWidth(Field.AsString)
> > - 3, Rect.Top, Field.AsString)
> > end;
> > end;
> > end;
//////////////////////////////////////////////////////////////////////////
예제는 디비그리드나 스트링그리드나 캠퍼스사용방법은 비슷합니다.
FillRect(Rect); 다음에 를 쓰세요,
아래 예는 문자를 왼쪽에서 시작하는것입니다.
TextRect(Rect,Rect.Left+3, (Rect.Top+Rect.Bottom-StringGrid1.Font.Size-4) div 2 , StringGrid1.Cells[ACol, ARow]);
--------------------------------------------------------------------------
위에 여러조건에 따라 FillRect(Rect);를 하셨잖아요
조건에 따라 TextRect(Rect, X, Y, StringGrid1.Cells[ACol, ARow]);
에서 X와Y를 바꿔주면 왼쪽/오른쪽/가운데 정렬을 합니다.
Re: 빠른 답변 부탁드립니다.[스트링그리드 문자포멧형식] 제목으로 게시판에서 찾아보세요.
(NOTICE) You must be logged in to comment on this post.
-
- 영프리오
- 2001.11.22 06:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 최적화
- •
- 2001.11.22 05:35
- 1 COMMENTS
- /
- 0 LIKES
-
지락...•2001.11.22 09:28혹시 다른 Query에 많은 자료가 이미 오픈되어있는지 확인해보세요. 한세션의 쿼리에 많은자료가 오픈된 ...
-
- 왕초보
- 2001.11.23 22:18
- 0 COMMENTS
- /
- 0 LIKES
-
- dskang55
- •
- 2001.11.22 04:09
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2001.11.22 09:53안녕하세요~ 구창민입니다. 어딘가에서 무한 재귀호출을 하고 있는 것은 아닌지요? 코드를 자세히 한...
-
- wooki
- •
- 2001.11.22 04:07
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2001.11.22 09:55html 로 그린 버튼을 클릭한다는 명제부터가 잘못되어진 설계 같습니다. 설계를 바꾸시는게 좋을 거 같...
-
지나가는 이....•2001.11.22 18:52버튼도 웹에서 그리는게 나을 듯 한데.. 그러면 아니되나요? 그리고 나서. ocx 든 web 브라우져 콤포넌트...
-
- 3분TT
- •
- 2001.11.22 04:02
- 1 COMMENTS
- /
- 0 LIKES
-
박상윤•2001.11.27 08:34처음부터 하드로 저장하시지.. 그럼 아무문제 없을 거에여.. 차고로 avi 2.0 은 2기가 까진인가 저장 ...
-
- 델피초보
- •
- 2001.11.22 03:21
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2001.11.22 09:58[Fatal Error] MAIN.PAS(75): File not found: 'Number.dcu' [Fatal Error] Pp119pas.pas(216): File not ...
-
- 바람인가
- •
- 2001.11.22 03:14
- 1 COMMENTS
- /
- 0 LIKES
-
박상주•2001.11.22 19:03Master/Detail 등록화면에서는 저는 OnNewRecord를 이용합니다. QueryDeail1의 OnNewRecord Event에 ...
-
- 바보
- •
- 2001.11.22 02:47
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2001.11.22 09:59님아..^_^;; 죄송스럽지만 질문을 다시 해 주세요. 메모 컴포넌트를 사용하셨다는 말씀인가요? 그...
-
-
- 델처버
- •
- 2001.11.22 02:22
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.11.22 10:34데이터를 전송하려 하는 시점에서 연결이 끊겼는데 OnDisconnect가 발생하지 않을 수 있습니다. 이 경우 ...
-
- halosky
- 2001.11.22 02:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 이쁜이
- 2001.11.22 01:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 공도리
- •
- 2001.11.22 01:25
- 1 COMMENTS
- /
- 0 LIKES
-
희•2001.11.22 01:52먼저 Edit box의 값을 String 변수에 대입한 다음 하나씩 Ord로 변환하세요.. > var > i:integer; ...
-
-
- 바보감자
- 2001.11.22 00:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 통신초보..
- •
- 2001.11.22 00:41
- 1 COMMENTS
- /
- 0 LIKES
-
희•2001.11.22 01:47Delphi의 System unit 에 보면 move라는 함수가 있습니다. 이것을 사용해 보세요.. 그럼..즐...
-
- 세희
- 2001.11.22 00:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 넥시트
- •
- 2001.11.22 00:06
- 1 COMMENTS
- /
- 0 LIKES
-
박동호•2006.11.29 03:19많이 늦은 답변이겠지만 혹시나 보시는 분들을 위하여서 저도 도움을 많이 받기 때문에 서버컴퓨터의 s...
-
- 꼴통
- •
- 2001.11.21 23:47
- 3 COMMENTS
- /
- 0 LIKES
아래와 같이 코딩을 했는데 글자가 안보이네요.. 부탁드립니다. with StringGrid1.Canvas do begin if (gdFixed in State) then begin Brush.Color := $00FF80FF; Font.Color := clBlack; FillRect(Rect); end else if (StringGrid1.Cells...-
홍성락•2001.11.21 23:55꼴통 wrote: > 아래와 같이 코딩을 했는데 글자가 안보이네요.. > 부탁드립니다. > with Stri...
-
꼴통•2001.11.22 00:47저렇게 코딩해서 그리드의 셀을 비교해서 특정셀만 색깔이 바꿔어야 되거든요.. 그리고 스트링 그리드의 F...
-
홍성락•2001.11.22 02:15꼴통 wrote: > 저렇게 코딩해서 그리드의 셀을 비교해서 특정셀만 색깔이 바꿔어야 되거든요.. > 그리고 ...
> 아래와 같이 코딩을 했는데 글자가 안보이네요..
> 부탁드립니다.
> with StringGrid1.Canvas do
> begin
> if (gdFixed in State) then
> begin
> Brush.Color := $00FF80FF;
> Font.Color := clBlack;
> FillRect(Rect);
> end else if (StringGrid1.Cells[1,I] <> StringGrid1.Cells[7,I]) then
> begin
> Font.Color := clBlack;
> Brush.Color := clPurple;
> FillRect(Rect);
> end else
> begin
> Font.Color := clWindowText;
> Brush.Color := clWindow;
> FillRect(Rect);
> end;
> end;
//////////////////////////////////////////////////////////////////
FillRect으로 셀을 채운후 글자는 TextRect로 다시 써야보입니다
일단 아래것을 참고해보세요
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
with TDBGrid(Sender) do begin
if (SelectedRows.CurrentRowSelected) then begin //현선택된줄만 색칠하기
Canvas.Brush.Color := clYellow;
Canvas.Font.Color := clBlack;
Canvas.FillRect(Rect);
//필드타입에 따라 다시쓰는 위치를 조정하세요.
if Field.DataType = ftString then
canvas.TextRect(Rect, Rect.Left + 2, Rect.Top, Field.AsString)
else
canvas.TextRect(Rect, Rect.Right - canvas.TextWidth(Field.AsString)
- 3, Rect.Top, Field.AsString)
end;
end;
end;