Delphi中使用调色板创建渐变色位图

 //创建调色板函数,R,G,B颜色分量,0-1之间取值

 

 1 FUNCTION MaxGradientPalette(CONST RedFactor, GreenFactor, BlueFactor:  Single):  hPalette;
 2   VAR
 3     i             :  INTEGER;
 4     LogicalPalette:  TMaxLogPalette;
 5 BEGIN
 6     ASSERT (RedFactor   <= 1);   // values must be 0 to 1
 7     ASSERT (GreenFactor <= 1);
 8     ASSERT (BlueFactor  <= 1);
 9 
     LogicalPalette.palVersion    := PaletteVersion;
     LogicalPalette.palNumEntries := 256;
     FOR i := 0 TO 255 DO
     BEGIN
       LogicalPalette.palPalEntry[i].peRed   := Round(i * RedFactor);
       LogicalPalette.palPalEntry[i].peGreen := Round(i * GreenFactor);
       LogicalPalette.palPalEntry[i].peBlue  := Round(i * BlueFactor);
       LogicalPalette.palPalEntry[i].peFlags := PC_RESERVED;
     END;
     RESULT := CreatePalette(pLogPalette(@LogicalPalette)^);
 END;
 

 创建使用调色板的位图

 1 procedure  GradientBitmap(var ShowBitMap:TBitmap;CONST RedFactor, GreenFactor, BlueFactor:  Single);
 2   CONST
 3     BitmapSize = 256;
 4   VAR
 5     i     :  INTEGER;
 6     index :  INTEGER;
 7     j     :  INTEGER;
 8     Row   :  pByteArray;
 9 begin
      ShowBitMap.PixelFormat := pf8bit;
      ShowBitMap.Height := BitmapSize;
      ShowBitMap.Width  := BitmapSize;
     // 1.  Create palette first.
      ShowBitMap.Palette:= MaxGradientPalette(RedFactor, GreenFactor, BlueFactor);
 
     //  2. Assign Scanline value;
     FOR  j := 0 TO BitmapSize-1 DO
     BEGIN
       Row :=  ShowBitMap.Scanline[j];
       FOR i := 0 TO BitmapSize-1 DO
       BEGIN
         index := (i+j) DIV 2;
         Row[i] :=  index;
       END
     END;
 end;
 

 使用调色板位图,显示在Picture上面

 

 1 procedure TFormPf8bit.Button4Click(Sender: TObject);
 2 var
 3   bitmap1:TBitmap;
 4 begin
 5   bitmap1:=TBitmap.Create;
 6   GradientBitmap( bitmap1,0.5,0.2,1.0);
 7   ImageShow.Picture.Graphic:=bitmap1;
 8   bitmap1.Free;
 9 end;