Writing to a TPaintbox Canvas ussing TextOut in XOR mode

How can I write text to a canvas in XOR mode - setting

  Pen.Mode := pmNotXOR ;

doesn't have any effect like it does with LineTo.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

as you have discovered, the raster-operation code setting for a hDC seting does not effect text drawing, in order to get an inverted text draw, I use the BitBlt( ) function with the SRCINVERT raster-operation code. Here is some code to have inverted text -

procedure TForm1.sbut_DoXORTextClick(Sender: TObject);
Bmp1: TBitmap;
Bmp1 := TBitmap.Create;
Bmp1.Canvas.Brush.Color := clBlack;
{to have the SRCINVERT invert the text, you need a Black
background with white text}
Bmp1.Width := 120;
Bmp1.Height := 22;
Bmp1.Canvas.Font.Size := 14;
Bmp1.Canvas.Font.Color := clWhite;
Bmp1.Canvas.TextOut(1,1, 'T E X T Here');
BitBlt(PaintBox1.Canvas.Handle, 5, 5, Bmp1.width, Bmp1.height, Bmp1.canvas.handle, 0,0, SRCINVERT);
BitBlt(PaintBox1.Canvas.Handle, 5, 5, Bmp1.width, Bmp1.height, Bmp1.canvas.handle, 0,0, SRCINVERT);

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

ask questions if you need more information

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
rossmcmAuthor Commented:
OK we're close.  I can sort of see what you are doing, but I have tried to adopt your code to my aplication and am getting a lot of black rectangles.  Maybe I need to explain the application:

The app pains a graph on a white background with axes, graticules, and traces in various colors.  In order to make it responsive to scrolling when the vertical or horizontal position is changed (via scrollbars) I undraw the traces (by drawing them in pmNotXOR mode), change the position, then redraw them.  I want to able to do the same with the graph axis annotation.

What I want therefore is a version of TextOut (X, Y, TextToWrite) that does it in XOR mode so that I can remove the annotation by ddrawing it.  It also needs to use the same font/color etc as the existing PaintBox.Canvas.
if you want to do
 needs to use the same font/color etc as the existing PaintBox.Canvas

then you will need to REDRAW the section of the paintbox that is going to be painted, Refreshed, or whatever, and then draw the text on the new Redrawn DC to whatever spec you want. .  I thought you wanted an Inverse (XOR) text draw as you oridgenally specified, but you have confused me, if you use the inverse draw you can "Erase" by redrawing it in the same position again (as you have said) . . . if you draw in the "Text Color" you CAN NOT erase it by redrawing it. .  you will need to have a "Erase" redraw of that Text Rectangle, and then redraw the text. . . I'm also puzzeled by your method of "Scrolling". . . I would do a TBitmap, of whatever size the "Entire" area of the graph and then scroll the bitmap on the Paintbox. .  I have no idea why you get the black rectangles. . . my code works for me. .  it draws and then erases
PMI ACP® Project Management

Prepare for the PMI Agile Certified Practitioner (PMI-ACP)® exam, which formally recognizes your knowledge of agile principles and your skill with agile techniques.

rossmcmAuthor Commented:
the virtual size of the paintbox is huge - it represents a graphocal trace of temperature vs time, where the temperature and time can be zoomed from 0.1 degree to 100 degrees, and from 1 sec to several years in the X direction, hence the implementation.
OK, I can see now that there is a size factor, , , I'm not to sure what to say to try and help you. . . as I have said, if you want to have the text draw we are talking about, in a certain Color, you will not be able to do an XOR type of thing, since that will only "Reverse" the Color of the DC it is applied to. . . I really have NO IDEA what methods you use (to paint or refresh or scroll) for your display. . ., It would seem that since you do not use any "Base" bitmap to scroll, , , when you do a scroll, you would repaint the entire paintbox?, if this is the case, then save all of your text drawing untill the last. . . but from your description of the problem, you somehow do not repaint the entire paintbox, but I guess you just XOR some lines and the redraw those lines, and paint a few lines of text. . . maybe you could just completely redraw the area where the text is, . . . . ? ?
 If where you are drawing the Text that needs to be "Updated" on a scroll  is on a soild color background, you could just do a FillRect or Rectangle with the background color over the old text to erase it,  and then draw the new text

Or I could maybe get it so it does not show the Black rectangles using my SRCINVERT  BliBlt code, , if you can show some code for that
rossmcmAuthor Commented:
You got it.  Rather than repaint the whole paintbox each time the scrollbar is repositioned, I unwrite and rewrite the traces, then the annotation.  For the traces it works perfectly as long as the pen mode is pmNotXOR.  For the annotation presently I am unwriting it be writing it in the same color as the packground of the paintbox and then rewriting it in the correct color.  This works OK unless parts of the trace and the annotation overlap.

works OK unless parts of the trace and the annotation overlap

then do your -
unwriting it be writing it in the same color
BEFORE the trace draw, and the new text AFTER the trace draw

I'm wondering why you don't simply keep a background
bitmap of the picture, clear the paintbox and then simply
redraw the annotations.

Am I missing anything here?


It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.