[es] - Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

BinaryRuler

Član broj: 73518
Poruke: 189
*.bisinter.net.

+3 Profil

Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{24.06.2006. u 15:02 - pre 217 meseci}

Kako mogu na jednu formu da postavim jedan scrollbar za scrollovanje de memo kontrole? Pokusavao sam na sve moguce nacine ali nisam imao uspeha.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{24.06.2006. u 19:13 - pre 217 meseci}

> Kako mogu na jednu formu da postavim jedan scrollbar za scrollovanje de memo kontrole? Pokusavao sam na sve moguce nacine ali nisam imao uspeha.

Možeš poslati tim kontrolama EM_LINESCROLL poruku, npr. SendMessage(Memo1.Handle, EM_LINESCROLL, 0, 1);

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

BinaryRuler

Član broj: 73518
Poruke: 189
*.bisinter.net.

+3 Profil

Re: Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{24.06.2006. u 20:52 - pre 217 meseci}

Hvala savkicu, ali pomoglo bi mi ako bi mi dao malo detaljniji promer.
Da li tu poriku saljem sa kontrole scrollbar-a sa dogadjaja Onscroll ili nekako drugacije?

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{24.06.2006. u 23:07 - pre 217 meseci}

> Da li tu poriku saljem sa kontrole scrollbar-a sa dogadjaja Onscroll ili nekako drugacije?

Šalješ kada treba da skroluješ sadržaj memo kontrola, to može biti OnScroll događaj TScrollBoxa ili nešto drugo to već zavisi od programa. A za primer započni novi projekat, stavi jedan memo i dugme na formu, napuni memo sa 50 linija teksta a u OnClick događaj dugmeta ubaci onaj kod iz prve poruke.

Odgovor na temu

BinaryRuler

Član broj: 73518
Poruke: 189
*.bisinter.net.

+3 Profil

Re: Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{25.06.2006. u 18:36 - pre 217 meseci}

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;

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{25.06.2006. u 20:45 - pre 217 meseci}

Možeš uvesti jednu promenljivu koja će čuvati poslednju poziciju scrollboxa, u OnScroll eventu proveriš kakav je odnos te prethodne vrednosti i nove vrednosti i na osnovu toga odrediš pravac ili pravac i pomeraj.

Odgovor na temu

BinaryRuler

Član broj: 73518
Poruke: 189
*.bisinter.net.

+3 Profil

Re: Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{25.06.2006. u 20:52 - pre 217 meseci}

Probao sam to ali mi nije islo jer cini mi se da na dogadjaju onscroll in stalno preuzima novu vrednost pa je tako uporedjuje samu sa sobom. A na drugom dogadjaju nemam ScrollPos varijablu.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{26.06.2006. u 19:23 - pre 217 meseci}

> Probao sam to ali mi nije islo jer cini mi se da na dogadjaju onscroll in stalno preuzima novu vrednost pa je tako uporedjuje samu sa sobom.

Probaj na primer ovako:

Code:

var
  LastScrollPos: Integer;

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;  var ScrollPos: Integer);
begin
  SendMessage(Memo1.Handle, EM_LINESCROLL, 0, ScrollPos - LastScrollPos);
  LastScrollPos := ScrollPos;
end;

Odgovor na temu

BinaryRuler

Član broj: 73518
Poruke: 189
*.bisinter.net.

+3 Profil

Re: Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{26.06.2006. u 22:11 - pre 217 meseci}

E, mnogo ti hvala za pomoc oko scroolbar-a. Uspeo sam da uradim sve sto sam hteo.

Odgovor na temu

BinaryRuler

Član broj: 73518
Poruke: 189
*.bisinter.net.

+3 Profil

Re: Kako da uz pomoc jednog scrollbar-a scroll-ujem dve memo kontrole???

^{26.06.2006. u 22:18 - pre 217 meseci}

Usput da li mozda znas dali delphi 2005 ima bug u kompajleru, jer mi se desava da mi puca program u koji sam stavio pozivanje dijaloga savetextfiledialog i opentextfile dijalog. Prijavi mi nesto tipa ne moze da procita sa te i te lokacije i bla bla...

ps: Program je osnovni samo se poziva dijalog i snima se. jedno vreme radi i onda pukne sam od sebe. Nema tredova u pozadini ni brojaca pukne sam od sebe.

Odgovor na temu