Scrolle 2 RichEdits med 1 scroolbar??

Du sætter to RichEdit bokse ind, sammen med en TScrollBar.
Så sætter du LargeChange på din scrollbar til f.eks. 10, og smallChange til 1.

Indsæt følgende i din load procedure:

  if RichEdit1.Lines.Count > RichEdit2.Lines.Count then
    ScrollBar1.Max := RichEdit1.Lines.Count
  else
    ScrollBar1.Max := RichEdit2.Lines.Count;

Derefter udfylder du OnScroll på scrollbar'en. Du kan her få en start, resten må du selv udfylde, ellers lærer du jo ikke noget

  if ScrollCode = scLineUp then
  begin
    RichEdit1.Perform(EM_LINESCROLL, 0, -1);
    RichEdit2.Perform(EM_LINESCROLL, 0, -1);
  end
  else
  if ScrollCode = scLineDown then
  begin
    RichEdit1.Perform(EM_LINESCROLL, 0, 1);
    RichEdit2.Perform(EM_LINESCROLL, 0, 1);
  end

> Hallo......!!??
> Er jeg glemt????????

Hvis der ikke er nogle der svare på dit indlæg, er det muligvis fordi de ikke kender svaret.

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 02/12-03 10:02:29 af Thomas Due]

richedit1.ScrollBy();

Ved hjælp af kordinaterne fra richedit
så laver du bare din ejen scrolbar

richedit1.ScrollBy();

Ved hjælp af kordinaterne fra richedit
så laver du bare din ejen scrolbar

Jeg forstår ikke helt hvordan du ville gøre det.. Kan du ikke give et eksempel??

/Mads

richedit1.ScrollBy();

Ved hjælp af kordinaterne fra richedit
så laver du bare din ejen scrolbar

Jeg forstår ikke helt hvordan du ville gøre det.. Kan du ikke give et eksempel??

/Mads

Hallo......!!??
Er jeg glemt????????

/Mads

Du sætter to RichEdit bokse ind, sammen med en TScrollBar.
Så sætter du LargeChange på din scrollbar til f.eks. 10, og smallChange til 1.

Indsæt følgende i din load procedure:

Kode 

  if RichEdit1.Lines.Count > RichEdit2.Lines.Count then
    ScrollBar1.Max := RichEdit1.Lines.Count
  else
    ScrollBar1.Max := RichEdit2.Lines.Count;

Derefter udfylder du OnScroll på scrollbar'en. Du kan her få en start, resten må du selv udfylde, ellers lærer du jo ikke noget

Kode 

  if ScrollCode = scLineUp then
  begin
    RichEdit1.Perform(EM_LINESCROLL, 0, -1);
    RichEdit2.Perform(EM_LINESCROLL, 0, -1);
  end
  else
  if ScrollCode = scLineDown then
  begin
    RichEdit1.Perform(EM_LINESCROLL, 0, 1);
    RichEdit2.Perform(EM_LINESCROLL, 0, 1);
  end

> Hallo......!!??
> Er jeg glemt????????

Hvis der ikke er nogle der svare på dit indlæg, er det muligvis fordi de ikke kender svaret.

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 02/12-03 10:02:29 af Thomas Due]

hehe.... Men tak for svaret....

/Mads