Paint problems with TCustomControl descendant

[bobonwhidbey]

I've created a TCard component that's a TCustomControl descendant. Below I show the gist of the Paint procedure. Depending on suit and rank I copy a certain portion of an ImageList into a previously defined BMP and then Draw the BMP. This works perfectly.

I also want to put a small green square on the card and write a number ('1' in this example) in that square. This is not working. What happens is - the square portion becomes transparent. If the card is on a gray background - that's the color of the square. The rest of the card is still what I expect.

This all worked fine in Delphi but I'm doing something wrong for Lazarus. Anyone have an idea?

Code: Pascal  [Select][+][-]

1.    Deck.CardList.GetBitmap(ord(FSuit) * 15 + FRank, FCardBMP);
2.    with FCardBMP.Canvas do begin
3.        Brush.color := clGreen;
4.        FillRect(Bounds(1, 28, 16, 14));
5.        Font.Style := [fsBold];
6.        Font.Color:=clBlack;
7.        TextOut(2, 28, '1');  
8.    end;
9.    Canvas.Draw(0, 0, FCardBMP);  
10.  

[Zoran]

Try using TextRect with TextStyle parameter instead of TextOut - that gives you better control of the text - something like this (untested):

Code: Pascal  [Select][+][-]

1. var
2.   TextStyle: TTextStyle;
3.   Text: String;
4.   S: TSize;
5.   R: TRect;
6. ...
7.  
8.    Deck.CardList.GetBitmap(ord(FSuit) * 15 + FRank, FCardBMP);
9.    with FCardBMP.Canvas do begin
10.        Brush.color := clGreen;
11.        FillRect(Bounds(1, 28, 16, 14));
12.        Font.Style := [fsBold];
13.        Font.Color:=clBlack;
14.        //TextOut(2, 28, '1');  // remove this
15.    end;
16. // insert these lines:
17.    TextStyle := FCardBMP.Canvas.TextStyle;
18.    TextStyle.Opaque := True;
19.  
20.    Text := '1';
21.    S := FCardBMP.Canvas.TextExtent(Text); //the size of text
22.    R := Rect(2, 28, 2 + S.cx, 28 + S.cy);
23.    FCardBMP.Canvas.TextRect(R, R.Left, R.Top, Text, TextStyle);
24. /////
25.  
26.    Canvas.Draw(0, 0, FCardBMP);
27.  

             

[sysrpl]

TextRect as compared to TextOut.

[eny]

TextOut and TextRect.

[sysrpl]

envy, that documentation is very old. i built new documentation last friday. additoinally i created an incremental search index.

ublock origin warns of malware by default at sourceforge:

http://cache.getlazarus.org/images/sourceforge-malware.png

wikipeida details sourceforge hijackings:

http://cache.getlazarus.org/images/sourceforge-hijack.png

[bobonwhidbey]

Here's my code now - still the same problem. The Rect shows whatever color is behind the card - as if I'm making the Rect transparent.

Code: Pascal  [Select][+][-]

1.    FCardBMP.Canvas.Brush.color := clGreen;
2.    FCardBMP.Canvas.FillRect(Bounds(1, 28, 16, 14));
3.    FCardBMP.Canvas.Font.Style := [fsBold];
4.    FCardBMP.Canvas.Font.Color := clWhite;
5.    FCardBMP.Canvas.Brush.Style := bsSolid;
6.    TextStyle := FCardBMP.Canvas.TextStyle;
7.    TextStyle.Opaque := true;
8.    S := FCardBMP.Canvas.TextExtent(Text); //the size of text
9.    R := Rect(2, 28, 2 + S.cx, 28 + S.cy);
10.    FCardBMP.Canvas.TextRect(R, R.Left, R.Top,Text, TextStyle)
11.  

[Zoran]

Perhaps you should set FCanvas.Brush.Style before you call FillRect:

Code: Pascal  [Select][+][-]

1.    FCardBMP.Canvas.Brush.color := clGreen;
2.    FCardBMP.Canvas.Brush.Style := bsSolid; // now here
3.    FCardBMP.Canvas.FillRect(Bounds(1, 28, 16, 14));
4.    FCardBMP.Canvas.Font.Style := [fsBold];
5.    FCardBMP.Canvas.Font.Color := clWhite;
6. //   FCardBMP.Canvas.Brush.Style := bsSolid;
7.    TextStyle := FCardBMP.Canvas.TextStyle;
8.    TextStyle.Opaque := true;
9.    S := FCardBMP.Canvas.TextExtent(Text); //the size of text
10.    R := Rect(2, 28, 2 + S.cx, 28 + S.cy);
11.    FCardBMP.Canvas.TextRect(R, R.Left, R.Top,Text, TextStyle)
12.  

[zeljko]

Perhaps you should set FCanvas.Brush.Style before you call FillRect:

No, as soon as you set Color to the brush it sets style to bsSolid.