Delphi rgb 画出三角形

本文整理自网络，侵删。

 
var
  x, y, i, j, k, r1, r2, g1, g2, b1, b2: longint;
begin
  r1 := 25;
  r2 := 25;
  g1 := 125;
  g2 := 225;
  b1 := 250;
  b2 := 25;
  for i := 0 to 255 do
  begin
    for j := 0 to 255 - i do
    begin
      k := 255 - i - j;
      x := (r1 * i + g1 * j + b1 * k) div 255;
      y := (r2 * i + g2 * j + b2 * k) div 255;
      Form1.Canvas.Pixels[x, y] := RGB(i, j, k);
    end;
  end;
 

相关阅读 >>

Delphi分割字符串的函数--extractstrings

Delphi xe8中的firemonkey应用程序将文本复制到剪贴板

Delphi 将label的caption内容竖向显示

Delphi 在 api 函数中使用 pchar 参数的几种方法

Delphi unigui 路径

Delphi 得到文件夹下所有文件名

Delphi 动态给combobox赋值，从combobox中取值

Delphi application.processmessages的作用

Delphi 10 seattle plus 新特性――system.json.builders

Delphi判断字符串是否是数字、字母、大小写字母

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi rgb 画出三角形