Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
20. Nov 2007
In der Paint-Methode der Komponente. Schau in die Delphi-Quellcodes wenn du es ganz genau wissen willst :wink:
Um das zu lösen, musst du dir natürlich irgendwie merken das du eine Linie zeichnen willst. Ist die Frage:
1) Sollen, wenn man etwas eintippt, man "Gleich" drück, man noch mehr eintippt und wieder "Gleich" drückt, dann zwei Linien dort sein?
2) Oder immer nur an der Stelle des...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
19. Nov 2007
:shock: Ich bin zwar blöd, aber so blöd nun auch net ...
Im Anhang mal das Projekt und ein Bild wie es bei mir aussieht ... wenn das bei D2006 nicht geht, muss mein D2006 wohl anders sein :wall:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
19. Nov 2007
Mhh ... tut mir leid. Vlt funktioniert es bei D2007 ja nicht. :gruebel:
Evtl. testet ein netter Forumsnutzer das noch mal für uns?! ^^
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
19. Nov 2007
Gut zu wissen. Ich habe "nur" D2006 ...
Geht denn das Zeichnen der Linie, wenn du mal ein komplett neues Projekt nur zum testen anfängt?
Wenn ja, poste doch mal etwas von deinem Code, vlt. wird dort ja ein Fehler ersichtlich :wink:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
19. Nov 2007
Das habe ich schon zur Kenntnis genommen. Aber dies kann eigentlich nicht sein, da die OnDraw Ereignisse alle beim Zeichnen kommen (logisch) und nicht erst wenn die Maus über der Zeile ist ...
Der Fehler muss wohl bei dir oder deinem Delphi liegen :stupid: Welche Version nutzt du eigentlich?
Du wirst ja sicherlich etwas mehr Code haben als diesen Schnipsel, vlt. "zerstörst" du damit den...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
16. Nov 2007
Ich habe Mittagspause und nix anderes zu tun wie es schein :mrgreen:
ListView.ViewStyle := vsReport;
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
var
R: TRect;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
16. Nov 2007
Die Draw-Ereignisse werden bei jeder Zeichenoperation aufgerufen. Der Status ist dazu da, um zu wissen wie du ggf. Zeichnen musst - bei deiner Linie - die unabhängig vom Status ist - kannst du den Status einfach ignorieren ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
15. Nov 2007
Das hört sich nun aber sehr nach TListView an ^^ ... hier mal ein Denkanstoß:
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
var
R: TRect;
begin
With (Sender as TListView).Canvas do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
14. Nov 2007
Das weiß ich ... aber du solltest ja etwas selber machen :-D
Im OnCustomDrawItem:
(Sender as TListView).Canvas.Font.Style := ;
Wenn du es wirklich nur zur Anzeige verwenden willst und ein Benutzer ggf. nicht einmal etwas markieren kann, wäre es bei deinen Anforderungen vlt. einfacher eine eigene Komponente von TGraphicControl abzuleiten und selbst zu zeichnen ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Deep-Sea,
14. Nov 2007
Vlt. hilft dir das: http://www.swissdelphicenter.ch/de/showcode.php?id=818
Drucken wird da schon etwas komplizierter ...