Forum: Multimedia
Delphi
by CReber,
21. Dez 2003
irgendwie verstehen mich heute wenige ;) aber ich hab mich mal wieder nur zu blöd angestellt ;) habs hingekriegt ! trotzdem danke
Forum: Multimedia
Delphi
by CReber,
21. Dez 2003
also ich weiß das es funktioniert wenn das image eine bitmap ist und ich es mit dem Form1OnPaint Ergeignis probiere (Image1.Canvas.....) aber das is sehr unpraktikabel da sich dann meine Bilder von 1 MB auf 30 MB speicherplatz erhöhen ;) pls gimmi a lösung
Forum: Multimedia
Delphi
by CReber,
21. Dez 2003
so also ich habe mir grad was programmiert wo man eine karte hat und dort punkte einzeichnen kann!
procedure TForm4.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var YString,XString:string;
begin
Canvas.Pen.Color:=clRed;
Canvas.Pen.Width:=3;
Canvas.Ellipse(Image1.Left+X-5,Image1.Top+Y-5,Image1.Left+X+5,Image1.Top+Y+5);
...