Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: How to apply color profiles to produce real color?

    Delphi
    by WojTec, 1. Mär 2012
  Ok, I did it with 1x1 bitmap and finally I got this:
  
  function CreateBitmap: TBitmap;
  begin
  Result := TBitmap.Create;
  Result.SetSize(1, 1);
  end;
  
  function SingleColor(const AColor: TColor): TBitmap;
  begin
• Forum: Multimedia

  Re: How to apply color profiles to produce real color?

    Delphi
    by WojTec, 24. Feb 2012
  Ok, but should be here:
  
  { Input }, { Output }
  
  cmsDoTransform() is waiting for pointer to bitmap, if I see well in manual, I don't understand how to use it for simple color?
• Forum: Multimedia

  How to apply color profiles to produce real color?

    Delphi
    by WojTec, 23. Feb 2012
  I'm trying get color like in Photoshop. For example for CMYK(0, 0, 100, 0) get RGB(255, 242, 0) instead FFFF00. Based on demo which is not clear for me I got something like this and don't know what next:
  
  var
  IntentCodes: array of cmsUInt32Number;
  
  procedure GetProfiles(var ACombo: TComboBox; const AColorSpace: cmsColorSpaceSignature);
  var
  Files, Descriptions: TStringList;
  Found:...