[Sahan911]

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

Код:

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

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

Код:

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

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

[angvelem]

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

[Sahan911]

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;

...

Код:

1 2 3 4 5

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

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

Код:

1 2	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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

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. Там еще можно и версию указать и прочую информацию.Я сам че-то этого не нашел.