Hi,
ich schreibe per Code ein Bitmap in ein ListView. Das klappt auch wunderbar. Nun hab ich aber eine Frage:
Wenn ich den Form Resize, dann ändert sich auch die ListView Größe. Das Bitmap wird immer mittig angezeigt. Nur wenn sich die Größe ändert, dann ändert sich auch die Mitte des ListViews. Wie kann ich nun den Zeichnungsvorgang wiederholen?
Das ganze geschieht wie folgt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
const ARect: TRect; var DefaultDraw: Boolean);
var
Bitmap: TBitmap;
x, y: integer;
begin
Bitmap:=TBitmap.Create;
Bitmap.LoadFromResourceName(HInstance,'ANUBIS');
x:=((ListView1.Height div 2)-(Bitmap.Height div 2));
y:=((ListView1.Width div 2)-(Bitmap.Width div 2));
ListView1.Canvas.Draw(x, y, Bitmap);
Bitmap.Free;
end; |
Nur wie kann ich obiges Ereignis beim OnResize nochmal auslösen?
Mfg
DelphiNoob
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt
