Переделать процедуру

[AidarBik]

Как нужно переделать процедуру

procedure DrawGradient(ACanvas: TCanvas; Rect: TRect;
Horicontal: Boolean; Colors: array of TColor);
type
RGBArray = array[0..2] of Byte;
var
x, y, z, stelle, mx, bis, faColorsh, mass: Integer;
Faktor: double;
A: RGBArray;
B: array of RGBArray;
merkw: integer;
merks: TPenStyle;
merkp: TColor;
begin
mx:=High(Colors);
if mx > 0 then
begin
if Horicontal then
mass:=Rect.Right - Rect.Left
else
mass:=Rect.Bottom - Rect.Top;
SetLength(b, mx + 1);
for x:=0 to mx do
begin
Colors[x]:=ColorToRGB(Colors[x]);
b[x][0]:=GetRValue(Colors[x]);
b[x][1]:=GetGValue(Colors[x]);
b[x][2]:=GetBValue(Colors[x]);
end;
merkw:=ACanvas.Pen.Width;
merks:=ACanvas.Pen.Style;
merkp:=ACanvas.Pen.Color;
ACanvas.Pen.Width:=1;
ACanvas.Pen.Style:=psSolid;
faColorsh:=Round(mass / mx);
for y:=0 to mx - 1 do
begin
if y = mx - 1 then
bis:=mass - y * faColorsh - 1
else
bis:=faColorsh;
for x:=0 to bis do
begin
Stelle:=x + y * faColorsh;
faktor:=x / bis;
for z:=0 to 3 do
a[z]:=Trunc(b[y][z] + ((b[y + 1][z] - b[y][z]) * Faktor));
ACanvas.Pen.Color:=RGB(a[0], a[1], a[2]);
if Horicontal then
begin
ACanvas.MoveTo(Rect.Left + Stelle, Rect.Top);
ACanvas.LineTo(Rect.Left + Stelle, Rect.Bottom);
end
else
begin
ACanvas.MoveTo(Rect.Left, Rect.Top + Stelle);
ACanvas.LineTo(Rect.Right, Rect.Top + Stelle);
end;
end;
end;
b:=nil;
ACanvas.Pen.Width:=merkw;
ACanvas.Pen.Style:=merks;
ACanvas.Pen.Color:=merkp;
end
else
raise EMathError.Create('Необходимо хотя бы два цвета.');
end;

Чтобы вместо Canvas можно было указать DC?

[alexBlack]

Можно и не переделывать, а ввести еще одну функцию:

procedure DrawGradientDC(DC:THANDLE; Rect: TRect; Horicontal: Boolean; Colors: array of TColor);
var C:TCanvas;
begin
   C := TCanvas.Create;
   try
      C.handle := DC;
      DrawGradient(C, Rect, Horicontal, Colors);
   finally
      C.free;
   end;
end;

// Примеры вызовов
procedure TForm1.FormPaint(Sender: TObject);
begin
   DrawGradientDC(getDC(0), rect(0, 0, 100, 100), true, [clBlue, clRed]);
   DrawGradientDC(Canvas.Handle, rect(0, 0, 100, 100), true, [clBlue, clRed]);
end;

если непременно нужно переделать, то нужно переписать все вызовы ACanvas.<> на соответствующие из winAPI.

[AidarBik]

Нет. Первым способом не получается, я так пробовал. Происходит ошибка.

[Stilet]

Происходит ошибка.

Какая наверное ты не знаешь?

[AidarBik]

Access violation....

[alexBlack]

А до этого она у Вас работала ?

type RGBArray = array[0..2] of Byte;
B: array of RGBArray;
for z:=0 to 3 do
a[z]:=Trunc(b[y][z] + ((b[y + 1][z] - b[y][z]) * Faktor));

у себя я проверял, но без динамических массивов - просто взял область 100х100 и статический массив.
Работало без ошибок.

[AidarBik]

Да. Ошибка происходит, когда я обращаюсь к созданной канве.

[alexBlack]

Сообщение от AidarBik

Да. Ошибка происходит, когда я обращаюсь к созданной канве.

На данный момент могу предложить только рабочие примеры со статическим массивом (project1) и с getmem - (test). Может поможет.
С динамическим массивом сейчас попробовать не могу

[Stilet]

А какая целевая задача? Может ее решить можно по другому...

[AidarBik]

Создать свой класс всплывающих подсказок