Laufzeit- Zeichenkomponente gesucht

[ermler1992]

Hallo zusammen,

wie die überschrift schon sagt suche ich nach einer Komponente die ich wärend der Laufzeit bemalen kann. Benutzen möchte ich die Komponente um mein Chatprogramm zu ergänzen. Das ganze soll später ähnlich wie das Chatprogramm im Nintendo DS funktionieren.



danke schonmal im Voraus

[Adrian112]

Machs mit der PaintBox oder dem TImage (musst dann halt die Zeichenfunktionen selbst schreiben, gibt dazu aber glaube ich einen Eintrag in Der Code Libary / bei den Schweizern)
Adrian

[Fussball-Robby]

Das Zeichnen selbst ist aber ganz einfach, das sind 2 Zeilen (Beispiel mit einem Image):

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TImage(Sender).Canvas.MoveTo(X, Y);
    //Beim Klicken den "Stift" zur aktuellen Positioen bewegen
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    //Wenn linke Maustaste gedrückt..
    TImage(Sender).Canvas.LineTo(X, Y);
      //..eine Linie zur neuen Position zeichnen
end;

du müsstet nur gegebenenfalls noch Farbe/Dicke verändern.

Mfg

[ermler1992]

Vielen Dank, werde das gleich morgen ausprobieren

[christian_r]

Zitat von Adrian112:

Machs mit der PaintBox oder dem TImage

Die TImage-Kompon. bietet Dir die Möglichkeit, ein Bild einer externen Datei zu laden oder zu speichern. Das bietet wiederum Möglichkeiten, Dein Chat-Programm zu bemalen und alle Teilnehmer können anschließend das Resultat speichern. Oder einer schreibt: "Eyh Leute, ich hab hier ein Bild, lasst und das mal weiterbearbeiten."