DGL • Thema anzeigen - SelAttributes funktionieren nicht richtig

SelAttributes funktionieren nicht richtig

Moderator: DGL-Team

Seite 1 von 1

[ 12 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

LH_Freak

Betreff des Beitrags: SelAttributes funktionieren nicht richtig

Verfasst: So Mär 20, 2005 21:26

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

Also, ich programmiere gerade einen Chat. Das mit den Smilies funktioniert jetzt, nur wenn ich einen Smiley eingefügt habe,
schreibt er den Benutzernamen nicht mehr fett hin (wie im Anhang zu sehen ist

)
Weiß jemand warum das so sein könnte????

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Zuletzt geändert von LH_Freak am So Mär 20, 2005 21:46, insgesamt 1-mal geändert.

Nach oben

luketheduke

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 21:28

DGL Member

Registriert: Fr Mai 14, 2004 18:56
Beiträge: 804
Wohnort: GER/OBB/TÖL-WOR/Greiling

so ein mist, du machst auch sowas....

dann kann ich wohl einpacken.

na gut...
wie fügst du die smileys denn ein?

Ich find gar keine Methode / Eigenschaft die sowas unterstützt....

"malst" du den einfach als TImage oder was auch immer obendrüber?

oder wie geht das?

_________________

"User Error. Replace User and hit Continue."

Zuletzt geändert von luketheduke am So Mär 20, 2005 21:33, insgesamt 1-mal geändert.

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 21:32

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

das war ein harter Kampf (:lol:),

also du nimmt die JvxRichEdit Komponente von den JEDI Komps.

Und dann nimmst du diese nette Prozedur:

Code:

procedure TForm1.ReplaceSmiley(SmileyCode: String;SmileyF: String);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
  BMP: TBitmap;
begin
BMP := TBitmap.Create;
      BMP.LoadFromFile(SmileyF);
      ClipBoard.Assign(BMP);
  with RichEdit1 do
  begin
    { Suche hinter aktueller Markierung beginnen (falls vorhanden), }
    { andernfalls am Textanfang starten. }
    if SelLength <> 0 then
 
      StartPos := SelStart + SelLength
    else
 
      StartPos := 0;
 
    { ToEnd ist die Länge von StartPos bis zum Textende im RTF-Eingabefeld }
 
    ToEnd := Length(Text) - StartPos;
 
    FoundAt := FindText(SmileyCode, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(SmileyCode);
 
      RichEdit1.PasteFromClipboard;
 
      ClipBoard.Clear;
    end;
  end;
end;

Mit der kannst du dann die Smilies einfügen.

Beispiel:

Code:

ReplaceSmiley(':)','C:\smile.bmp');

Hoffe das hilft dir, war aber leider keine Antwort auf mein Frage

P.S.: Kannst du auch mal nen Screenshot posten?????

Nach oben

luketheduke

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 21:38

DGL Member

Registriert: Fr Mai 14, 2004 18:56
Beiträge: 804
Wohnort: GER/OBB/TÖL-WOR/Greiling

!! auf die idee wär ich wohl nicht gekommen....

aber zu deiner frage: wenn du noch eins mehr schreibst, gehts dann wieder?
dann würd ich dir n paar leerzeichen vor und nach deinem smiley empfehlen.

screenshot.... :oops:

meine code-und-tag-auseinander-hack-funktion funzt leider noch nicht so richtig. eigentlich sollte das ganze schön ordentlich formatiert in dem richedit stehen, und das memo im vordergrund sollte die einzelnen bestandteile anzeigen. :oops:

_________________

"User Error. Replace User and hit Continue."

Zuletzt geändert von luketheduke am So Mär 20, 2005 21:44, insgesamt 1-mal geändert.

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 21:41

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

wie????? da bin ich jetzt nicht mitgekommen...

EDIT:
Nein, Leerzeichen vor dem Smiley nützen auch nichts. Wenn ich danach was schreibe, bleibt der Benutzername ganz normal.
Danach passt es wieder!

P.S.: Passt doch.
1. Mein Chat geht über IRC was ich viel einfacher finde.
2. Hab ich für des Aussehen eigene Komponenten geschrieben, was ewig gedauert hat.
3. So gut ist meiner auch wieder nicht

Ich habe den Screenshot nochmal neu hochgeladen. Kann des sein, das ich vorher den SelStart verschieben muss????

Nach oben

luketheduke

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 21:52

DGL Member

Registriert: Fr Mai 14, 2004 18:56
Beiträge: 804
Wohnort: GER/OBB/TÖL-WOR/Greiling

leerzeichen nach dem smiley sollten besser helfen.

wenn es danach wieder normal wird.

EDIT: du kannst selstart ja gerne präventiv mal ans ende setzen.

EDIT2: hast du icq? bei der post-frequenz im moment ist das vielleicht besser....

EDIT3:
vielleicht kannst du meine explode funktion ja mal anschauen:

Code:

procedure explode(s:string;delim:char;var res:TStringList);overload;
 
function countchars(s:string;c:char):integer;
var i:integer;
begin
result:=0;
 for i:= 1 to length(s) do
  if s[i]=c then result:=result+1;
end;
 
var i:integer;
    index,count: integer;
    aindex:integer;
begin
res.Clear;
index:=1;
aindex:=0;
count:=0;
for i:=1 to length(s) do
 begin
  if (s[i] = delim) then
   begin
    res.Add( copy(s,index,count) );
 
    index:=index+2;
    aindex:=aindex+1;
    count:=0;
   end
   else begin
     if i=length(s) then res.add(copy(s,index,count+3))
     else count:=count+1;
    end;
 end;
end;

sie hat schon mal funktioniert!
und zwar gut...

edit4:
es ist verrückt... die identische funktion liefert mir hier wunderbar resultate:

Bild

_________________

"User Error. Replace User and hit Continue."

Zuletzt geändert von luketheduke am So Mär 20, 2005 22:00, insgesamt 1-mal geändert.

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 21:57

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

hatte ich mal, is aber schnell installiert, mom also

P.S.: hast du Skype??? Finde ich nämlich besser als ICQ

Nach oben

luketheduke

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 22:01

DGL Member

Registriert: Fr Mai 14, 2004 18:56
Beiträge: 804
Wohnort: GER/OBB/TÖL-WOR/Greiling

ne aber teamspeak... und schau noch mal meinen vorigen post an... ich krieg noch n anfall hier...

EDIT: windows messenger hab ich auch noch... lukas.erlacher@freenet.de

_________________

"User Error. Replace User and hit Continue."

Nach oben

Tomok

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 23:16

DGL Member

Registriert: Mi Jul 16, 2003 15:20
Beiträge: 198

Nur so zur Info :
Ist dir klar, dass dein aktueller Code den Inhalt der Zwischenablage überschreibt ??
(Diese Zeile :

Code:

 ClipBoard.Assign(BMP);

)
Also ich fänd es echt ärgerlich, wenn ich gerade am Programmieren bin nen großen Codeabschnitt ausschneide und dann einen Smiley statt des Abschnittes einfüge, weil mir jemand ne Nachricht mit nem Smiley geschickt hat.

_________________
Bevor du definierst, was etwas ist, versichere dich seiner Existenz.

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 23:21

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

Nein, der löscht ihn ja wieder raus, aber weg ist der Text trotzdem. Aber ich habe keine andere Möglichkeit gefunden

Nach oben

luketheduke

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 23:23

DGL Member

Registriert: Fr Mai 14, 2004 18:56
Beiträge: 804
Wohnort: GER/OBB/TÖL-WOR/Greiling

das is ja wohl kein thema:

zwischenablage sichern,
manipulieren,
sicherung zurückschreiben.

oder??

_________________

"User Error. Replace User and hit Continue."

Nach oben

LH_Freak

Betreff des Beitrags:

Verfasst: So Mär 20, 2005 23:31

DGL Member

Registriert: So Dez 19, 2004 00:27
Beiträge: 454
Wohnort: Nürnberg

wenn jemand ne andere Lösung hat, immer her damit

Nach oben

Seite 1 von 1

[ 12 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.