안녕하세요. 최용일입니다.



OnDrawCell이벤트에서 아래와 같이 코딩하세요.



procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

begin

if gdFixed in State then

TStringGrid(Sender).Canvas.Font.Style := [fsBold] // 고정된칼럼이면 굵게

else

TStringGrid(Sender).Canvas.Font.Style := [];



with TStringGrid(Sender).Canvas do

begin

FillRect(Rect);

TextOut(Rect.Left + 2, Rect.Top+2, TStringGrid(Sender).Cells[ACol, ARow]);

end;

end;



^^ 항상 즐코하세요.



어린왕자 wrote:

> OnDrawCell을 이용하면 되는건가요? 어떻게 이용하는 건가요??

>

어린왕자 wrote:

> 안녕하세요..영원한 델초보이자..허접한 어린왕잡니다.

> 스트링그리드에..Fixed된(?) 셀.그러니깐..색깔진한 셀에..글자를 쓰는데..굵게 쓰구 싶어요..어떻게 쓰면 되나요?

살다 보니 이상한 일두



스트링 그리드의 고정된 셀이 모두 지워져 버려여 ㅠ.ㅠ



이구 이구 왜그런쥐 ... 이유를 모르겠네엽 ㅠ.ㅠ



흠 혹시여 고정된 셀이 글씨를 넣을려면 어떻게 해야 하나엽 전 이런식으로 하걸랑여



with stringgrid1 do

begin

rowcount := qur.RecordCount;

cells[0,0]:='제조번호';

cells[1,0]:='검사번호';

cells[2,0]:='순번';

cells[3,0]:='유발공정';

cells[4,0]:='조치내역';

cells[5,0]:='조치일자';

cells[6,0]:='불량부위';

cells[7,0]:='불량내역';

end;

이런식으로 넣어서 그런쥐 없어져여 ㅠ.ㅠ 흐미 미티 미티 미티

아예..안나타난가요? 아무래두 겹쳐서 쓴게 아닌가염?

고정된(색깔있는)셀은 스트링그리드 property에서 설정하면 되는데요..

이상하넹-.-

사발우성 wrote:

>

> 살다 보니 이상한 일두

>

> 스트링 그리드의 고정된 셀이 모두 지워져 버려여 ㅠ.ㅠ

>

> 이구 이구 왜그런쥐 ... 이유를 모르겠네엽 ㅠ.ㅠ

>

> 흠 혹시여 고정된 셀이 글씨를 넣을려면 어떻게 해야 하나엽 전 이런식으로 하걸랑여

>

> with stringgrid1 do

> begin

> rowcount := qur.RecordCount;

> cells[0,0]:='제조번호';

> cells[1,0]:='검사번호';

> cells[2,0]:='순번';

> cells[3,0]:='유발공정';

> cells[4,0]:='조치내역';

> cells[5,0]:='조치일자';

> cells[6,0]:='불량부위';

> cells[7,0]:='불량내역';

> end;

> 이런식으로 넣어서 그런쥐 없어져여 ㅠ.ㅠ 흐미 미티 미티 미티

stringgrid 의 property중에 font라는게 있죠? 있어요!

요걸 이용하면 되겠죠.



ex) 색깔 바꾸기

stringgrid1.font.color := clwhite;

stringgrid1.cells[0,0] := '색깔바뀌죠?';

stringgrid1.font.color := clwindow;



이런 식으로 글꼴 바꾸는 property가 있습니다.style입니다.(지금 생각이 잘 안나네요)

stringgrid1.font.style := ....;

모 이런것입니다.



property를 잘 보세요. 넘 쉬워요. 생각보다.



good luck to you!!





어린왕자 wrote:

> 안녕하세요..영원한 델초보이자..허접한 어린왕잡니다.

> 스트링그리드에..Fixed된(?) 셀.그러니깐..색깔진한 셀에..글자를 쓰는데..굵게 쓰구 싶어요..어떻게 쓰면 되나요?

OnDrawCell을 이용하면 되는건가요? 어떻게 이용하는 건가요??

procedure StringGrid1.OnDrawCell( ........)

var

tmpFont : TFont;

x, y : integer;

begin

if ARow < (StringGrid1.FixedRow-1) then begin // fixedrow는 속성명 확인 필요함.

tmpFont := StringGrid1.Canvas.Font; // 기존 폰트값 보존

StringGrid1.Canvas.Font.Style := [fsBold]; // 폰트 스타일 굵게...

x := 0; // x, y값 변경으로 중앙 정렬등을 시킬수 있음

y := 0;

StringGrid1.Canvas.TextRect( Rect, x, y, StringGrid1.Cells[ACol, ARow]);

// 기존출력이 있을경우 지우기 위해 TextRect를

// 디스플레이 된것을 보전하고 싶을때는 TextOut을...

StringGrid1.Canvas.Font := tmpFont;

end;



// Col에 대해서도 마찬가지로 처리

// Brush( TBrush)을 이용해서 폰트처럼, 배경색도 바꿀수 있음

end;



어린왕자 wrote:

> OnDrawCell을 이용하면 되는건가요? 어떻게 이용하는 건가요??

>