Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bummi,
28. Jun 2010
stimmt, befriedigend ist es nicht ...
mit Deinem ursprünglichen Code und Ownerdraw=true sieht es bai mir aber halbwegs brauchbar aus, auch ohne zusätzlicuen Code.
Muß los
LG
Bummi
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bummi,
28. Jun 2010
Ich nutze ListView nie, aber wenn Du auf den Hoovereffekt verzichten kannst, oder mehr zu Fuß machen willst könntest auch OwnerDraw auf true setzen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Bummi,
28. Jun 2010
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
If (Stage = cdPostPaint) then
With Sender as TListView do
begin
Button1.PaintTo(Canvas, Columns.Width, Item.DisplayRect(drBounds).Top);
Brush.Style := bsClear;