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 获取当前目录下的.txt文本不要带后缀扩展名

Delphi txt 指定行复制器

Delphi之截取整个窗体图片

Delphi memo1双击选中的文字内容

Delphi 中使用dialog api

Delphi调用百度语音识别服务

Delphi adoquery连接数据库的查询、插入、删除、修改

一些最基本的函数 单元

Delphi 缩放图形打印输出

Delphi waitforsingleobject 响应窗体

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

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