[Support]

Hello

You mean arrows in the TsDBGrid component?

DrawColorArrow procedure used there, you can see an example of using in the acDBGrid.pas file.

Or maybe I not quite understand you?

[Pedro-Juan]

'Support' wrote:

Hello

You mean arrows in the TsDBGrid component?

DrawColorArrow procedure used there, you can see an example of using in the acDBGrid.pas file.

Or maybe I not quite understand you?

Hello

Yes, I mean arrows in the TsDBGrid component.

Both images are from a sAlphaImageList and both are .png. (16×16)

D7 Last version of Beta AC 7.45

How can I do transparent it? I have tried with many images and always the same.

Thanks.

[HeDiBo]

'Pedro-Juan' wrote:

How can I do transparent it? I have tried with many images and always the same.

I believe the background should be Fuchsia (hex FF00FF). I use this picture in my application:

[attachment=4983:ICON32Fuchsia.bmp]

That comes out transparent.

Hope it helped.

[Pedro-Juan]

'HeDiBo' wrote:

I believe the background should be Fuchsia (hex FF00FF). I use this picture in my application:

[attachment=4983:ICON32Fuchsia.bmp]

That comes out transparent.

Hope it helped.

Hello.

Some of which I have used previously also were fuchsia in background, and they were not transparent.

I will continue trying…

Thanks for you interest

[Support]

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

[Pedro-Juan]

'Support' wrote:

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

Yes, here

TestImageColumn

Thanks.

[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]

'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.

[Pedro-Juan]

Hi.

Now works OK.

Thank you very much and a greeting.

[Author]

Posts