[Support]

Hello

I'm sorry for a trouble.

Please open the sThirdParty.pas file and change “acLFPainte_r” to “acLFPainter”.

I can't say why “_” is there, all files are updated now.

[Support]

http://www.iconfinder.com

http://p.yusukekamiyamane.com

http://www.google.co…e=lnms&tbm=isch

[Support]

Hi

I will research DevExpress changes soon, and I will have more information.

[Support]

'HeDiBo' wrote:

You may need some extra work, for instance in the OnPaint event. I'm lost here 😮

This title will not be drawn automatically.

Ralfii, if you want we can talk later via ICQ or Skype, maybe some solution will be found.

(Nearest several weeks I'll be on vacation).

[Support]

Can we connect via TeamViewer tool?

[Support]

Try this changed file please.

[Support]

'Giuseppe' wrote:

Hi Serge,

installed with no truble, but DevExpress controls still no skinned,

same as per previus images …

regards,

Giuseppe

Native style should be Off by default, can you check it?

[Support]

Sorry for a trouble, try the updated file please.

[Support]

Try attached file please.

[Support]

Thank you. An issue will be solved in the next release, I think.

[Support]

'Giuseppe' wrote:

pls let me know when You think to look at this new version

At the end of August, I think.

[Support]

Try the AlphaControls v7.46

This topic will be moved to “Troubleshooting” soon.

[Support]

Thank you! Also, TsSkinProvider component should be dropped on form in design-time.

[Support]

'IPSteven' wrote:

Were you able to reproduce the problem?

No, unfortunately. Can you show an example please?

[Support]

I have already a system where I can reproduce a problem.

This issue will be solved in the next release.

[Support]

'Support' wrote:

Thank you.

I have changed your code, look it please [

Code:

procedure TFMain.sDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);

var
Png : TPNGGraphic;
Ndx : integer;

function GetColsWidth: Integer;
var I: Integer;
begin
Result := 0;
for I := 0 to Column.Index do begin
Result := Result + TDBGrid(Sender).Columns.Items.Width;
end;
Result := Result + 10 + (Column.Index);
end;

begin
with TDBGrid(Sender) do begin
if Column.Index = nColumn then begin
Png := TPNGGraphic.Create;
try
Ndx := integer(lDesc);
DataModule1.sAlphaImageList.Items[Ndx].ImgData.Seek(0, 0);
Png.LoadFromStream(DataModule1.sAlphaImageList.Items[Ndx].ImgData);
if (RowHeights[0] < Png.Height + 4) then RowHeights[0] := (Png.Height + 4);
Canvas.Draw((GetColsWidth – Png.Width),(RowHeights[0] – Png.Height) div 2, Png);
finally
Png.Free;
end;
end
else DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;

TBitmap can't draw a Png with transaprency, you should use TPNGGraphic here.

[Support]

Thank you.

I have changed your code, look it please [

Code:

procedure TFMain.sDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);

var
Png : TPNGGraphic;
Ndx : integer;

function GetColsWidth: Integer;
var I: Integer;
begin
Result := 0;
for I := 0 to Column.Index do begin
Result := Result + TDBGrid(Sender).Columns.Items.Width;
end;
Result := Result + 10 + (Column.Index);
end;

begin
with TDBGrid(Sender) do begin
if Column.Index = nColumn then begin
Png := TPNGGraphic.Create;
try
Ndx := integer(lDesc);
DataModule1.sAlphaImageList.Items[Ndx].ImgData.Seek(0, 0);
Png.LoadFromStream(DataModule1.sAlphaImageList.Items[Ndx].ImgData);
if (RowHeights[0] < Png.Height + 4) then RowHeights[0] := (Png.Height + 4);
Canvas.Draw((GetColsWidth – Png.Width),(RowHeights[0] – Png.Height) div 2, Png);
finally
Png.Free;
end;
end
else DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;

[Support]

I have made many tests, but a flicker is not existing now. (Windows 7 x64, all updates).

You are sure that version of the demo is 7.45? Aero is enabled?

Maybe you can show me this?

Earlier, I saw a blinking in old version, but now this issues must be solved already.

[Support]

Also, in the next release will be added support of new skinsection : DIALOGTITLE

If this section exists in a skin then dialog titles will be drawn using DIALOGTITLE skinsection.

[Support]

Pedro-Juan, can you provide an example? How you draw this arrow?

[Author]

Posts