32 bit farver

Hvis det er en hjælp er det disse farver der er grundfarve i 32 bit.
Cyan, Magenta, Gul og Sort

Mvh. Simon

http://www.efg2.com/Lab/

Jens B

Hvilket skal jeg bruge.

Mvh. Simon

her er noget om 32-Bits farver :

http://plum.ia.polsl.gliwice.pl/~DIP/delphi/ImageProcessing/Scanline.htm

Jens B http://fotx.net/Borrisholt

Det der står der kan jeg ikke bruge til noget.
det er stadig 24 bits farver med noget ekstra.
Det jeg gerne vil have er for eksempel et komponent hvori man kan tegne med 32bits farver.

Noget kan bruges det får du point for.

Mvh. Simon

prøv så den her :

unit JBitmap;

interface

uses windows;

type

TJColor = record
          blue,green,red,unused : byte;
        end;

TPixels = array[0..0] of TJColor;
PPixels = ^TPixels;

TJBitMap = class
            private
              handle : THandle;
              fpixels : PPixels;
              fheight, fwidth : integer;
              JmpTbl : array [ 0..10000 ] of integer;
              function GetPixel(x, y: integer): TJColor;
              procedure SetPixel(x, y: integer; const Value: TJColor);
            public
              DC : hDC;
              Scanlines : array [ 0..10000] of pointer;
              Constructor Create (width, height : integer );
              procedure Draw ( DestDC : hDC; x,y : integer);
              procedure StretchDraw ( DestDC : hDC; x1,y1,x2,y2 : integer);

              property pixels [ x,y : integer ] : TJColor read GetPixel write SetPixel;
              property width:integer read fwidth;
              property height:integer read fheight;
          end;

implementation

{ TJBitMap }

constructor TJBitMap.Create (width, height : integer );
var
  bmInfo : TBitmapInfo;
  bmheader : TBitmapInfoHeader;
  p : pointer;
  x : integer;
begin
  inherited create;
  fWidth  := width;
  fHeight := height;

  with bmHeader do
  begin
    biSize := SizeOf(bmHeader);
    biWidth := Width;
    biHeight := Height;
    biPlanes := 1;
    biBitCount := 32;
    biCompression := BI_RGB;
  end;

  bmInfo.bmiHeader := bmHeader;
  Handle := CreateDIBSection(0, bmInfo, DIB_RGB_COLORS, p, 0,  0);
  fPixels := p;
  DC:=CreateCompatibleDC(0);
  SelectObject(DC,Handle);
  for x := 0 to height-1 do
    JmpTbl [ x ] := x*width;
  for x := 0 to height-1 do
    scanlines [x] := @fPixels[x * width];
end;

procedure TJBitMap.Draw(DestDC: hDC; x, y: integer);
begin
  BitBlt( DestDC,x,y,fWidth,fHeight,DC,0,0,SRCCOPY);
end;

function TJBitMap.GetPixel(x, y: integer): TJColor;
begin
  result := fpixels [ y * fwidth + x ];
end;

procedure TJBitMap.SetPixel(x, y: integer; const Value: TJColor);
begin
  fpixels [ JmpTbl[y] + x ] := Value;
end;

procedure TJBitMap.StretchDraw(DestDC: hDC; x1, y1, x2, y2: integer);
begin
  StretchBlt( DestDC,x1,y1,x2-x1+1,y2-y1+1,DC,0,0,fwidth,fheight,SRCCOPY);
end;

end.


Jens B

Jeg undskylder mit fravær.
Det du har skrevet giver kun mulighed for at tegne med RGB på en anden måde.

Hvordan Tegner jeg CMYK.

Mvh. Simon

glem det det kan inen tydeligvis svare på og eksperten.dk har brokket sig over at jeg ikke har aksepteret at der er svaret.

Mvh. Simon

hvordan bliver 50 point til 125
og 150 til 75.
kan jeg få de sidste 75 tilbage.

Mvh. Simon