Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ChrisE,
27. Sep 2011
Hallo,
danke, das hat geklappt. :thumb:
Gruß, Chris
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ChrisE,
27. Sep 2011
Hallo,
ich hole diesen Thread nochmal hoch. Ich habe ganz konkret dieses Problem (also von diesem Thread) und brauch aber DoubleBuffered.
Das Problem ist: Reagiert man auf OnAdvancedDrawItem und OnAdvancedDrawSubItem (OwnerDraw = FALSE) um quasi noch etwas zu ergänzen, dann bekommt man diesen Schwarz-Effekt, sobald man auf die Canvas von Listview zeichnet. Zeichnet man auf eine ACanvas...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ChrisE,
5. Jul 2010
Hallo,
versuch doch mal bitte folgendes:
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
var
lv: TListView;
ACanvas: TCanvas;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ChrisE,
28. Jun 2010
Dann werde ich hier wohl aussteigen müssen. Hab nur D2007. Da gibts keine Groups.
Ein Tipp wäre noch, dass ganze nicht in OnAdvancedCustomDrawItem sondern in OnAdvancedCustomDrawSubItem aus zu probieren und es nur zu machen wenn SubItem = 1 ist.
Greez, Chris
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ChrisE,
28. Jun 2010
Wobei dein Beispiel-Projekt so ja funktioniert, oder?
var
lv: TListView;
begin
If (Stage = cdPostPaint) and (Sender is TListView) then
begin
lv := Sender as TListView;
Button1.PaintTo(lv.Canvas, lv.Columns.Width, Item.DisplayRect(drBounds).Top);
lv.Brush.Style := bsClear;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ChrisE,
28. Jun 2010
Kann ich bestätigen.
Außerdem scheint es nur der Texthintergrund zu sein. Der scheint schwarz zu werden.
Ich hab mit Delphi 2007 getestet.
Greez, Chris
Font.Color := clRed bei Listview1 und man sieht was ich meine
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by ChrisE,
28. Jun 2010
Kannst du mal das Beispielprojekt anhängen?
Und tritt es nur unter Windows 7 auf oder auch unter Vista?
Greez, Chris