Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Free Pascal
»
Beginners
(Moderators:
FPK
,
Tomas Hajny
) »
Getting the first VISIBLE line-index of a Memo
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
IRC channel
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
Using KeyPress event, how...
by
Joanna
[
Today
at 02:15:13 pm]
Project fails on run but ...
by
Thaddy
[
Today
at 02:06:57 pm]
Controlling the behavior ...
by
1HuntnMan
[
Today
at 02:06:52 pm]
a Unit problem?
by
Thaddy
[
Today
at 01:56:12 pm]
Complex package installat...
by
parcel
[
Today
at 01:48:04 pm]
Understanding and adjusti...
by
ArchChem
[
Today
at 12:58:12 pm]
Any upgrades to fpWeb pag...
by
marcov
[
Today
at 12:50:25 pm]
Help needed with Cairo / ...
by
Roland57
[
Today
at 12:25:16 pm]
JEDI error but unit compi...
by
Roland57
[
Today
at 11:50:11 am]
Configure JCF messages
by
DomingoGP
[
Today
at 11:26:55 am]
IDE instability on Raspbe...
by
rvk
[
Today
at 10:37:14 am]
Boleeman's projects are p...
by
AlexTP
[
Today
at 10:18:04 am]
Your best UI design - con...
by
circular
[
Today
at 09:36:11 am]
ZeosDBO and querys using ...
by
Zvoni
[
Today
at 09:27:17 am]
STARS with line border st...
by
Boleeman
[
Today
at 09:13:29 am]
Zeos components. Had to c...
by
dbannon
[
Today
at 07:26:11 am]
A button require administ...
by
Fibonacci
[
Today
at 05:57:21 am]
How to detect one externa...
by
d2010
[
Today
at 12:24:32 am]
Center Lost Window featur...
by
Tony Stone
[
Today
at 12:06:16 am]
A "leisure" question on W...
by
EventHorizon
[March 27, 2024, 10:18:38 pm]
need advice about the fol...
by
jamie
[March 27, 2024, 09:56:39 pm]
[SOLVED] Completion box s...
by
Martin_fr
[March 27, 2024, 08:44:09 pm]
Dialog ShowModal and an i...
by
d7_2_laz
[March 27, 2024, 08:25:18 pm]
Offical launch of the 1 B...
by
Gustavo 'Gus' Carreno
[March 27, 2024, 07:41:48 pm]
Problem setting length of...
by
Remy Lebeau
[March 27, 2024, 05:41:10 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: Getting the first VISIBLE line-index of a Memo (Read 4334 times)
justnewbie
Sr. Member
Posts: 292
Getting the first VISIBLE line-index of a Memo
«
on:
April 11, 2018, 06:47:55 pm »
Hi,
Is it possible to get the index of the topmost VISIBLE line of a TMemo component?
If yes, how?
Logged
howardpc
Hero Member
Posts: 4144
Re: Getting the first VISIBLE line-index of a Memo
«
Reply #1 on:
April 11, 2018, 07:14:57 pm »
For a Windows solution see
https://forum.lazarus.freepascal.org/index.php?topic=29667.msg187529#msg187529
Logged
justnewbie
Sr. Member
Posts: 292
Re: Getting the first VISIBLE line-index of a Memo
«
Reply #2 on:
April 11, 2018, 07:40:42 pm »
Thank you! Linux version would be also great.
Logged
justnewbie
Sr. Member
Posts: 292
Re: Getting the first VISIBLE line-index of a Memo
«
Reply #3 on:
April 17, 2018, 01:30:09 pm »
How can I go through a Memo's text character by character?
In other words: I want to get every single string-character from 0 position to the end of the text.
«
Last Edit: April 17, 2018, 01:31:52 pm by justnewbie
»
Logged
Handoko
Hero Member
Posts: 5130
My goal: build my own game engine using Lazarus
Re: Getting the first VISIBLE line-index of a Memo
«
Reply #4 on:
April 17, 2018, 02:13:42 pm »
Quote from: justnewbie on April 17, 2018, 01:30:09 pm
How can I go through a Memo's text character by character?
This works for me:
Code: Pascal
[Select]
[+]
[-]
unit
Unit1
;
{$mode objfpc}{$H+}
interface
uses
Classes
,
SysUtils
,
Forms
,
Controls
,
StdCtrls
;
type
{ TForm1 }
TForm1
=
class
(
TForm
)
Edit1
:
TEdit
;
Label1
:
TLabel
;
Label2
:
TLabel
;
Memo1
:
TMemo
;
procedure
Edit1Change
(
Sender
:
TObject
)
;
end
;
var
Form1
:
TForm1
;
implementation
{$R *.lfm}
{ TForm1 }
procedure
TForm1
.
Edit1Change
(
Sender
:
TObject
)
;
var
Index
:
Integer
;
begin
TryStrToInt
(
Edit1
.
Text
,
Index
)
;
Label2
.
Caption
:
=
''
;
if
(
Index
<
=
0
)
or
(
Index
> Memo1
.
Lines
.
Text
.
Length
)
then
Exit
;
Label2
.
Caption
:
=
'Char #'
+
Index
.
ToString
+
' is '
+
Memo1
.
Text
[
Index
]
;
end
;
end
.
Logged
justnewbie
Sr. Member
Posts: 292
Re: Getting the first VISIBLE line-index of a Memo
«
Reply #5 on:
April 17, 2018, 02:54:58 pm »
@Handoko
: thank you!
Logged
jamie
Hero Member
Posts: 6090
Re: Getting the first VISIBLE line-index of a Memo
«
Reply #6 on:
April 18, 2018, 01:43:05 am »
I would of thought the Windows solution would work since using Messages is a norm for talking to
common controls?
Since these widgets support the common controls don't they also support the messages that go with them?
Logged
The only true wisdom is knowing you know nothing
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Free Pascal
»
Beginners
(Moderators:
FPK
,
Tomas Hajny
) »
Getting the first VISIBLE line-index of a Memo
TinyPortal
© 2005-2018