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报警声音 beep、messagebeep 和 windows.beep

Delphi10.3通过json.serializers单元对大量数据序列化

Delphi fdmemtable1建立缓存表 模糊查询

Delphi直接插入法排序示例

Delphi 把字节数显示成kb或gb的函数

Delphi idpop3收邮件

Delphi编程之win10桌面图标设置

Delphi整理一（基础知识）

Delphi 单元文件结构

Delphi 实现软件版验证码

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

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