[Sahan911]

Народ! Создал в Stringgrid 1 фиксированную строку. При работе с программой мне нужно устанавливать общее количество строк равное 1. При этом Delphi убирает фиксированную строку и пишет что "количество фикс. строк не может быть меньше общего количества строк". Возможно ли это обойти и как?
2 вопрос: есть ли у Stringgrid готовая функция, которая возвращяет индекс строки или индекс столбца в которой(или котором) содержится данная подстрока(чтобы не приходилось делать цикл:

Код:

for i:=1 to RowCount-1 do if Cells[1,i]='Подстрока' then ...;

И 3 вопрос: На 7 в диспетчере я обнаружил столбец "описание процесса". Как можно описать свой процесс?(типо этого:

Код:

Application. ? :='Описание';//Не Title!

Заранее благодарен за помощь.

[angvelem]

1. Если создал фиксированную строку, не забывай учитывать её в общем количестве: Нужна 1 считай = 2. То же касается и колонок, при имеющейся фиксированной колонке.
2. Нет.
3. Не понял.

[Sahan911]

Сообщение от angvelem

1. Если создал фиксированную строку, не забывай учитывать её в общем количестве: Нужна 1 считай = 2. То же касается и колонок, при имеющейся фиксированной колонке.
2. Нет.
3. Не понял.

1. Я знаю что для Fix-строк и столбцов нужны еще по 1 строке и столбцу. Я спрашиваю как это обойти(например, как графически сэмитировать их с помощью канвы) Я чтото попытался подобное сделать:

Код:

procedure Form.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);
begin
with StringGrid,StringGrid.Canvas do
  begin
  if Cells[ACol,ARow]='Заголовок' then with rect do
    begin
    Pen.Color:=clBlack;
    Brush.Color:=clBtnFace;
    Rectangle(Left-1,top-1,Right+1,bottom+1);
    end;
  FillRect(Rect);
  DrawText(Handle,PChar(Cells[ACol,ARow]),length(Cells[ACol,ARow]),Rect,
  DT_CENTER or DT_VCENTER or DT_SINGLELINE);
  end;
end; 

...

Код:

procedure Form.StringGridSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
if StringGrid.Cells[ACol,ARow]='Заголовок' then  CanSelect:=false;
end; 

Но в итоге получаю заголовок в рамке, который нельзя выбрать с клавиатуры. Однако Добиться такой-же красоты мне не получается + текст в колонках меняет цвет если их кликать мышкой. Кто-нибудь подскажите плиз как это решить(не умею я рисовать )
2. На самом деле есть такие функции у StringGrid я нашел: это

Код:

Rows[i].IndexOf('Подстрока')
Cols[i].IndexOf('Подстрока') 

3. Я имел в виду что в диспетчере задач на виндовс 7 и Vista в процессах появился столбец "Описание" где к каждому процессу идет описание: (Пример: taskmgr.exe -> Диспетчер задач Windows).Я спрашиваю как мне сделать тоже самое(MyProgram -> Блабла).

[angvelem]

Отрисовку не довёл до конца, объяснять здесь, слишком долго. Посмотри реализацию класса в Grids.pas.
Да, кстати, ещё забыл воспользовать значением State.

[lmikle]

Я бы перешел на ListView. А еще лучше на ListView от MustangPeak. Очень навороченный компонент.

По вопросу 3 надо проверить (а Version info заполнена? может он оттуда читает?), но если что, ответ меня тоже интересует.

[Sahan911]

Все вот отличное решение:

Код:

procedure Form.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);
var i:integer;
begin
with StringGrid,StringGrid.Canvas do
  begin
  if (FixedRows=0)and(ARow=0) then
    begin
    Brush.Color:= clBtnFace;
    FillRect(Rect);
    Pen.Color:= clBackground;
    Brush.Style:= bsClear;
    Rectangle(Rect.Left-1,Rect.Top-1,Rect.Right+1,Rect.Bottom+1);
    Pen.Color:= clBtnShadow;
    MoveTo(Rect.Left+1,Rect.Bottom-1);
    LineTo(Rect.Right-1,Rect.Bottom-1);
    LineTo(Rect.Right-1,Rect.Top);
    Pen.Color:= clBtnHighlight;
    MoveTo(Rect.Right-1,Rect.Top);
    LineTo(Rect.Left,Rect.Top);
    LineTo(Rect.Left,Rect.Bottom);
    end;
  if((GetWindowlong(FileGr.Handle,GWL_STYLE)and WS_VSCROLL)=0)
and(ColWidths[5]<113) then for i:=0 to 5 do ColWidths[i]:=ColWidths[i]+3;
  if((GetWindowlong(FileGr.Handle,GWL_STYLE)and WS_VSCROLL)<>0)
and(ColWidths[5]>113) then for i:=0 to 5 do ColWidths[i]:=ColWidths[i]-3;
  FillRect(Rect);
  DrawText(Handle,PChar(Cells[ACol,ARow]),length(Cells[ACol,ARow]),Rect,
 DT_CENTER or DT_VCENTER or DT_SINGLELINE);
  end;
end;

procedure Form.StringGridSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
with StringGrid do
  begin
  if Arow=0 then
    begin
    CanSelect:=false;
    Options:=Options-[goRangeSelect]-[goDrawFocusSelected];
    end else
  Options:=Options+[goRangeSelect]+[goDrawFocusSelected];
  end;
end;

[Sahan911]

Сообщение от lmikle

По вопросу 3 надо проверить (а Version info заполнена? может он оттуда читает?), но если что, ответ меня тоже интересует.

lmikle Спасибо! Действительно, чтобы описать свой процесс надо зайти в Project-> Options-> Version info и писать в Description. Там еще можно и версию указать и прочую информацию.Я сам че-то этого не нашел.