delphi - painting background from TSeStyleFont -


i'm trying paint vcl style background tsestylefont in bitmap style designer .. there way draw background ?

enter image description here

i have make try : - draw object first in bitmap using drawelement . - copy current bitmap nother clean bitmap using 'bitmap.canvas.copyrect' problem : methode not work correctly objects has glyph such checkbox ... 

  var   bmp, bmp2: tbitmap;   details: tthemedelementdetails;   r, rn: trect; begin   bmp := tbitmap.create;   bmp2 := tbitmap.create;   r := rect(0, 0, 120, 20);   rn := rect(0 + 4, 0 + 4, 120 - 4, 20 - 4);   bmp.setsize(120, 20);   bmp2.setsize(120, 20);   details := styleservices.getelementdetails(tthemedbutton.tbpushbuttonhot);   styleservices.drawelement(bmp.canvas.handle, details, r);   bmp2.canvas.copyrect(r, bmp.canvas, rn);   canvas.draw(10, 10, bmp2);   bmp.free;   bmp2.free;  end;

if want draw background of buttons must use styleservices.drawelement method passing proper tthemedbutton part.

try sample 

uses   vcl.styles,   vcl.themes;  {$r *.dfm}  procedure tform2.button1click(sender: tobject); var   details : tthemedelementdetails; begin   details := styleservices.getelementdetails(tbpushbuttonpressed);   styleservices.drawelement(paintbox1.canvas.handle, details, paintbox1.clientrect);    details := styleservices.getelementdetails(tbpushbuttonnormal);   styleservices.drawelement(paintbox2.canvas.handle, details, paintbox2.clientrect); end;

enter image description here

if want draw background without corners, can adjust bounds of trect so

  details : tthemedelementdetails;   lrect   : trect; begin   lrect:=paintbox1.clientrect;   lrect.inflate(3,3);    details := styleservices.getelementdetails(tbpushbuttonpressed);   styleservices.drawelement(paintbox1.canvas.handle, details, lrect);    lrect:=paintbox2.clientrect;   lrect.inflate(3,3);   details := styleservices.getelementdetails(tbpushbuttonnormal);   styleservices.drawelement(paintbox2.canvas.handle, details, lrect); end;

enter image description here


Comments

Post a Comment

Popular posts from this blog

linux - xterm copying to CLIPBOARD using copy-selection causes automatic updating of CLIPBOARD upon mouse selection -

i've tried various ways coerce xterm (versions 285 , 292) copy selection clipboard clipboard whenever press ctrl-shift-c. promising way far has been, in ~/.xresources, put this: xterm*vt100.translations: #override \ ctrl shift <keypress> c: copy-selection(clipboard) \n\ ctrl shift <keypress> v: insert-selection(clipboard) ctrl-shift-v works perfectly, copying has nuance... if restart xterm, highlighting text puts things in primary clipboard; expected, proper, default behavior. if hit ctrl-shift-c, copies current selection clipboard clipboard. the bug, however, if highlight text after first time pressed ctrl-shift-c, you'll see highlighting copies both primary and clipboard. cannot figure out how stop xterm updating clipboard upon selection... , doesn't make sense me in first place. i said, @ specific point in time, copy selection clipboard... yet starts updating automatically upon selection after doing once... anyone have workaround...
Read more

c++ - qgraphicsview horizontal scrolling always has a vertical delta -

Image
i've subclassed qgraphicsview custom canvas used in cad application. i've reimplemented qgraphicsview::wheelevent check keyboard modifiers control key and, if control key pressed, zoom. i'm trying implement horizontal scroll when user holds shift , uses wheel. the problem i'm having horizontal scrolling always scrolls 0.279. not huge problem, hugely annoying , points else being wrong. so, here questions: is right way implement horizontal scrolling? if not, is? how eliminate delta of 0.279? thanks in advance. code , sample output below void myview::zoom(int delta) { double factor = pow(1.2, delta/abs(delta)); this->scale(factor, factor); } void myview::scrollhorizontal(int level) { qpointf center = maptoscene(viewport()->rect().center()); qdebug() << "center: " << center.x() << ", " << center.y(); centeron(qpointf(center.x() - level, center.y())); } void myview::wheelevent(qwheeleve...
Read more