Forum: Sonstige Fragen zu Delphi
Delphi
by Sko,
23. Jul 2006
Du kannst ihn in's OnChange-Event des JvRichEdits einbauen, dann wird immer nach Smileys gesucht wenn sich der Inhalt des JvRichEdits ändert.
Forum: Sonstige Fragen zu Delphi
Delphi
by Sko,
23. Jul 2006
Weil bei jedem Aufruf der Prozedur nur ein Smiley ersetzt wird, und beim testen wurde manchmal mehrmals der gleiche Smiley in eine Nachricht eingefügt, das sah dumm aus wenn der 2 oder 3 erst später ersetzt wurde, daher hab ichs in eine Schleife gepackt. Bin halt Anfänger :lol:
Forum: Sonstige Fragen zu Delphi
Delphi
by Sko,
23. Jul 2006
Also, ich hab in meinem Programm eine Imagelist mit dem Namen "Smileys" in der die Bilder drin sind. Wenn eine Nachricht kommt rufe ich die Prozedur SucheSmiley auf, z. B. so: SucheSmiley(':)',0, Smileys);Diese Prozedur sucht den entsprechenden String (hier :)), löscht ihn und ruft die Prozedur Bildeinfuegen auf, die an diese Position dann den entsprechenden Smiley setzt(hier das Bild mit dem...
Forum: Sonstige Fragen zu Delphi
Delphi
by Sko,
22. Jul 2006
in meinem MiniChat mach ich das bisher so:
procedure TMainForm.BildEinfuegen(var Bilder: TImageList; const ImageIndex: integer);
var
bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bilder.GetBitmap(ImageIndex,Bitmap);
REEmpfangen.InsertGraphic(Bitmap,false); //REEmpfangen = JvRichEdit