Градиентная заливка APi функция GradientFillRect в Delphi

[Roberto]

Привет всем начинающим и опытным программистам! Подскажите пожалуйста, как использовать APi функцию GradientFillRect в Delphi, а то никак не могу понять, не получается, не то что надо выходит, если можно примерчик закинте пожалуйста.. Заранее благодарен!

[B_N]

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

Привет всем начинающим и опытным программистам! Подскажите пожалуйста, как использовать APi функцию GradientFillRect в Delphi, а то никак не могу понять, не получается, не то что надо выходит, если можно примерчик закинте пожалуйста.. Заранее благодарен!

Что значит "не получается"? Нет такой функции GradientFillRect, есть GradientFill
В MSDN есть вполне исчерпывающие вопрос примеры:

http://msdn2.microsoft.com/en-us/lib...12(VS.85).aspx
http://msdn2.microsoft.com/en-us/lib...38(VS.85).aspx

[Roberto]

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

Что значит "не получается"? Нет такой функции GradientFillRect, есть GradientFill
В MSDN есть вполне исчерпывающие вопрос примеры:

http://msdn2.microsoft.com/en-us/lib...12(VS.85).aspx
http://msdn2.microsoft.com/en-us/lib...38(VS.85).aspx

У меня не выходит, с цветами вот этими что то не ладное, в MSDN написано так:
vertex[0].Red = 0x0000;
vertex[0].Green = 0x8000;
vertex[0].Blue = 0x8000;
но этот вариант не подходит, ошибку показывает.. Какие значения должны быть там???

[B_N]

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

У меня не выходит, с цветами вот этими что то не ладное, в MSDN написано так:
vertex[0].Red = 0x0000;
vertex[0].Green = 0x8000;
vertex[0].Blue = 0x8000;
но этот вариант не подходит, ошибку показывает.. Какие значения должны быть там???

Какую ошибку? Покажите код. Что Вы всё загадками-то...

[Roberto]

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

Какую ошибку? Покажите код. Что Вы всё загадками-то...

Вот код, написал как в MSDN:

procedure TForm1.Button1Click(Sender: TObject);
  var
    t:array[0..1] of TTrivertex;
    g:TGradientRect;
begin
  t[0].x:=0;
  t[0].y:=0;
  t[0].Red:=0x0000;
  t[0].Green:=0x8000;
  t[0].Blue:=0x8000;
  t[0].Alpha:=0x0000;
  t[1].x:=50;
  t[1].y:=50;
  t[1].Red:=0x0000;
  t[1].Green:=0xd000;
  t[1].Blue:=0xd000;
  t[1].Alpha:=0x0000;
  g.UpperLeft:=0;
  g.LowerRight:=1;
  GradientFill(Canvas.Handle,t[0],2,@g,1,GRADIENT_FILL_RECT_H);
end;

не получается... Хочу разобраться в этом, что тут не так??

[B_N]

Шестнадцатиричные константы в паскале задаются со знаком доллара. То, что в C пишется как 0x8000, в паскале будет $8000

[rpy3uH]

в дельфийских исходниках тип COLOR16 объявлен вот так:
COLOR16 = Shortint;
А это (выяснилось позже) в корне неверно!
я объявил новый тип MyCOLOR16
MyCOLOR16 = Word;
и определил структуру _MyTRIVERTEX и всё заработало

type
  MyCOLOR16 = Word;

  PMyTriVertex = ^TMyTriVertex;

  _MyTRIVERTEX = packed record
    x: Longint;
    y: Longint;
    Red: MyCOLOR16;
    Green: MyCOLOR16;
    Blue: MyCOLOR16;
    Alpha: MyCOLOR16;
  end;
  TMyTriVertex = _MyTRIVERTEX;

procedure TForm1.Button1Click(Sender: TObject);
var
  t:array[0..1] of TMyTrivertex;
  g:TGradientRect;
begin
  t[0].x:=0;
  t[0].y:=0;
  t[0].Red:=$0000;
  t[0].Green:=$8000;
  t[0].Blue:=$8000;
  t[0].Alpha:=$0000;
  t[1].x:=350;
  t[1].y:=80;
  t[1].Red:=$0;
  t[1].Green:=$D000;
  t[1].Blue:=$D000;
  t[1].Alpha:=$0000;
  g.UpperLeft:=0;
  g.LowerRight:=1;
    GradientFill(Canvas.Handle,_TRIVERTEX((@t[0])^),2,@g,1,GRADIENT_FILL_RECT_H);
end;

P.S. что-то Delphi меня очень сильно разочаровала

[Roberto]

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

в дельфийских исходниках тип COLOR16 объявлен вот так:
COLOR16 = Shortint;
А это (выяснилось позже) в корне неверно!
я объявил новый тип MyCOLOR16
MyCOLOR16 = Word;
и определил структуру _MyTRIVERTEX и всё заработало

type
  MyCOLOR16 = Word;

  PMyTriVertex = ^TMyTriVertex;

  _MyTRIVERTEX = packed record
    x: Longint;
    y: Longint;
    Red: MyCOLOR16;
    Green: MyCOLOR16;
    Blue: MyCOLOR16;
    Alpha: MyCOLOR16;
  end;
  TMyTriVertex = _MyTRIVERTEX;

procedure TForm1.Button1Click(Sender: TObject);
var
  t:array[0..1] of TMyTrivertex;
  g:TGradientRect;
begin
  t[0].x:=0;
  t[0].y:=0;
  t[0].Red:=$0000;
  t[0].Green:=$8000;
  t[0].Blue:=$8000;
  t[0].Alpha:=$0000;
  t[1].x:=350;
  t[1].y:=80;
  t[1].Red:=$0;
  t[1].Green:=$D000;
  t[1].Blue:=$D000;
  t[1].Alpha:=$0000;
  g.UpperLeft:=0;
  g.LowerRight:=1;
    GradientFill(Canvas.Handle,_TRIVERTEX((@t[0])^),2,@g,1,GRADIENT_FILL_RECT_H);
end;

P.S. что-то Delphi меня очень сильно разочаровала

Вооо! Точно работает, спасибо! А то думаю че не работает, так и думал что, что-то не то с этой функцией..