DgPar(sender).canvas.Brush.Color :=$00A0932E;

이 밑으로 여로 코드가 더 있는데 전부 같은 에러가 납니다.

[Error] AllPArt.pas(409): Missing operator or semicolon

이런 에러가 나고  위 코드는 DgPar은 DBgrid 이름이고

온 드로우 컬럼 이벤트입니다.

이것만으로 설명이 될런지는 모르겠지만, 왜 이런 에러가 나는지 이해가 안됩

니다.

여기 전체 소스를 올려봅니다.


procedure TAllPartFm.DgParDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
    if (gdSelected in state) then
    begin
        DgPar(sender).canvas.Brush.Color :=$00A0932E;
        DgPar(Sender).Canvas.FillRect(Rect);
        DgPar(Sender).Canvas.Font.Color:=clwhite;
    end
    else if  state = [] then
    begin
        if (Column.fieldname = 'partno') then
        begin
             DgPar(sender).canvas.Brush.Color :=$00A0932E;
        end
        else DgPar(sender).canvas.Brush.Color :=$00DBf3E3;
        DgPar(Sender).Canvas.FillRect(Rect);
        DgPar(Sender).Canvas.Font.Color:=clblack;
    end;
end;