• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 413
  • Last Modified:

set the palette of TImage

if I had a component
TImage Image1;
I want set it's palette,
How can I do this?
0
mathematics
Asked:
mathematics
  • 3
  • 2
1 Solution
 
mathematicsAuthor Commented:
for exnape PALETTEENTRY *pe[16] =
{{255,255,255,0},{{0,0,0,0},...
}.............
and then?
0
 
kretzschmarCommented:
hi mathematics,

a sample from the borland help
(based on a TBitmap)

unit bmpformu;

//
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TBmpForm = class(TForm)
    Button1: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Bitmap: TBitmap;
    procedure ScrambleBitmap;

    procedure WMEraseBkgnd(var m: TWMEraseBkgnd); message WM_ERASEBKGND;
  public
    { Public declarations }
  end;
var
  BmpForm: TBmpForm;
implementation

{$R *.DFM}

procedure TBmpForm.FormCreate(Sender: TObject);
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('bor6.bmp');
end;
procedure TBmpForm.FormDestroy(Sender: TObject);
begin
  Bitmap.Free;
end;
// since we're going to be painting the whole form, handling this

// message will suppress the uneccessary repainting of the background
// which can result in flicker.
procedure TBmpform.WMEraseBkgnd(var m : TWMEraseBkgnd);
begin
  m.Result := LRESULT(False);
end;
procedure TBmpForm.FormPaint(Sender: TObject);
var
  x, y: Integer;
begin
  y := 0;
  while y < Height do
  begin
    x := 0;
    while x < Width do
    begin
      Canvas.Draw(x, y, Bitmap);

      x := x + Bitmap.Width;
    end;
    y := y + Bitmap.Height;
  end;
end;
procedure TBmpForm.Button1Click(Sender: TObject);
begin
  ScrambleBitmap;
  Invalidate;
end;

//
// scrambling the bitmap is easy when it has 256 colors:
// we just need to change each of the colors in the palette
// to some other value.
//
procedure TBmpForm.ScrambleBitmap;
var
  pal: PLogPalette;
  hpal: HPALETTE;

  i: Integer;
begin
  pal := nil;
  try
    GetMem(pal, sizeof(TLogPalette) + sizeof(TPaletteEntry) * 255);
    pal.palVersion := $300;
    pal.palNumEntries := 256;
    for i := 0 to 255 do
    begin
      pal.palPalEntry[i].peRed := Random(255);
      pal.palPalEntry[i].peGreen := Random(255);
      pal.palPalEntry[i].peBlue := Random(255);
    end;
    hpal := CreatePalette(pal^);
    if hpal <> 0 then

      Bitmap.Palette := hpal;
  finally
    FreeMem(pal);
  end;
end;
end.

meikl
0
 
mathematicsAuthor Commented:
Can we not loadfromfile and
it's run ok?
->Bitmap.LoadFromFile('bor6.bmp');
Is this line necessary?
Because I didn't want use any resource.
0
Cloud Class® Course: Certified Penetration Testing

This CPTE Certified Penetration Testing Engineer course covers everything you need to know about becoming a Certified Penetration Testing Engineer. Career Path: Professional roles include Ethical Hackers, Security Consultants, System Administrators, and Chief Security Officers.

 
kretzschmarCommented:
hi mathematics,

thats just a sample,
which shows how to access a palette,
based on a bitmap, you must not load it from a file.

meikl
0
 
mathematicsAuthor Commented:
After I Image1->Canvas->LineTo(100,100),
the palette is truecolor,
I set the palette to 16 colors,
and savetofile(a.bmp)
,I dump the a.bmp,
but the file is not 16 colors.
Why?
How can I setup the palette?
0
 
edeyCommented:
you would need to set the TImage.picture.bitmap's pixelFormat property to pf16bit


GL
Mike
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: MCSA MCSE Windows Server 2012

This course teaches how to install and configure Windows Server 2012 R2.  It is the first step on your path to becoming a Microsoft Certified Solutions Expert (MCSE).

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now