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

Вниз

StringGrid   Найти похожие ветки 

← →
init13 ©   (2004-05-25 18:55) [0]

Господа! Подскажите пожалуйста...

1. Как изменить цвет шрифта в отдельной ячейке СтрингГрида?
2. Установить курсор віделения ячейки на нужную ячейку.

---

← →
ChainikDenis ©   (2004-05-25 22:01) [1]

По пункту 1. Читай "Необычный DBGrid" на королевстве делфи в разделе "Helo, World".
По второму не помню...
Успеха.

---

← →
KSergey ©   (2004-05-26 06:20) [2]

2.
Если не ошибаюсь - есть св-ства Row и Col
Вроде они доступны. Во всяком случае для наследника - точно. А значит можно сделать стандартный финт ушами.

---

← →
TUser ©   (2004-05-26 07:14) [3]

unit uMyStringGrid;

interface

uses
 SysUtils, Classes, Controls, Grids, Graphics, types, windows;

type
 TOnCanFill = procedure (Sender:TObject; ACol, ARow:longint; var Fill:boolean) of object;

 TMyStringGrid = class(TStringGrid)
 private
   FFillColor:TColor;
   FOnCanFill:TOnCanFill;
 protected
   procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
     AState: TGridDrawState); override;
 published
   property FillColor:TColor read FFillColor write FFillColor;
   property OnCanFill:TOnCanFill read FOnCanFill write FOnCanFill;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents("Aksianov", [TMyStringGrid]);
end;

procedure TMyStringGrid.DrawCell(ACol, ARow: Longint; ARect: TRect;
     AState: TGridDrawState);
var CanFill:boolean;
begin
  CanFill:=false;
  if assigned (FOnCanFill) then
     FOnCanFill(Self,ACol,ARow,CanFill);
  if CanFill then
     with Self.Canvas do
        Brush.Color:=FFillColor;
  inherited;
  if CanFill then
     Brush.Color:=clWhite;
end;

end.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.04 c