For now I used lovely BGRABitmap like this,thanks to its author
circular.
> uses BGRABitmap, BGRABitmapTypes, BGRAColorQuantization;
>
> var bmp:TBGRABitmap; quant: TBGRAColorQuantizer; i: Integer; begin
> bmp:=TBGRABitmap.Create('E:\photo1.jpg'); quant :=
> TBGRAColorQuantizer.Create(bmp, acIgnore, 5); for i := 0 to
> quant.ReducedPalette.Count-
> 1 do begin with TPanel.Create(Self) do begin Parent :=
> Self; Align := alTop;
> Color:=BGRAToColor(quant.ReducedPalette.Color[i]); end; end;
>
Regards, Ara
--
http://www.fastmail.com - Faster than the air-speed velocity of an
unladen european swallow
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
