Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
13. Apr 2014
Also möchtest du quasi sowas
procedure TForm1.Paintbox1Paint( Sender : TObject );
begin
if Assigned( LV.Selected ) then
begin
// Aktuelles ListItem-Icon zeichnen
PaintBox1.Canvas.Draw( ... );
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
13. Apr 2014
Das sind die Delphi-Tags
Und mit dem Debugger hast du auch schon überprüft, ob er diese Zeilen ausführt?
Du hast Haltpunkte gesetzt (z.B. in der Zeile LVSelectItem(...);) und der Code hat dort nicht angehalten?
Und nochmal: Wozu?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sir Rufo,
13. Apr 2014
Könntest du Delphi-Code in Delphi-Tags einschließen? Danke.
Wozu brauchst du das und wenn das so nicht geht, warum rufst du das dann nicht selber auf?
LV.OnSelectItem( ... );