[sylar]

Всем спасибо, я разобрался. Вот код, если кому нужно:

Code:

……….

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;

[sylar]

Спасибо. А пример можно или ссылку на него?

[sylar]

Подскажите пожалуйста, можно ли цвет выделенной записи сделать под цвет скина? Спасибо.

[sylar]

Здравствуйте уважаемый Support! Спасибо большое! Думаю, данное решение подойдет. :a3:

[sylar]

alex000, спасибо за ссылку.

'alex000' wrote:

какой смысл использовать манифест, если все равно он перекрывается скинами ?

Манифест перекрывается только частично. Плюс без манифеста выпадающие списки в гриде выглядят совсем убого, т.к. AC их не подхватывает.

это с манифестом

это без него

[sylar]

Мне никто не поможет? 🙁

[sylar]

Вот скрин из под Win7:

А вот из под XP:

[Author]

Posts