listview - Delphi: Canvas.FillRect in List View -



listview - Delphi: Canvas.FillRect in List View -

on alter of text of list view's subitem need brush , fill whole row:

procedure tform1.listviewdrawitem(sender: tcustomlistview; item: tlistitem; rect: trect; state: townerdrawstate); begin if item.subitems[2]='done' begin sender.canvas.font.color := clblack; sender.canvas.brush.color := clgreen; sender.canvas.brush.style := bssolid; sender.canvas.fillrect(rect); end; end;

but sender.canvas.fillrect(rect) fill rect of subitem. how fill whole row?

the question asked on base of operations of delphi: how draw little icons in list view on customdrawitem

thanks!

first, if have 3 columns, caption, subitems[0], , subitems[1], remember? there no subitems[2]!

anyhow, easy. need very, little modification of old code.

procedure tform1.listview1drawitem(sender: tcustomlistview; item: tlistitem; rect: trect; state: townerdrawstate); var i: integer; x1, x2: integer; r: trect; s: string; const dt_align: array[talignment] of integer = (dt_left, dt_right, dt_center); begin if sametext(item.subitems[1], 'done') begin sender.canvas.font.color := clblack; sender.canvas.brush.color := cllime; end else if odd(item.index) begin sender.canvas.font.color := clblack; sender.canvas.brush.color := $f6f6f6; end else begin sender.canvas.font.color := clblack; sender.canvas.brush.color := clwhite; end; sender.canvas.brush.style := bssolid; sender.canvas.fillrect(rect); x1 := 0; x2 := 0; r := rect; sender.canvas.brush.style := bsclear; sender.canvas.draw(3, r.top + (r.bottom - r.top - bm.height) div 2, bm); := 0 listview1.columns.count - 1 begin inc(x2, listview1.columns[i].width); r.left := x1; r.right := x2; if = 0 begin s := item.caption; r.left := bm.width + 6; end else s := item.subitems[i - 1]; drawtext(sender.canvas.handle, s, length(s), r, dt_singleline or dt_align[listview1.columns[i].alignment] or dt_vcenter or dt_end_ellipsis); x1 := x2; end; end;

notice in particular utilize cllime instead of clgreen, because clblack text on clgreen background looks horrible! might consider clwhite text on clgreen background, though:

update in response comments:

to alter 3rd column of list view, doesn't do

procedure tform1.formclick(sender: tobject); begin listview1.items[3].subitems[1] := 'done'; end;

indeed, windows doesn't know info of 1 column affects appearance of entire row! the simplest prepare tell windows repaint entire command when have changed value better: tell windows redraw current row:

procedure tform1.formclick(sender: tobject); begin listview1.items[3].subitems[1] := 'done'; listview1.items[3].update; end;

delphi listview fill brush rect

Comments

Post a Comment

Popular posts from this blog

iphone - Dismissing a UIAlertView -

iphone - Dismissing a UIAlertView - i set in app purchase app, , when user taps button, purchase started. basically, tap button, , depending on speed on net connection, waiting 10 seconds until new alert view comes asking if purchase product. user tap button multiple times since nil came up, , multiple purchase alert views come up. additionally, maybe seen user app bug. in end, problem. i want alert view come spinning wheel says "loading..." when users taps purchase button. problem is, how dismiss when new alert view comes asking user if want purchase product? if ([uialertview alloc] says: @"whatever apple's alert view says") { //dismiss "loading..." alert view here } i uncertainty work, input appreciated. thanks! you need have access alertview. can this. create alertview instance var in app delegate , when want show loading initialize instance var assign property , when want dismiss phone call [alertviewinstance d...
Read more

c# - Can ProtoBuf-Net deserialize to a flat class? -

c# - Can ProtoBuf-Net deserialize to a flat class? - protobuf-net uses nested protobuf constructs back upwards inheritance. however, can made force properties flat target class has same properties inherited "serialized" version? see test illustration below. needless result of flat namespace null both properties. possible solution: re-create info flat.b first on property property basis. note: not prefered option. using system; namespace hierarchy { using protobuf; [protocontract] public class { [protomember(1)] public string prop1 { get; set; } } [protocontract] public class b : { public b() { } [protomember(1)] public string prop2 { get; set; } public override string tostring() { homecoming "prop1=" + prop1 + ", prop2=" + prop2; } } } namespace flat { using protobuf; [protocontract] p...
Read more

javascript - Change element in each JQuery tab to dynamically generated colors -

javascript - Change element in each JQuery tab to dynamically generated colors - i'm using jquery ui tabs widget , have button add together additional tabs. i'm tying each tab markers on map coordinating randomly generated color using function gen_color() { homecoming '#'+(math.random()*0xffffff<<0).tostring(16); } so each tab has color corresponds number of markers of same color on map. i'm trying add together 15x15 block of color within tab's tab left of it's label. right i'm using tabtemplate alternative , trying alter when new tab added: $tabs = $("#tabs").tabs({ tabtemplate: "<li><span class='ui-icon-color' style='background-color:#000000;'></span><a href='#{href}'>#{label}</a> <span class='ui-icon ui-icon-close'>remove tab</span></li>", selected: 0, add: funct...
Read more