Как раскрасить ячейки StringGrid'а в разные цвета в соответствии с условием?

[monushka]

Alter, спасибо! С Вашей помощью получилось нечто похожее на то, что я хотела!
У меня еще такой вопрос. Точнее, два вопроса.
Первый. Можно ли сохранять данные из СтрингГрида в Exel так, чтобы они распределялись по ячейкам. А то у меня все сохраняется в одну ячейку.
И второй. Можно ли сохранять форму вместе со всеми данными. Т.е. если в СтрингГриде 200 строк, то чтобы все они были видны. Или сразу в таком виде отправлять на печать. Если такое можно сделать, то первый вопрос можно не рассматривать.
Спасибо еще раз!

[AlDelta]

{ With OLE Automation }
uses
  ComObj;
function RefToCell(ARow, ACol: Integer): string;
begin
  Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow);
end;

function SaveAsExcelFile(AGrid: TStringGrid; ASheetName, AFileName: string): Boolean;
const
 xlWBATWorksheet = -4167;
var
  Row, Col: Integer;
  GridPrevFile: string;
  XLApp, Sheet, Data: OLEVariant;
  i, j: Integer;
begin
  // Prepare Data 
Data := VarArrayCreate([1, AGrid.RowCount, 1, AGrid.ColCount], varVariant);
  for i := 0 to AGrid.ColCount - 1 do
    for j := 0 to AGrid.RowCount - 1 do
      Data[j + 1, i + 1] := AGrid.Cells[i, j];
  // Create Excel-OLE Object 
Result := False;
  XLApp := CreateOleObject('Excel.Application');
  try
    // Hide Excel 
   XLApp.Visible := False;
    // Add new Workbook 
   XLApp.Workbooks.Add(xlWBatWorkSheet);
    Sheet := XLApp.Workbooks[1].WorkSheets[1];
    Sheet.Name := ASheetName;
    // Fill up the sheet 
   Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount,
      AGrid.ColCount)].Value := Data;
    // Save Excel Worksheet 
   try
      XLApp.Workbooks[1].SaveAs(AFileName);
      Result := True;
    except
      // Error ? 
   end;
  finally
    // Quit Excel 
   if not VarIsEmpty(XLApp) then
    begin
      XLApp.DisplayAlerts := False;
      XLApp.Quit;
      XLAPP := Unassigned;
      Sheet := Unassigned;
    end;
  end;
end;
 
// Example: 
procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveAsExcelFile(stringGrid1,'My Stringgrid Data','c:\MyExcelFile.xls') then
    ShowMessage('StringGrid saved!');
end;

Поиск по Google рулит

[AlDelta]

procedure PrintGrid(sGrid: TStringGrid;
left_StandOff,top_StandOff:integer; sTitle: string);
var
X1, X2,PixelsX,PrinterCoordX: Integer;
Y1, Y2,PixelsY,PrinterCoordY: Integer;
I: Integer;
F: Integer;
TR: TRect;
begin
{ left_StandOff - отступ в миллиметрах слева от края листа
top_StandOff - отступ в миллиметрах сверху от края листа
PrinterCoordX и PrinterCoordY - тот же отступ только в пикселах
Высота строк и ширина столбцов взяты соответственно 150 и 400,
при желании их размер можно передать в процедуру как параметры
}
//получаем информацию о разрешении принтера
PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);//разрешение по Х
PixelsY:=GetDeviceCaps(printer.Handle,LogPixelsY);//разрешение по Y
PrinterCoordX:=round(PixelsX/25.4*left_StandOff);//переводим мм в  и ксели
PrinterCoordY:=round(PixelsY/25.4*top_StandOff); //---
with printer do
begin
//Печатаем заголовок таблицы
Title := sTitle;
BeginDoc; // Начало печати
Canvas.Pen.Color := 0; // цвет-чёрный
Canvas.Font.Name := 'verdana'; // шрифт
Canvas.Font.Size := 10; // размер шрифта
Canvas.Font.Style := [];
//Текс заголовка в заданных координатах
Canvas.TextOut(PrinterCoordX, PrinterCoordY-100-
printer.Canvas.Font.Size*10, Printer.Title);
Canvas.Pen.Color := 0;
Canvas.Font.Name := 'Verdana';
Canvas.Font.Size := 8; 
end;
for i:=0 to sgrid.colcount-1 do //перебираем столбцы
for f:=0 to sgrid.rowcount-1 do //перебираем в столбце все строки
begin
X1 := PrinterCoordX+i*400; //400-это ширина столбца
X2 := PrinterCoordX+400+i*400; //тоже
Y1:=PrinterCoordY+f*150; //150-высота строки
y2:=PrinterCoordY+150+f*150; //тоже
TR:=Rect(x1,y1,x2,y2);
with printer do
begin
Canvas.MoveTo(x1,y1);//Двигаем рисовалку в верхний левый угол таблицы
{пишем надпись в квадрате(ячейке) i-столбеца и f-строки со сдвигом
от верха на Y+50 и со сдвигом от левого края колонки на X+50
}
Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[i,f]);
//рисуем линии ячейки
Canvas.LineTo(x1,y2);
Canvas.LineTo(x2,y2);
Canvas.LineTo(x2,y1);
Canvas.LineTo(x1,y1);
end;
end;
Printer.EndDoc; // конец печати
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PrintGrid(StringGrid1,20,20, 'Таблица1: "Название"');
end;

Поиск по Google рулит