E Savkicu esto sam uspeo da sklepam na Dogadjju Onscroll stavio sam ovaj kod ali imam problem kod prevlacenja scroll valjka vidi kod pa ce ti biti jasno o cemu pricam.
Code:
begin
if ScrollCode=scLineDown then
begin
SendMessage(Memo1.Handle, EM_LINESCROLL, 0, 1);
SendMessage(Memo2.Handle, EM_LINESCROLL, 0, 1);
end;
if ScrollCode=scLineup then
begin
SendMessage(Memo1.Handle, EM_LINESCROLL, 0, -1);
SendMessage(Memo2.Handle, EM_LINESCROLL, 0, -1);
end;
if ScrollCode=scTrack then
begin
if OVDE NEZNAM KOJI USLOV DA STAVIM DA BI MOGAO DA ODREDIM DA LI DA IDE GORE ILI DOLE KAD VUCES VALJAK then
begin
SendMessage(Memo1.Handle, EM_LINESCROLL, 0, 1);
SendMessage(Memo2.Handle, EM_LINESCROLL, 0, 1);
end
else
begin
SendMessage(Memo1.Handle, EM_LINESCROLL, 0, -1);
SendMessage(Memo2.Handle, EM_LINESCROLL, 0, -1);
end
end;
end;