안녕하세요
수고 많습니다.
1111111111111111111111111111111111111111111111111111
각 Colum에 대한 left, Right 정렬
각 Colum 전체에 대한 색깔 설정,change등
이런것들은 StringGrid처럼 DrawCell에서 해야합니까
아니면 다른 방법으로 설정 하는것이 따로 있습니까?
다른 방법이 있지 않을까 생각중이고 찾고 있습니다.
1111111111111111111111111111111111111111111111111111
2222222222222222222222222222222222222222222222222222
그리고 Check box을 Data와 함께 나타내었습니다.
만약에 Check box가 10개 있으며 어떤check box가 check 되어는지
어떻게 알수 있습니까?
222222222222222222222222222222222222222222222222222222
위의 내용들이 너무너무 궁금합니다.
많은 답변을 부탁 드립니다.
GetAlignment,GetCellColor
이두가지 기능으로 좌우,상하,중간,칼라을 해결했습니다.
하루내내 Help만 보고 있었네
이제 Check Box 만 해결하면 모든것이 끝나는 구나
(어떤check box가 check 되어는지)
공부를 더 해서 답변을 올리겠습니다.
그럼 수고 하세요
procedure TFStocksheet.adv1GetAlignment(Sender: TObject; ARow,
ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
if ARow <> 0 then
begin
if (ACol = 11) then//정렬:Center
begin
HAlign := taCenter;
end;
if (ACol = 16) then//정렬:Right
begin
HAlign := taRightJustify;
end;
if ((ACol = 13) Or (ACol = 17)) then //정렬:Left
begin
HAlign := taLeftJustify;
end;
end;
end;
procedure TFStocksheet.adv1GetCellColor(Sender: TObject; ARow,
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
begin
if (ARow <> 0) then
begin
if (ACol = 16) then
begin
ABrush.Color:=$007F7F7F;
AFont.Color:=clBlack;
end;
if ((ACol = 13) Or (ACol = 17)) then //Color:$007F7F7F
begin
Abrush.Color:=$007F7F7F;
AFont.Color:=clBlack;
end;
if ((ACol = 10) Or (ACol = 12)) then //Color:White
begin
Abrush.Color:=clWhite;
AFont.Color:=clBlack;
end;
end;
end;