DELPHI AREA

[soul]

Hello,

I've got a strange problem with the TGradient component under Windows7.
The canvas is not completely filled when I use the fill option gsLinearH - all others works fine!
There is always a small area (depends on the size of the canvas) at the bottom of the canvas which is not filled or filled with random "noise".

Anyone else got this problem? ...maybe solved?

thx!

[Kambiz]

I couldn't regenerate the problem.

I suggest to place the gradient control on a panel and set the panel's ParentBackground property to false.

[soul]

Well, it's placed on a panel and ParentBackground is false.
Same Problem with Delphi 7 and Delphi 2007.

>>take a look at the screenshot...

hmmm...

[Kambiz]

Please send me your source code, because all is fine with me.

[soul]

Hi Kambiz,

I found the problem and was able to fix it or better - create a workaround for it.

Here is the code snippet:

Code: Select all

procedure LinearHorizontal(const Colors: TGradientColors; Pattern: TBitmap);
var
  X,Y: Integer;
  Row: PRGBQuadArray;
begin
  Pattern.Width := 256;
  Pattern.Height := 10;
  for Y :=0 to 9 do
  begin
    Row := PRGBQuadArray(Pattern.ScanLine[Y]);
    for X := 0 to 255 do
    begin
      Row[X] := Colors[X];
    end;
  end;
end;

thx for your support!

[Kambiz]

According to the fix, I think the display driver of your computer needs to be updated.

[soul]

It really seems to be a problem with the display driver!
I cannot reproduce it on other Win7 machines...

thx