delphi - Creating a transparent custom bitmap brush -

-

problem definition

i trying create custom bitmap brush transparency doesn't seem working expected. if @ example. add code , hook paint, create , destroy events. 

type   tform3 = class(tform)     procedure formdestroy(sender: tobject);     procedure formcreate(sender: tobject);     procedure formpaint(sender: tobject);   private     fbitmap: tbitmap;   end;  // implementation  function createblockbitmap(const apencolor: tcolor): tbitmap; begin   result := tbitmap.create;   result.transparent := true;    result.canvas.brush.color := clwhite;   result.canvas.brush.style := bsclear;   result.pixelformat := pf32bit;   result.setsize(20, 20);   result.canvas.brush.color := apencolor;   result.canvas.brush.style := bssolid;   result.canvas.fillrect(rect(0,0,10,10)); end;  procedure tform3.formdestroy(sender: tobject); begin   fbitmap.free; end;  procedure tform3.formcreate(sender: tobject); begin   fbitmap := createblockbitmap(clred); end;  procedure tform3.formpaint(sender: tobject); var   colnum: integer;   rownum: integer; begin   // paint rectangle using brush   canvas.pen.color := clgreen;   canvas.brush.bitmap := fbitmap; // using bitmap   canvas.rectangle(50, 50, 250, 250);   // draw block using canvas.draw   rownum := 0 9     colnum := 0 9       canvas.draw(350 + rownum * 20, 50 + colnum * 20, fbitmap); end;

this code produces 2 painted blocks. left 1 painted using bitmap brush , right hand side 1 painted using number of canvas.draw calls.

brush transparency

i need brush painted transparency similar happen if used hatch brush. answer seems indicate it's possible:

how can draw patternbrush transparent backround (gdi)?

what have tried

1) tried using solid background color instead of using bsclear. makes background white. 

  result.canvas.brush.color := clwhite;   result.canvas.brush.style := bssolid;

if use clfuchsia color fuchsia. tried painting background clfuchsia , setting transparentcolor clfuchsia. canvas.draw option paints transparency , brush doesn't.

2) tried setting alpha channel directly following code:

procedure setalphabitmap(const dest: tbitmap;color : tcolor;alpha:byte); type   trgb32 = record     b, g, r, a: byte;   end;   prgbarray32 = ^trgbarray32;   trgbarray32 = array[0..0] of trgb32; var   x, y:    integer;   line, delta: integer;   colorrgb : tcolor; begin   if dest.pixelformat<>pf32bit  exit;    colorrgb := colortorgb(color);   line  := integer(dest.scanline[0]);   delta := integer(dest.scanline[1]) - line;   y := 0 dest.height - 1   begin     x := 0 dest.width - 1       if tcolor(rgb(prgbarray32(line)[x].r, prgbarray32(line)[x].g, prgbarray32(line)[x].b)) = colorrgb         prgbarray32(line)[x].a := alpha;     inc(line, delta);   end; end;

and calling routine after rectangle has been painted using background color.

  result.canvas.brush.style := bssolid;   result.canvas.fillrect(rect(0,0,10,10));   setalphabitmap(result, clblack, 0); // set alpha channel end;

i know alpha channel working because if pass in alpha value of 255 shows in black in canvas.draw too.

  setalphabitmap(result, clblack, 255);

3) tried testing creating pattern brush , assigning instead of bitmap. produces same results. fbrush hbrush.

  fbrush := createpatternbrush(fbitmap.handle);

and setting brush this:

  canvas.brush.handle := fbrush;

4) tried calling setbkmode indicated in answer above. made no difference @ all.

  canvas.pen.color := clgreen;   canvas.brush.bitmap := fbitmap;    setbkmode(canvas.handle, transparent); // doesn't make difference   canvas.rectangle(50, 50, 250, 250);

edit

5) tested monochrome bitmap , has same problem. image painted white background , black foreground brush , transparent canvas.draw.

function createmonochromebitmap: tbitmap; begin   result := tbitmap.create;   result.transparent := true;   result.canvas.brush.color := clwhite;   result.canvas.brush.style := bssolid;   result.pixelformat := pf1bit;   result.setsize(20, 20);   result.canvas.brush.color := clblack;   result.canvas.brush.style := bssolid;   result.canvas.fillrect(rect(0,0,10,10)); end;

and in constructor:

fbitmap := createmonochromebitmap; fbrush := createpatternbrush(fbitmap.handle);

in paint set handle rather bitmap property.

canvas.brush.handle := fbrush;

try clear canvas null color before drawing loop.

canvas.clear(talphacolorrec.null);

greetings. pau.


Comments

Post a Comment

Popular posts from this blog

c++ - Qt setGeometry: Unable to set geometry -

-
why? setgeometry: unable set geometry 22x22+320+145 on qwidgetwindow/'widgetclasswindow'. resulting geometry: 116x22+320+145 (frame: 8, 30, 8, 8, custom margin: 0, 0, 0, 0, minimum size: 22x22, maximum size: 16777215x16777215). the project is: project.pro qt += core gui greaterthan(qt_major_version, 4): qt += widgets target = untitled5 template = app sources += main.cpp\ widget.cpp headers += widget.h widget.h #ifndef widget_h #define widget_h #include <qwidget> class widget : public qwidget { q_object public: explicit widget(qwidget *parent = 0); ~widget(); private: }; #endif // widget_h widget.cpp #include "widget.h" #include <qvboxlayout> widget::widget(qwidget *parent) : qwidget(parent) { qvboxlayout *vlayout = new qvboxlayout(this); } widget::~widget() { } main.cpp #include "widget.h" #include <qapplication> int main(int argc, char *argv[]) { qapplication a...
Read more

python - argument must be rect style object - Pygame -

-
disclaimer: know other people on site have had error it's been in different contexts , fixes don't seem work here. hey stackoverflow, i've been making sideways space invaders game, ship follows mouse's y position stays on left, , clicking shoots bullet. enemies spawn randomly right , fly left, , objects removed once each side of screen. works fine, when tried implement collision detection see when shot hits enemy, error: typeerror: argument must rect style object. it points line "return hitbox.colliderect(target.rect)". try , work out causing made 'print' lines below see 'target.rect' (and whether proper rect object), , seemed same style shot's own rect, i'm lost why colliderect doesn't accept it. i've annotated pretty everything, sorry if it's insult intelligence should make things easier. class causes problems: class gameobject: def __init__(self, image, height, speed): self.speed = speed self.image...
Read more

How to resolve Delphi error: Incompatible types: 'PWideChar' and 'Pointer' -

-
i have piece of code delphi 7: var lprgndata: prgndata; pc: pchar; pr: prect; ... pc := @(lprgndata^.buffer[0]); in delphi xe4 gives following compile error: incompatible types: 'pwidechar' , 'pointer' how should code updated work correctly in xe4? thanks whether or not compiles depends upon setting of type-checked pointers option . have enabled option excellent decision. doing results in stricter type checking. with type-checked pointers disabled, code compile. type-checked pointers enabled, code not compile, want because code not valid. now, on types in question. defined in windows unit this: type prgndata = ^trgndata; {$externalsym _rgndata} _rgndata = record rdh: trgndataheader; buffer: array[0..0] of byte; reserved: array[0..2] of byte; end; trgndata = _rgndata; {$externalsym rgndata} rgndata = _rgndata; the benefit of using type-checked pointers compiler can tell doing not valid. knows lprgndat...
Read more