1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Buttons,
Math, LCLType, LCLIntf;
const
LX = 2048;
MX = LX div 2;
LY = MX;
MY = LY div 2;
LC = 255;
type
{ TForm1 }
TForm1 = class(TForm)
Image1: TImage;
pOptions: TPanel;
ScrollBox1: TScrollBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
FBmp: TBitmap;
Carte: Array[0..LY, 0..LX - 1] of Byte;
Palette: array[0..LC] of TColor;
procedure DefiniPalette;
procedure DiamantCarre;
procedure Dessine(AB: TBitmap);
public
//
end;
PRGBTripleArray = ^TRGBTripleArray;
TRGBTripleArray = array[0..32767] of TRGBTriple; |