void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender,
TScrollCode ScrollCode, int &ScrollPos)
{
ScrollBar1->Max=RichEdit1->Lines->Count/2;
RichEdit1->SelStart = RichEdit1->Perform(EM_LINEINDEX, ScrollBar1->Position, -0) + 0;
RichEdit1->Perform(EM_SCROLLCARET,0,0);
RichEdit1->Perform(EM_LINESCROLL, 0,ScrollBar1->Position);
RichEdit1->SetFocus();
RichEdit2->SelStart = RichEdit2->Perform(EM_LINEINDEX, ScrollBar1->Position, -0) + 0;
RichEdit2->Perform(EM_SCROLLCARET, 0,0);
RichEdit2->Perform(EM_LINESCROLL, 0,ScrollBar1->Position);
RichEdit3->SelStart = RichEdit3->Perform(EM_LINEINDEX, ScrollBar1->Position, -0) + 0;
RichEdit3->Perform(EM_SCROLLCARET, 0,0);
RichEdit3->Perform(EM_LINESCROLL, 0,ScrollBar1->Position);
RichEdit4->SelStart = RichEdit4->Perform(EM_LINEINDEX, ScrollBar1->Position, -0) + 0;
RichEdit4->Perform(EM_SCROLLCARET, 0,0);
RichEdit4->Perform(EM_LINESCROLL, 0,ScrollBar1->Position);
RichEdit5->SelStart = RichEdit5->Perform(EM_LINEINDEX, ScrollBar1->Position, -0) + 0;
RichEdit5->Perform(EM_SCROLLCARET, 0,0);
RichEdit5->Perform(EM_LINESCROLL, 0,ScrollBar1->Position);
}
//---------------------------------------------------------------------------
Partager