Mam problem z pobraniem pozycji karetki z Memo1 Pozycje karetki pobieram w następujący sposób: Pozycja karetki powyżej 3258 linii źle wskazuje (przepełnia sie). Zna ktoś zna jakiś lepszy sposób pobrania pozycji karetki ?

Witam Ja u siebie (Delphi 6) zrobiłem to na funkcji (a raczej metodzie pola edycyjnego) Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka function TREdit.GetCurPos: TPoint; begin// Podaje numer biezacego wiersza i kolumny Result.Y:= SendMessage(Handle, EM_EXLINEFROMCHAR, 0, SelStart) + 1; Result.X:= SelStart - SendMessage(Handle, EM_LINEINDEX, -1, 0) + 1; end; Handle, to uchwyt bieżącego okna (czyli tu kontrolki TREdit). Przykład zaczerpnąłem z samej dokumentacji Delphi, bodajże z przykładowego edytora od nich A sposób jej działania wygląda tak: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka Status1.Panels[1].Text:= IntToStr(GetCurPos.y) + ' : ' + IntToStr(GetCurPos.x); Pozdrawiam

Niestety Twoja funkcja nie działa: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka SendMessage(Memo1, EM_EXLINEFROMCHAR, 0, Memo1->SelStart) Za to znalazłem : Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka caret_position.y=Memo1->Perform (EM_LINEFROMCHAR, -1, 0); Post uważam za zamknięty.

[c++] Builder - Jak poprawnie pobrać pozycję karetki z Memo1 powyżej 3258 linii?

Zgłoś naruszenie prawa

| Nowy temat

#1 3986693 15 Cze 2007 13:50

kloszi kloszi

Poziom 21

Posty: 547

Pomógł: 34

Ocena: 89
Autor tematu

Post #1
3986693 15 Cze 2007 13:50

Mam problem z pobraniem pozycji karetki z Memo1
Pozycje karetki pobieram w następujący sposób:
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
TPoint caret_position=Memo1->CaretPos; Label1->Caption=IntToStr(caret_position.y);

Pozycja karetki powyżej 3258 linii źle wskazuje (przepełnia sie).
Zna ktoś zna jakiś lepszy sposób pobrania pozycji karetki ?
eufyMake E1 - łatwa personalizacja za pomocą druku UV [sponsorowany]
REKLAMA
Pomocny post

#2 3989296 16 Cze 2007 10:57

SaraniS SaraniS

Poziom 26

Posty: 745

Pomógł: 78

Ocena: 26
Pomocny post? (+1)

Pomocny post
Post #2
3989296 16 Cze 2007 10:57

Witam
Ja u siebie (Delphi 6) zrobiłem to na funkcji (a raczej metodzie pola edycyjnego)
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
function TREdit.GetCurPos: TPoint; begin// Podaje numer biezacego wiersza i kolumny Result.Y:= SendMessage(Handle, EM_EXLINEFROMCHAR, 0, SelStart) + 1; Result.X:= SelStart - SendMessage(Handle, EM_LINEINDEX, -1, 0) + 1; end;

Handle, to uchwyt bieżącego okna (czyli tu kontrolki TREdit).
Przykład zaczerpnąłem z samej dokumentacji Delphi, bodajże z przykładowego edytora od nich
A sposób jej działania wygląda tak:
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
Status1.Panels[1].Text:= IntToStr(GetCurPos.y) + ' : ' + IntToStr(GetCurPos.x);

Pozdrawiam
#3 3990579 16 Cze 2007 18:01

kloszi kloszi

Poziom 21

Posty: 547

Pomógł: 34

Ocena: 89
Autor tematu Pomocny post? (0)

Post #3
3990579 16 Cze 2007 18:01

Niestety Twoja funkcja nie działa:

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
SendMessage(Memo1, EM_EXLINEFROMCHAR, 0, Memo1->SelStart)

Za to znalazłem :

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
caret_position.y=Memo1->Perform (EM_LINEFROMCHAR, -1, 0);

Post uważam za zamknięty.
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

| Nowy temat

Zgłoś naruszenie prawa