Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Выделенная строка в гриде

Автор: MacTep 14.7.2012, 18:39

Можно ли и как поменять цвет выделенной строки в DBGridEh (во время активности окна, и когда оно не активно)?

Автор: Albinos_x 14.7.2012, 20:57

думаю можно)

Автор: MacTep 14.7.2012, 21:17

Предполагал наличие таковых ответов smile

Даже решил проверить, ответят так или все же будут по делу советы smile

Тогда для тех, кто в танке: господа хорошие, помогите изменить цвет, подскажите, как это сделать?

Автор: Albinos_x 14.7.2012, 21:24

полагаю, что активность окна можно получить:

Код


if form1.Active then

моменты деактивации и активации
можно отловить стандартными событиями onActivate и Ondeactivate

Добавлено через 6 минут и 46 секунд
где то видел вроде такое свойство такое не нашел пока у него..., но можно в ручную перерисовать.. ловя сообщение drawcell..
наподобии:

Код


Procedure DrawCellGrid(Rect:TRect; Can:TCanvas; BrashColor:TColor; Font:TFont; Text:String);
var bmp:TBitmap;
    s:String;
    x,y:Integer;
begin
bmp:=TBitmap.Create;
bmp.Width:=Rect.Right-Rect.Left;
bmp.Height:=Rect.Bottom-Rect.Top;
bmp.Canvas.Brush.Color:=BrashColor;
bmp.Canvas.Pen.Color:=BrashColor;
bmp.Canvas.Brush.Style:=bsSolid;
bmp.Canvas.Font:=Font;
bmp.Canvas.Rectangle(bmp.Canvas.ClipRect);
S:=Text;
x:=(bmp.Width-bmp.Canvas.TextWidth(s)) div 2;
y:=(bmp.Height-bmp.Canvas.TextHeight(s)) div 2;
bmp.Canvas.TextOut(X,Y,S);
can.Draw(Rect.Left,Rect.Top,bmp);
bmp.Free;
end;

Автор: MacTep 15.7.2012, 09:00

Решил вопрос вот так. Сделал не сам, повзаимствовал с форума компонентов Alpha Controls:

Код


type TMyDBGridEhStyle = class(TDBGridEhStyle)

   public
        function HighlightDataCellColor(AGrid: TCustomDBGridEh; ACol, ARow: Integer;
      DataCol, DataRow: Integer; const Value: string; AState: TGridDrawState;
      InMultiSelect: Boolean; var AColor: TColor; AFont: TFont): Boolean; override;
   end;

var
  Form1: TForm1;
  MyStyle: TDBGridEhStyle;


implementation

function TMyDBGridEhStyle.HighlightDataCellColor(AGrid: TCustomDBGridEh;
  ACol, ARow, DataCol, DataRow: Integer; const Value: string;
  AState: TGridDrawState; InMultiSelect: Boolean; var AColor: TColor; AFont: TFont): Boolean;
begin
  Result := inherited HighlightDataCellColor(AGrid, ACol, ARow, DataCol, DataRow, Value, AState, InMultiSelect, AColor, AFont);
 
  if Result and ([gdFocused] * AState = [gdFocused]) then
    AColor := Form1.sSkinManager1.GetHighLightColor(Form1.Focused);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyStyle := TMyDBGridEhStyle.Create();
DBGridEh1.Style := MyStyle;
end;

Автор: Аватар 16.7.2012, 18:15

Выдернул из проги кусок

Код


procedure TFMDIChild.DBGridEhGetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  if gdSelected in State then begin
    if not TDBGridEh(Sender).Focused then Background:=clBtnFace;
    Exit;
  end;
  if (TDBGridEh(Sender).DataSource.DataSet.FindField(sdFIELD_METKA)<>nil) and
     (TDBGridEh(Sender).DataSource.DataSet.FieldByName(sdFIELD_METKA).AsString=sdMETKA) then Background:=clYellow;
end;

Автор: DYUMON 20.7.2012, 11:27

Код


  BkgColor: TColor;
begin
  // if gdSelected in State then OutRect := Rect;
  if not(gdSelected in State) then
    BkgColor := TDBGrid(Sender).Color
  else if TDBGrid(Sender).Focused then // Ãðèä àêòèâåí
    BkgColor := $00FF8C8C // Ñèíèé äëÿ òåêóùåé ñòðîêè
  else
    BkgColor := $0059FFFF; // Ñåðûé äëÿ òåêóùåé ñòðîêè
  TDBGrid(Sender).Canvas.Brush.Color := BkgColor;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  //
end;