[carlosig03]

Hello AlphaSkins support,

It’s Working!!!

Thanks!!!

Best Regards

[carlosig03]

Hello Stephane Senecal,

It’s Working!!!

Thanks!!!

Best Regards

Attachments:

You must be logged in to view attached files.

[carlosig03]

Hello Stephane Senecal,

I’m using Delphi Tokyo and Rio.

Best Regards

[carlosig03]

Hello,

I am usina the last oficial release, not beta.

[carlosig03]

Good afternoon.

Thank you very much for your reply.

However, the problem remains. The titles remain with the same problem but now in gray.

I send two prints, one with the problem and the other with what I want.

Best Regards

Attachments:

You must be logged in to view attached files.

[carlosig03]

I've downloaded the file and is opening..

Could you try again please.

[carlosig03]

well,

may be wath you want is this (look at the last column of attached sample)

It's WORKING

[carlosig03]

Here's a simple solution:

a) Into aclfPainter.pas replace the procedure DrawProgressBarChunk

procedure TcxACLookAndFeelPainter.DrawProgressBarChunk(ACanvas: TcxCanvas; ARect: TRect; AVertical: Boolean);

var

i : integer;

TmpBmp, BGBmp : TBitmap;

begin

if Skinned then begin

if AVertical then

i := DefaultManager.GetSkinIndex(s_ProgressV)

else

i := DefaultManager.GetSkinIndex(s_ProgressH);

if DefaultManager.IsValidSkinIndex(i) then

begin

TmpBmp := CreateBmp32(WidthOf(ARect), HeightOf(ARect));

BGBmp := CreateBmp32(WidthOf(ARect), HeightOf(ARect));

BitBlt(BgBmp.Canvas.Handle, 0, 0, TmpBmp.Width, TmpBmp.Height, ACanvas.Handle, ARect.Left, ARect.Top, SRCCOPY);

PaintItem(i, s_Button, MakeCacheInfo(BgBmp), True, 0, Rect(0, 0, TmpBmp.Width, TmpBmp.Height), Point(0, 0), TmpBmp, DefaultManager);

if DefaultManager.Tag>0 then

sGraphUtils.ChangeBmpHUE(TmpBmp, DefaultManager.Tag);

BitBlt(ACanvas.Handle, ARect.Left, ARect.Top, TmpBmp.Width, TmpBmp.Height, TmpBmp.Canvas.Handle, 0, 0, SRCCOPY);

DefaultManager.Tag:=0;

FreeAndNil(TmpBmp);

FreeAndNil(BgBmp);

end;

end else inherited

// Old Flat style //

// if Skinned then ACanvas.FillRect(ARect, MixColors(DefaultManager.GetActiveEditFontColor, DefaultManager.GetActiveEditColor, 0.5)) else inherited;

end;

😎 The column you want an diferent color, ondraw set tag of skinmanager with Hue value

procedure TForm1.cxGrid1TableView1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;

var ADone: Boolean);

begin

DataModule2.sSkinManager1.Tag := 250;

end;

and that's it.

Hope this help you.

[carlosig03]

'Giuseppe' wrote:

+1

+2

[carlosig03]

I've replaced the old functions of DEVX with the new one :

procedure _InitDevEx(const Active : boolean);

var

vPainter: TcxCustomLookAndFeelPainter;

begin

if Active then begin

if not cxLookAndFeelPaintersManager.GetPainter(s_AlphaSkins, vPainter) then begin

cxLookAndFeelPaintersManager.Register(vPainter); <

---

Access Violation

RootLookAndFeel.SkinName := s_AlphaSkins;

end

end

else if cxLookAndFeelPaintersManager.GetPainter(s_AlphaSkins, vPainter) then begin

RootLookAndFeel.SkinName := '';

cxLookAndFeelPaintersManager.Unregister(s_AlphaSkins);

end

end;

But I get an access violation, maybe because vPainter is nil ?

[carlosig03]

urgently needed

[carlosig03]

I corrected the errors. But isn't painting.

if Active then begin

if not GetExtendedStylePainters.GetPainterByName(s_AlphaSkins, vPainter) then begin

GetExtendedStylePainters.Register(s_AlphaSkins, TcxACLookAndFeelPainter, TdxSkinInfo.Create(nil));

cxLookAndFeels.RootLookAndFeel.SkinName := s_AlphaSkins;

end

end

else if GetExtendedStylePainters.GetPainterByName(s_AlphaSkins, vPainter) then begin

cxLookAndFeels.RootLookAndFeel.SkinName := '';

GetExtendedStylePainters.Unregister(s_AlphaSkins);

end

Now we must use cxLookAndFeelPaintersManager.GetPainter and cxLookAndFeelPaintersManager.register, but don't now how use it.

Any help ?

[Author]

Posts