Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.08.02;
Скачать: CL | DM;

Вниз

Глупейший вопрос... заранее извините   Найти похожие ветки 

 
Сидор   (2008-02-17 17:50) [0]

Не могу установить компонент KOLStringGrid + на Delphi 7, поскольку в архиве отсутствует пакет для этой версии...
Где можно его найти?


 
Compiler ©   (2008-02-17 21:56) [1]

Сотворить руками новый или редактировать от другой версии, заменив в файле dpk MirrorKOLPackageD6 (MirrorKOLPackage) на MirrorKOLPackageD7


 
Сидор   (2008-02-19 11:00) [2]

Благодарю, помогло.
Теперь ещё один глупейший вопрос: каким образом всё-таки можно поменять цвет шрифта в TKOLButton? Если можно?


 
Vladimir Kladov ©   (2008-02-19 16:28) [3]

Самой кнопки нельзя. Так сказал Майкрософт. Но можно:
1 AcceptChildren=true,
2 Бросаем label (image, ...) и располагаем (Align или просто разместить по вкусу)
3 Говорим ему Transparent=true и MouseTransparent=true


 
Jon ©   (2008-02-19 17:06) [4]


> Vladimir Kladov [3]

Thank you - very useful information!


 
Сидор   (2008-02-20 16:39) [5]

Спасибо за совет, но я сделал несколько хитрее :)
Отскринил прогу, написанную без использования КОЛ, вырезал кнопку и рисунок назначил KOLButton1.


 
Vladimir Kladov ©   (2008-02-20 19:26) [6]

Круто. А теперь поменяйте тему в винде.


 
=BuckLr= ©   (2008-02-20 22:24) [7]


> Круто. А теперь поменяйте тему в винде.

Зачод :)


 
Сидор   (2008-02-21 12:50) [8]

Последний глупый вопрос, и я оставлю вас в покое...
Можно ли в таблице StGrd поменять цвет текста одной отдельной ячейки?


 
=BuckLr= ©   (2008-02-21 21:04) [9]

Кажется, я видел такой компонент. Поищи на сайте


 
Сидор   (2008-02-23 08:13) [10]

Который компонент? Я посмотрел, но ничего похожего не нашёл...


 
mdw ©   (2008-02-24 15:18) [11]


> Можно ли в таблице StGrd поменять цвет текста одной отдельной
> ячейки?

А что OnDrawCell там нет?


 
Compiler ©   (2008-02-26 20:14) [12]

> Можно ли в таблице StGrd поменять цвет текста одной отдельной
> ячейки?

Еще как можно. Есть пример. Вопрос еще актуален?


 
Сидор   (2008-02-27 13:28) [13]

Compiler, если не затруднит, то приведите этот пример, пожалуйста.


 
Compiler ©   (2008-02-27 20:03) [14]

> Сидор   (27.02.08 13:28) [13]

DefaultDrawing:=False;

procedure TForm1.KOLFormFormCreate(Sender: PObj);
var
 j,i:integer;
begin
for j:=0 to StGrd1.RowCount-1 do
for i:=0 to StGrd1.ColCount-1 do
if j mod 2=0 then
 StGrd1.Cells[j,i]:="Текст" else
 StGrd1.Cells[j,i]:="Текст";
end;

procedure SelCells(DC:hDC; TextRect:Trect; Text:string);
var
 Brush,BrushOld:hBrush;
 Pen,PenOld:hPen;
begin
//Заливка
  Brush := GetSysColorBrush(COLOR_BACKGROUND);
  BrushOld := SelectObject(DC, Brush);
  FillRect(DC,TextRect,0);
  DrawText(DC,PChar(Text),Length(Text),
               TextRect,DT_SINGLELINE or DT_LEFT or DT_NOPREFIX);
  SetBkMode(DC, TRANSPARENT);
  SelectObject(DC, BrushOld);
  DeleteObject(Brush);
//Рамка
  Pen := CreatePen(PS_DOT, 1, RGB(0, 0, 0));
  PenOld := SelectObject(DC, Pen);
  RectAngle(DC, TextRect.Left,TextRect.Top,
                TextRect.Right,
                TextRect.Bottom);
  SetBkMode(DC, TRANSPARENT);
  SelectObject(DC, PenOld);
  DeleteObject(Pen);
end;

procedure TForm1.StGrd1DrawCell(Sender: PControl; Cnv: PCanvas; ACol,
 ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
 FillRect(Cnv.Handle,Rect,GetSysColorBrush(COLOR_BTNFACE));
 case ARow mod 3 of
    0:Cnv.Font.Color:=ClBlack;
    1:Cnv.Font.Color:=ClRed;
    2:Cnv.Font.Color:=ClBlue;
 end;
 if gdFixed in State then
 begin
   SetBkMode(cnv.Handle,TRANSPARENT);
   Cnv.TextOut(Rect.Left,Rect.Top,PStGrd(Sender).Cells[ACol,ARow])
 end else
   Cnv.TextRect(Rect,Rect.Left,Rect.Top,PStGrd(Sender).Cells[ACol,ARow]);
 if gdFocused in State then
   // InvertRect(cnv.Handle,Rect);
    SelCells(cnv.Handle,Rect,PStGrd(Sender).Cells[ACol,ARow]);
end;


 
Сидор   (2008-03-01 15:49) [15]

Да, помогло! Всем огромное спасибо, что не бросили в беде ламера :)



Страницы: 1 вся ветка

Текущий архив: 2009.08.02;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.013 c
15-1243963056
дмитрий
2009-06-02 21:17
2009.08.02
архивация данных


3-1225226858
jiny
2008-10-28 23:47
2009.08.02
DBGridEh & поддержка Unicode


15-1243606985
Пит
2009-05-29 18:23
2009.08.02
Сертификация ПО


2-1242554718
jonin
2009-05-17 14:05
2009.08.02
Domain_name_IP_Traffic


2-1244439390
Gans
2009-06-08 09:36
2009.08.02
TMemo добавление строк