StringGrid и всё что с ней связано....

[GAGARIN-NEW]

Немного переделал под свой лад и заработало !
а вот вопрос может не очень потеме :
Можно ли теперь в StringGrid1.PopupMenu 1 строчка была такофо оформления : 'Просмотр информации о КОМП_1'
точнее как мне сделать значение которое я считал из таблички полужирным ? вообще считывание у меня производится так :
N3.Caption := 'Просмотр инфю о ' + StringGrid1.Cells[p.x,p.y];
если можно то я себе представляю это так :
N3.Caption := 'Просмотр инфю о ' + font_или_чтото_вроде(StringGrid1.Cells[p.x,p.y]); // нужно чтоб полужирным было тока значение StringGrid1.Cells[p.x,p.y]

, да и N3 - это у меня элемент PopupMenu .

и ещё рас повторю вопрос ... как мне сделать чтобы рисовались различные картинки в 1 колонке вновь добавленной строчки ???
напишите плс процедуру полностью ....
на счёт TImageList я знаю мне важен сам код процедуры...а картинок я наклепаю....

и ещё про StringGrid , скроллбар чтото непропорционально крутится (при прокрутке невидно прокрутки самой StringGrid а видно только после прокрутки самого сролбараи отжатии кнопки мышы (()

заранее БЛАГОДАРЕН !

[pu4koff]

меню рисовать примерно так:
у меню выставляешь OwnerDraw = true у N3 пишешь такой обработчик на OnDrawItem. Координаты вывода текста только методом тыка подберешь, чтобы ровно было. И еще обязательно надо чтобы свойство Caption было той же длины, что ты будешь выводить потом, т.к. менюшка нарисуется именно под эти размеры и текст может не уместиться.

var
  w: integer;
begin
  w := ACanvas.TextWidth('Инфа о ');
  ACanvas.TextOut(ARect.Left,ARect.Top,'Инфа о ');
  ACanvas.Font.Style := [fsBold];
  Acanvas.TextOut(ARect.Left+w,ARect.Top,'ячейка');

может конечно есть другой более красивый подход к решению данной задачи, но мне он не известен.

рисование картинок:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACol = 0 then
  begin
  ImageList1.Draw(StringGrid1.Canvas,Rect.Left,Rect.Top,StrToIntDef(StringGrid1.Cells[ACol,ARow],0));
  end;
end;

соответственно в ячейке должен быть записан индекс картинки. если он не указан, то будет рисоваца первая картинка из списка. Ну и тут рисуется в верхнем левом углу ячейки. так что смотри за размером ячеек/картинок или сам уже думаю переделать как надо чтобы выводилось сделаешь

[GAGARIN-NEW]

Вот вопрос : можно ли столбец или что лучше 1 ячейку закрасить в любой цвет ???

[Stilet]

Можно:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (acol=1) and (arow=1) then begin
StringGrid1.Canvas.Brush.Color:=clr ed;
StringGrid1.Canvas.FillRect(rect);
end;
end;

[GAGARIN-NEW]

точнее закрасить фоновый цвет ячейки ? и как это сделать без канвы ?

[GAGARIN-NEW]

теперь понимаю !
тут как тока встретишся с михалычам так сразу интерес ко всему пропадает !
ктото когдато менял цыет в табличке в exel ???
я просто уверен что в табличке это есть и достаточно написать чтото типа stringgrid1.cols[1,2].bgcolor:=clred;
но к сожалению я точно незнаю вот и спросил ! а ты михалыч лучше бы помог а то я смотрю тока критиковать нравится...уже во всех постах "НАМИКАЕШ !!!"

[Stilet]

В простом Гриде такого нет, есть в других навороченных компонентах, А Михалыч верно сказал - учти, Гагарин, хош рисовать без канвы не обойдешся, уж так винда устроена.
Ну не буш же ты прям в видеопамять... ))

[GAGARIN-NEW]

ну конечно нет я понимаю просто он уж сильно перегнул ! яж не прошу тут всю прогу за миня написать а всегото некоторые маленькие функции и способы по работе с компонентами ! ни у ешё пару темок...
у меня 6 делфи и всё на англицком ! хэлпов русских - нету ! толковых книжек нету а если какие и есть то там основные ракурсы всего этого... и конечно пости нету таких спрятанных штук как например listbox1.items.add('mytext'); там всеголиш описание элементов и то очень краткое и всегото элементов 50 - 60 типа главных !
НУ откуда мне знать эти жизненно важные мелочи ? сидеть с утра доночи убиватся в поисках ? ведь тут сидят умные и думаю ЛЮДИ а не те каму лишбы постов накопить и покритиковать ! думаю гораздо легче у вас спросить 1 строчку чем искать её 2 дня в необятном интернете ! а лазить по 100 форумов... так вообще голова отвиснет ! я вот останавился на 1 на вот этом.
и ещё насчёт грида... просто через канву кажется както через длинную дорогу ! но если больше никак прийдётся через неё ...
а если форму сделать unVisible ? то все рисуночки сотрутся при показе формы снова ?

[GAGARIN-NEW]

[Error] Unit1.pas(26): Undeclared identifier: 'StringGrid1DrawCell'
[Error] Unit1.pas(26): ';' expected but '(' found
[Error] Unit1.pas(29): Undeclared identifier: 'acol'
[Error] Unit1.pas(29): Undeclared identifier: 'arow'
[Error] Unit1.pas(30): Undeclared identifier: 'StringGrid1'
[Error] Unit1.pas(30): Missing operator or semicolon
[Error] Unit1.pas(30): Missing operator or semicolon
[Error] Unit1.pas(31): Missing operator or semicolon
[Error] Unit1.pas(31): There is no overloaded version of 'Rect' that can be called with these arguments
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
вставил и непашет ((( что я не так обьявил чтото ?

[Stilet]

а если форму сделать unVisible ? то все рисуночки сотрутся при показе формы снова ?

Не баи, коли ворму опять визиблуешь они нарисуются снова )

что я не так обьявил чтото ?

Код в студию.

а-а-а ты наверное не создал на форме событие OnDrawCell для Грида.
Создай ее в обьекте инспекторов