DGL • Thema anzeigen - Ideen/Diskussion zur Erstellung eines Memos/RTF Komponente

Ideen/Diskussion zur Erstellung eines Memos/RTF Komponente

Moderator: DGL-Team

Seite 2 von 2

[ 25 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Pluto

Betreff des Beitrags:

Verfasst: Sa Okt 25, 2008 17:33

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

Damit der Thread hier nicht zum erliegen kommt, habe ich ein Text Dokument in mein Wiki eingefügt:
http://www.pluto.lazarusforum.de/dokuwi ... e_projekte
was haltet ihr davon ? Ich finde die Idee eigentlich nicht schlecht und bin auch seit einigen Tagen dabei den Text umzusetzen.
Ich hoffe ich habe alle relevanten Ideen hingeschrieben.
Evlt. kann es auch sein, dass ich das Text Dokument noch Verändern werden. Es ist erst sowas wie eine art Vorlage/Entwurf

Meinungen, Verbesserung Vorschläge, Kritik und der gleichen sind wie immer gerne Willkommen.

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: Mo Okt 27, 2008 10:00

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Ich und I0n0s haben in X-Dream dies durch Commandozeichen gelöst.
Word und World of Warcraft machen es genauso.
Man legt ein Steuerzeichen fest, z.B. #BezeichnerNummer(#col=$00ff00) und diese setzen dann die Statemachine.
Also könnte man ein Text z.B. so realisieren.
"Hallo #style=bold#col=$0000FFWorld!"
Worin liegt der Vorteil ?
Ganz einfach, man kann es super parsen und aus dem String entnehmen, wenn man dann bestimmte Befehle nicht kennt einfach ignorieren und man kann die ganz normalen TStringList oder TStrings Komponente benutzen.
Die Statemachine ist nicht mehr als ein record mit allen gewollten Styles und der Parser zerlegt das Rendern dann in mehrere Schritte.
Also setze default Styles, Render Text bis nächsten Steuerzeichen,
parse Steuerzeichen und setzen,
text bis nächsten Steuerzeichen Rendern oder Stringende.
Hier ein Bild.

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: Mo Okt 27, 2008 16:33

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

Die Idee ist auch nicht schlecht. Meinen wir mit Steuerzeichen da gleiche ?
ich meine jetzt keine HTML Ähnliche Syntax. Sondern ganz einfach das ich nicht ständig parsen muss. Das möchte ich ungerne tun.
Sieht der User die Steuerzeichen ? Könntest du das Prinzip noch etwas weiter Erklären ? Danke....

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: Mo Okt 27, 2008 20:59

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

meinst du sowas wie es hier drin steht:
http://de.wikipedia.org/wiki/Steuerzeichen
Keine schlechte Idee...

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: Di Okt 28, 2008 10:38

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Ja solche Steuerzeichen meine ich, man kann für bold, kursiv,normal, normale steuerzeichen ohne parameter nehmen und für dinge wie Farbe,Schriftart und größe braucht man dann steuerzeichen mit parameter.
Wie man diese aufbaut ist ja völlig schnuppe, es sollte nur einfach parsbar sein.
Ideal sind Anfang und Endzeichen fest zu legen, damit kannst du auch falsche steuerzeichen aus dem Text entfernen.
example:
{blupp}
[bla]
(blupper)
${flubber}
Dann musst du allerdings beachten, dass diese reihenfolge im Text ja auch auftreten kann und um diese darstellen zu können, brauchst du noch ein Steuerzeichen, welches nur das Steuerzeichen darstellt.
example:
${bla}
Text="${bla}${PrintCtrlOpen}Kontrollzeichen}"
danach ist es
Text=="${Kontrollzeichen}"

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: Di Okt 28, 2008 17:17

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

Aber wie füge ich solche Zeichen am besten in meinen String ein ?
Und werden sie mit ausgelesen, wenn ich mit Length die Länge eines Strings ermittele ?

z.b. so:
'test' + #1010 + 'test'"
das währe doch jetzt ein Steuerzeichen, heißt das ich müsste mir jetzt eine Funktion schreiben um meine Anweisungen in Steuerzeichen umzuwandeln ?
hast du da evlt. ein kleines Beispiel für mich ? Am besten Steuerzeichen mit Parameter und natürlich welche ohne.
dann könnte ich dazu mal ein kleines Test Projekt aufmachen. Im Moment kann ich mir noch nicht wirklich so vorstellen wie man sie am besten verwenden könnte/sollte bzw. Anwenden.

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: Di Okt 28, 2008 19:58

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Du brauchst erstmal einen Parser, der die Steuerzeichen erkennt.
Sehr einfachen Parser Code kannst du durch ein Steuerzeichen mit Anfang und Ende Block schreiben.
${...} ist nun mal unser Steuerzeichen.
Nun brauchst du eine Funktion, in der du dein Text rein gibst, er geparst wird, ein steuerzeichen setz und dann den reslichen text wieder zurück gibt.

Code:

procedure RenderSpecialText(X:integer;Y:integer;TextIn:string)
var
  tmp:string;
  cmdpos,tmpX:integer;
begin
  if (TextIn='') then exit;
  cmdpos=-1;
  //suche erstes ${ und setze cmdpos auf die position
  //kopiere alles von TextIn bis zu cmdpos in tmp
  tmpX=DrawText(tmp).Width;//rückgabe ist ein Record mit Höhe und Breite des gezeichneten Textes und arbeitet mit einer StateMachine die in ExecCmd über FontStateMachine angesprochen wird
  //suche erstes } Zeichen nach cmdpos
  //kopiere zeichenkette von cmdpos+2 bis }-1 in tmp(alles zwischen { und } ohne { und })
  tmpX=ExecCmd(tmp).Width;//führt das Kommando aus
  //kopiere alles ab } in tmp
  RenderSpecialText(X+tmpX,Y,tmp);//rekursiv weiter arbeiten
end;
 
function ExecCmd(var TextIn:string):TRect;
var
  tmp:string;
  tmpX,pos:integer;
begin
  if (TextIn='') then exit;
  //suche = Zeichen oder Zeilenende und setze pos
  //kopiere bis pos alles in tmp
  if (pos=length(TextIn)-1)
  begin
    //Kommando
    //Ideal wäre eine Hashfunktion, die den string in eine Nummer umwandelt
    case Nummer of
      CMD_BOLD:if (uppercase(tmp)='BOLD') then//sicher gehen, das es wirklich das Bold kommando ist, da verschiedene strings auf den gleichen Hashwert fallen können(siehe kollision)
                        begin
                          //Flag für Bold setzen
                        end;
      CMD_CMDSYMBOLBEGIN:if (uppercase(tmp)='CMDSYMBEGIN') then
                                                       begin
                                                         tmpX=DrawText('${').Width;
                                                         result.Width=tmpX;
                                                       end;
    end;
  end
  else
  begin
    //Parameter aufgrund des = im Textes
    //wieder ne Hashfunktion wie bei Kommando
    case Number of
      CMD_SETCOLOR:if (uppercase(tmp)='COLOR')
                                begin
                                  //kopiere alles ab = bis ende in tmp
                                  //konvertiere string in TColor oder irgendwas vergleichbares
                                  //wenn das nicht möglich ist, dann abbrechen
                                  FontStateMachine.Color:=tmpColor;
                                end;
  end;
end;

Dieser ${bold}Text${normal} wurde mit dem ${CmdSymBegin}bold${CmdSymEnd}, ${CmdSymBegin}normal${CmdSymEnd},${CmdSymBegin}cmdsymbegin${CmdSymEnd} und ${CmdSymBegin}cmdsymend${CmdSymEnd} Befehlen manipuliert.

Daraus müsste dann "Dieser Text wurde mit dem ${bold}, ${normal},${cmdsymbegin} und ${cmdsymend} Befehlen manipuliert."

Viel mehr will ich dazu dann auch ned mehr schreiben.

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Zuletzt geändert von TAK2004 am Do Okt 30, 2008 13:03, insgesamt 1-mal geändert.

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: Mi Okt 29, 2008 15:09

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

Danke für dein Beispiel. Sehe ich das jetzt richtig:
Das du in diesen Fall einfach nur ein String parst ? Mir ist aber bisher noch unklar wie ich Steuerzeichen hinzufügen.
Ich werde diese Steuerzeichen jetzt so, dass sie vom User nicht gesehen werden und ich als Programmierer diese auch nicht ausfiltern muss. sondern nur FIltern muss damit ich die Richtigen Eigenschaften setzten kann.

edit01

Code:

 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  x:Integer;
begin
  edit1.text:='Dies ist ein ' + #0'Hallo' + 'test';
 
  for x:=1 to Length(edit1.Text) do begin
    if edit1.text[x] = '#0' then edit2.Text:='OK';
  end;
end;
 

Damit kann ich anscheind einfache Steuerzeichen einfügen Aber wie lese ich sie wieder aus ? mit dem Beispiel wo 'OK' steht geht es aufjedenfall nicht.
Ich habe auch gesehen, das diese Steuerzeichen wirklich nicht angezeigt werden. Das ist Praktisch.

Beim Einlesen einer RTF Datei Beispielweise könnten, jetzt doch einfach die Steuerzeichen gesetzt werden. Allerdings beim Speichern müssen sie ja mit gespeichert werden in der Datei. Passiert das auch "Unsichtbar" vom Normalen User ? Sollte das dann sowas werden wie ein eigenes Dateiformat ? oder werden die Steuerzeichen einfach mit abgespeichert ?
Sonst finde ich die Idee nicht schlecht. Sobald ich das mit dem Auslesen hinbekommen habe, werde ich mal ein Prototypen bauen:

PS:
Eure GUI, sieht nicht schlecht aus. Gerade die Transparent.
Könntest du dein Code bitte in den Code-Tag setzten ?

Edit02
weitere Test ergaben das es doch nicht so geht, das Word wird abgeschnitten wo das Steuerzeichen eingefügt wird.

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: Mo Nov 03, 2008 17:26

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

ich habe im Moment ein kleines Scroll Problem. Ich habe eine ListBox(aber das gleiche Problem werde ich auch bei meinem nächsten Texteditor Komponente habe).
Und zwar geht es wieder darum, wie scrolle ich per Tastertur.
Ich habe mir folgendes Überlegt:
a) Ich zähle alle Zeilen höhen zusammen
b) solange bis der gewünschte Index erreicht wurde
c) dann setzte ich ViewRect.Top
allerdings klappt das irgendwie nicht. hat jemand eine Idee warum ?
Alle Zeilen können unterschiedlich hoch sein und auch mehrzeilig(später).

Code:

 
procedure TPLLineList.SetViewRecTop(const aItemIndex: Integer);
var
  i,h,h1,h2,y:Integer;
begin
  ViewRect.Top:=0;
  h:=0;y:=0;  h2:=0;
 
  for i:=0 to GetCount-1 do begin
    if i = aItemIndex then begin
      ViewRect.Top:=h2;
      writeln(h2,'',buffer.Height);
      break;
    end
    else begin
      h1:=LineList[i].HighHeight;
      if h+h1 <Buffer.Height then
        h:=h+ViewRect.Top+h1
      else begin
        h2:=h2+h;
//        ViewRect.Bottom:=ViewRect.Top+buffer.Height;
        h:=0;
      end;
    end;
  end; // for i
end; // TPLLineList.SetViewRecTop
 

meine Zeichen Methoden sehen so aus:
Diese Procedure Zeichnet alles und ruft PainteLine auf

Code:

 
procedure TPLLineList.Paint;
var
  i,py,ph,ty:Integer;
  c:TCanvas;
begin
  c:=Buffer.Canvas;
  py:=top;
  with Buffer.Canvas, DefaultTextStyle do begin
    ToCanvas(c);
   // Brush.Color:=clWhite;
    Brush.Style:=bsSolid;
    FillRect(2,0,buffer.Width, buffer.Height);
    ty:=py;
    //BrushStyle:=bsClear;
    FirstLine:=-1; LastLine:=-1;
    for i:=0 to fLineList.Count-1 do begin
      if i = ItemIndex then begin
        SelectItem.ToCanvas(c);
        LineList[i].h:=c.TextHeight('A');
      end
      else
        LineList[i].h:=LineList[i].HighHeight;
 
      ph:=LineList[i].h;
      if (py >=ViewRect.Top) and (py <=ViewRect.Top+ViewRect.Bottom+spaceTop) then begin
        if FirstLine = -1 then FirstLine:=i;
        LineList[i].y:=ty;
        PaintLine(i,True,True);
        ty:=ty+LineList[i].h+spaceTop;
      end;
      if (py >=ViewRect.top+ViewRect.Bottom) and (LastLine= -1) then begin
        LastLine:=i-1;
     //   writelN(LastLine);
      end;
      py:=py+LineList[i].h+spaceTop;
    end;
    if LastLine = -1 then LastLine:=fLineList.Count-1;
    BitBlt(Canvas.Handle,
           0,
           0,
           Width,
           Height,
           Buffer.Canvas.Handle,
           0,
           0,
           SRCCOPY
           );
//    Canvas.Draw(1,1,Buffer);
  end; // wiht
end; // TPLLineList.Paint
 

Code:

 
procedure TPLLineList.PaintLine(const aLineIndex: Integer;const NoNewDraw:Boolean;
                                const NoDrawCaret: Boolean; const NoSelectedItem:Boolean = False);
var
  x,px,ty,pw,ph,py,w:Integer;
  c:TCanvas;
  LineItem:TPLLineItems;
  r:TRect;
  s, aSel:Boolean;
begin
  c:=Buffer.Canvas;
  px:=left+5; ty:=top;
  with Buffer.Canvas do begin
 
   // s:=((ItemIndex <> aLineIndex) and (not NoSelectedItem)) or (NoSelectedItem);
//    if not s then
      s:=(ItemIndex <> aLineIndex) and (HotItemIndex <> aLineIndex) and (not NoSelectedItem) or (NoSelectedItem);
 
    aSel:=False;
    //writeln('TEST:',ItemIndex,'',aLineIndex,'',NoSelectedItem,'',random(100));
    if not NoSelectedItem then begin
      if (not aSel) and (ItemIndex = aLineIndex) then begin
        aSel:=True;
        SelectItem.ToCanvas(c);
        fHotItemIndex:=-1;
      end
      else begin
        if (not aSel) and (ItemIndex <> HotItemIndex) and (HotItemIndex = aLineIndex) then begin
          aSel:=True;
          HotSelectItem.ToCanvas(c);
        end;
      end;
    end;
 
    if (not aSel) then begin
      DefaultTextStyle.ToCanvas(c);
    end;
 
    ph:=LineList[aLineIndex].h;
    py:=LineList[aLineIndex].y;
    ty:=py;
    FillRect(0,py,buffer.Width, py+ph+spaceTop);
 
    for x:=0 to LineList[aLineIndex].Count-1 do begin
      LineItem:=LineList[aLineIndex].LineItem[x];
      if s then
        LineItem.ToCanvas(c);
      LineItem.w:=c.TextWidth(LineItem.symbol);
      pw:=LineItem.w;
      r.Left:=px;
//      if abs(ph-c.TextHeight(upperCase(LineItem.symbol))) > 10 then
  //      r.Top:=(py+ph)-c.TextHeight(upperCase(LineItem.symbol))
    //  else
        r.Top:=py;
      r.Right:=r.Left+pw+pw;
      r.Bottom:=r.Top+ph+spaceTop;
      if s then Buffer.Canvas.FillRect(r);
 
      SetStyleLine(aLineIndex, r);
      Buffer.Canvas.TextOut(r.Left,r.Top,LineItem.symbol );
      px:=px+pw;
    end; // for x
 
    ph:=LineList[aLineIndex].h+spaceTop;
    py:=LineList[aLineIndex].y;
    px:=left; ty:=top;
 
    if not NoDrawCaret then begin
      BitBlt(Canvas.Handle,0,py,buffer.Width,py+ph,
             buffer.Canvas.Handle,0,py,SRCCOPY
      );
    end;
  end; // with
end; // TPLLineList.PaintLine
 
 

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

Pluto

Betreff des Beitrags:

Verfasst: So Nov 09, 2008 21:59

DGL Member

Registriert: So Mai 11, 2003 10:36
Beiträge: 285
Wohnort: Oldenburg
Programmiersprache: Object Pascal

Ich glaube ich verstehe noch nicht so wie du es meinst.aut wikipedia sollen diese Steuerzeichen nicht da stellbar sein/werden.
Ich muss beim Zeichen alle Steuerzeichen löschen. Aber was ist wenn ich die Länge haben möchte ? oder was einfügen möchte in diesen String ?
oder wenn ich von eine bestimmten stelle bis zu einer anderen bestimmten ALLES kopieren möchte ?

Ich dachte jetzt irgendwie das Steuerzeichen NIE gezeichnet werden. Unter Linux werden sie leider da gestellt. Als unbekanntes Symbol.
Warum weiß ich nicht. Ich weiß auch nicht ob das jetzt richtig ist.

Also, wenn ich dich jetzt richtig verstanden habe, meinst du sowas wie den BB Code hier in den Foren ?
ich habe z.b. folgenden Text:
<fg=clRed> hallo wie</fg> geht es <bg=clLime>dir</bg> so ?
Jetzt würde hallo wie in Rot angezeigt werden und "geht es" in einer Standard Schrift und dir in Grün und so wieder in der Standard schrift Fabre.
Um das richtig da zu stellen, muss ich den Text Parsen und beim zeichnen die "Steuerzeichen" löschen.

Genau das möchte ich eigentlich nicht, weil ich denke, das das bei größeren Texten einfach zu langsam währe und auch von der Handhabung zu Komplex währe. Weil im Moment kann ich mir noch nicht vorstellen, wie der "User" auf den Text einfach zu greifen kann, ohne diese Steuerzeichen zu "sehen".

_________________
MFG Michael Springwald, 
Bitte nur Links in Deutsch, nutze überwiegend Lazarus

Nach oben

Seite 2 von 2

[ 25 Beiträge ]

Gehe zu Seite Vorherige 1, 2

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 11 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.