Konverting af programstump fra VisualBasic til delphi

Hvad er det helt nøjagtigt du vil kunne med din Richedit ?

Stoney

Jeg vil opnå samme effekt med RichEdit'en som i f.eks. mIRC hvis du kender
det, da det er sådan at tekst kommer ud fra neden istedet for den normale
foroven.

Dvs, ved resize af RE'en hænger sidste linie fast på den nederst visuelle linie.

Hvis du ikke kender mIRC, prøv at downloade det på www.mirc.com så kan du
se hva' jeg snakker om :)

Nu ved jeg ikke om du har kigget eller prøvet det lille vb-program,
men virker underligt hvis det virker, da man ved resize får disse
WM's smidt i hovedet...
  WM_WINDOWPOSCHANGING, WM_NCCALCSIZE, WM_NCPAINT, WM_ERASEBKGND,
  WM_WINDOWPOSCHANGED, WM_SIZE,WM_WINDOWPOSCHANGING

Og der bliver ikke testet/udført kode på nogle af dem?! :(

Prøv dette

procedure TForm1.Button1Click(Sender: TObject);


begin
richedit1.Lines.Add(edit1.Text);
  with RichEdit1 do
  begin

    SelStart := Length(Text);
    Perform(EM_SCROLLCARET, 0, 0);
        SetFocus;
  end;
end;

Stoney

Virker ikke, hvis der ikke er ændret på RichEdit's WndProc eller noget i den stil, fungere den jo som normalt.

Dvs den følger ikke med og align'er sidste linie i RichEdit med den sidste linie som vises visuelt.

Jeg viser lige helt præcis hva jeg vil.... :)

RichEdit'en:
+-------+
|a      |
|b      |
|c      |
|d      |
|e      |
|f      |
|g      |
|h      |
|i      |
+-------+


Normal resize fra oven stående:
+----------------+
|a              |
|b              |
|c              |
|d              |
|e              |
+----------------+


Hvor jeg vil have:
+----------------+
|e              |
|f              |
|g              |
|h              |
|i              |
+----------------+


Det virker også lidt med din metode med blot at flytte cursor'en,
men ved maximize for man med den metode:

+----------------+
|e              |
|f              |
|g              |
|h              |
|i              |
|                |
|                |
|                |
|                |
+----------------+

.. og ikke det som man startede med før resize'en som i f.eks. mIRC.

En anden vigtig ting er at metoden desværre heller ikke sørger for at
sidste linie sidder fast som i MEGET FAST, dvs ikke i ryk hvis højde på richedit'en
ikke tillade et lige antal linier.
Bunden skal sidde helt fast og det må så være i toppen af man kan risikere kun at se
en halvline eller noget i den stil.

prøv det her.

  with RichEdit1 do
  begin
      SelStart:=0;
      Perform(EM_SCROLLCARET, 0, 0);
      SelStart := Length(Text);
      Perform(EM_SCROLLCARET, 0, 0);
      SetFocus;
  end;

håber du kunne bruge det.