Databases
StackOverflow2013
Postsdbo
POProgrammatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POProgrammatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel
    primarykey
    data
    text
    <p>Download source code here: <a href="http://www.eyeClaxton.com/download/delphi/ColorSwap.zip" rel="nofollow noreferrer">http://www.eyeClaxton.com/download/delphi/ColorSwap.zip</a></p> <p>Yes, I want to convert something "mostly blue" to something "mostly green".</p> <p>I would like to take a original bitmap (light blue) and change the colors (Pixel by Pixel) to the red, green, blue and gray equivalence relation. To get an idea of what I mean, I have include the source code and a screen shot. Any help would be greatly appreciated. If more information is needed, please feel free to ask.</p> <p>If you could take a look at the code below, I have three functions that I'm looking for help on. The functions "RGBToRed, RGBToGreen and RGBToRed" I can't seem to come up with the right formulas.</p> <p><img src="https://i.stack.imgur.com/AJnGM.png" alt="alt text"></p> <pre><code>unit MainUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TMainFrm = class(TForm) Panel1: TPanel; Label1: TLabel; Panel2: TPanel; Label2: TLabel; Button1: TButton; BeforeImage1: TImage; AfterImage1: TImage; RadioGroup1: TRadioGroup; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var MainFrm: TMainFrm; implementation {$R *.DFM} function RGBToGray(RGBColor: TColor): TColor; var Gray: Byte; begin Gray := Round( (0.90 * GetRValue(RGBColor)) + (0.88 * GetGValue(RGBColor)) + (0.33 * GetBValue(RGBColor))); Result := RGB(Gray, Gray, Gray); end; function RGBToRed(RGBColor: TColor): TColor; var Red: Byte; begin // Not sure of the algorithm for this color Result := RGB(Red, Red, Red); end; function RGBToGreen(RGBColor: TColor): TColor; var Green: Byte; begin // Not sure of the algorithm for this color Result := RGB(Green, Green, Green); end; function RGBToBlue(RGBColor: TColor): TColor; var Blue: Byte; begin // Not sure of the algorithm for this color Result := RGB(Blue, Blue, Blue); end; procedure TMainFrm.FormCreate(Sender: TObject); begin BeforeImage1.Picture.LoadFromFile('Images\RightCenter.bmp'); end; procedure TMainFrm.Button1Click(Sender: TObject); var Bitmap: TBitmap; I, X: Integer; Color: Integer; begin Bitmap := TBitmap.Create; try Bitmap.LoadFromFile('Images\RightCenter.bmp'); for X := 0 to Bitmap.Height do begin for I := 0 to Bitmap.Width do begin Color := ColorToRGB(Bitmap.Canvas.Pixels[I, X]); case Color of $00000000: ; // Skip any Color Here! else case RadioGroup1.ItemIndex of 0: Bitmap.Canvas.Pixels[I, X] := RGBToBlue(Color); 1: Bitmap.Canvas.Pixels[I, X] := RGBToRed(Color); 2: Bitmap.Canvas.Pixels[I, X] := RGBToGreen(Color); 3: Bitmap.Canvas.Pixels[I, X] := RGBToGray(Color); end; end; end; end; AfterImage1.Picture.Graphic := Bitmap; finally Bitmap.Free; end; end; end. </code></pre> <p>Okay, I apologize for not making it clearer. I'm trying to take a bitmap (blue in color) and swap the blue pixels with another color. Like the shots below.</p> <p><img src="https://i.stack.imgur.com/0kIda.png" alt="alt text"></p> <p><img src="https://i.stack.imgur.com/DHEDF.png" alt="alt text"></p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USeyeClaxton
    1. USeyeClaxton
    plurals
    1. This table or related slice is empty.
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POProgrammatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel
      1. This table or related slice is empty.
      1. VTDownMod
    2. VO
      singulars
      1. POProgrammatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POProgrammatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel
      1. USChristopher Chase
      1. VTFavorite
    1. COI don't understand. In what way does the code you provided not already do what you need?
      singulars
      1. POProgrammatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel
      1. USRob Kennedy
    2. COOk, I like the face that you've provided a screenshot and code, but I don't get what you want from us. What is the question, or what part is not working the way you want?
      singulars
      1. POProgrammatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel
      1. USWouter van Nifterick
    3. COIf you could take a look at the code above, I have three functions that I'm looking for help on. The functions "RGBToRed, RGBToGreen and RGBToRed" I can't seem to come up with the right formulas.
      singulars
      1. POProgrammatically swap colors from a loaded bitmap to Red, Green, Blue or Gray, pixel by pixel
      1. USeyeClaxton
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload