Editor Macros PascalScript/ru: what changed

Revision 3 to 4. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		# Общее
2	2
3	3		Макросы [[PascalScript]] доступны в Lazarus 1.1 и более поздних версиях. Чтобы использовать эту функцию, вам необходимо установить пакет EditorMacroScript, который включает пакет [[Pascal Script/ru\|Pascal Script]]. Pascal Script предоставляется объектами REM. Минимальный пакет предоставляется дистрибутивом Lazarus 1.1.
4	4
5	5		См. также [[IDE Window: Editor Macros/ru\|IDE_Window:_Editor_Macros]]
6	6
7	7		# Доступность
8	8
9	9		Эта функциональность доступна только на определенных платформах/архитектурах:
10	10
11	11		- Windows
12	12		- 32/64bit Intel/AMD
13	13		- Linux
14	14		- 32/64bit Intel/AMD
15	15		- Mac
16	16		- 32(/maybe 64)bit Intel/AMD
17	17		- 32bit PPC
18	18
19	19		# Простые действия
20	20
21	21		Все простые действия с клавиатурой представлены следующим образом:
22	22
23	23		ecLeft;
24	24		Перемещает каретку \[на один символ\] влево (в редакторе, который вызвал макрос)
25	25
26	26		ecChar('a');
27	27		Вставляет \[символ\] 'a'
28	28
29	29		См. модуль SynEditKeyCmds в пакете [[SynEdit/ru\|SynEdit]] и IDECommands в IDEIntf для \[получения\] полного списка. Или используйте Recorder для получения имен действий.
30	30
31	31		# Функции
32	32
33		-	~~` Function MessageDlg( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpCtx : Longint) : Integer');`\~~
34		-	~~` Function MessageDlgPos( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpCtx : Longint; X, Y : Integer) : Integer');`\~~
35		-	` Function MessageDlgPosHelp( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpCtx : Longint; X, Y : Integer; const HelpFileName : string) : Integer');`\
36		-	~~` Procedure ShowMessage( const Msg : string);`\~~
37		-	~~` Procedure ShowMessagePos( const Msg : string; X, Y : Integer)');`\~~
38		-	~~` Function InputBox( const ACaption, APrompt, ADefault : string) : string');`\~~
39		-	~~` Function InputQuery( const ACaption, APrompt : string; var Value : string) : Boolean');`~~
	33	+	``` pascal
	34	+	Function MessageDlg( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpCtx : Longint) : Integer');
	35	+	Function MessageDlgPos( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpCtx : Longint; X, Y : Integer) : Integer');
	36	+	Function MessageDlgPosHelp( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpCtx : Longint; X, Y : Integer; const HelpFileName : string) : Integer');
	37	+	Procedure ShowMessage( const Msg : string);
	38	+	Procedure ShowMessagePos( const Msg : string; X, Y : Integer)');
	39	+	Function InputBox( const ACaption, APrompt, ADefault : string) : string');
	40	+	Function InputQuery( const ACaption, APrompt : string; var Value : string) : Boolean');
	41	+	```
40	42
41	43		# Представление объектов
42	44
43	45		Сценарии могут ссылаться на вызывающий SynEdit через идентификатор "Caller".
44	46
45	47		## Caller: TSynEdit
46	48
47	49		Доступны следующие методы и свойства:
48	50
49	51		Caret (Каретка)
50	52
51		-	~~` property CaretX: Integer;`\~~
52		-	~~` property CaretY: Integer;`\~~
53		-	~~` property CaretXY: TPoint;`\~~
54		-	~~` property LogicalCaretXY: TPoint;`\~~
55		-	~~` property LogicalCaretX: Integer;`\~~
56		-	~~` procedure MoveCaretIgnoreEOL(const NewCaret: TPoint);`\~~
57		-	~~` procedure MoveLogicalCaretIgnoreEOL(const NewLogCaret: TPoint);`~~
	53	+	``` pascal
	54	+	property CaretX: Integer;
	55	+	property CaretY: Integer;
	56	+	property CaretXY: TPoint;
	57	+	property LogicalCaretXY: TPoint;
	58	+	property LogicalCaretX: Integer;
	59	+	procedure MoveCaretIgnoreEOL(const NewCaret: TPoint);
	60	+	procedure MoveLogicalCaretIgnoreEOL(const NewLogCaret: TPoint);
	61	+	```
58	62
59	63		Selection (Выделение)
60	64
61		-	~~` property BlockBegin: TPoint;`\~~
62		-	~~` property BlockEnd: TPoint;`\~~
63		-	~~` property SelAvail: Boolean; // только для чтения`\~~
64		-	~~` property SelText: string;`\~~
65		-	~~` property SelectionMode: TSynSelectionMode;`\~~
66		-	~~` procedure ClearSelection;`\~~
67		-	~~` procedure SelectAll;`\~~
68		-	~~` procedure SelectToBrace;`\~~
69		-	~~` procedure SelectWord;`\~~
70		-	~~` procedure SelectLine(WithLeadSpaces: Boolean);`\~~
71		-	~~` procedure SelectParagraph;`~~
	65	+	``` pascal
	66	+	property BlockBegin: TPoint;
	67	+	property BlockEnd: TPoint;
	68	+	property SelAvail: Boolean; // только для чтения
	69	+	property SelText: string;
	70	+	property SelectionMode: TSynSelectionMode;
	71	+	procedure ClearSelection;
	72	+	procedure SelectAll;
	73	+	procedure SelectToBrace;
	74	+	procedure SelectWord;
	75	+	procedure SelectLine(WithLeadSpaces: Boolean);
	76	+	procedure SelectParagraph;
	77	+	```
72	78
73	79		Search/Replace (Поиск/Замена)
74	80
75		-	~~` function SearchReplace(const ASearch, AReplace: string; AOptions: TSynSearchOptions): integer;`\~~
76		-	~~` function SearchReplaceEx(const ASearch, AReplace: string; AOptions: TSynSearchOptions; AStart: TPoint): integer;`~~
	81	+	``` pascal
	82	+	function SearchReplace(const ASearch, AReplace: string; AOptions: TSynSearchOptions): integer;
	83	+	function SearchReplaceEx(const ASearch, AReplace: string; AOptions: TSynSearchOptions; AStart: TPoint): integer;
	84	+	```
77	85
78		-	~~` TSynSearchOptions = set of`\~~
79		-	~~` ( ssoMatchCase, ssoWholeWord,`\~~
80		-	~~` ssoBackwards,`\~~
81		-	~~` ssoEntireScope, ssoSelectedOnly, // По умолчанию от [текущего положения] каретки до конца `\~~
82		-	~~` // текста (или к началу текста, если наоборот)`\~~
83		-	~~` ssoReplace, ssoReplaceAll, // В противном случае функция выполняет только поиск`\~~
84		-	~~` ssoPrompt, // Показывать приглашение перед заменой`\~~
85		-	` ssoSearchInReplacement, // продолжить поиск-замену в замещенном (с помощью ssoReplaceAll)/рекурсивная замена`\
86		-	~~` ssoRegExpr, ssoRegExprMultiLine,`\~~
87		-	` ssoFindContinue // Предположим, что текущее выделение является последним совпадением и `\
88		-	` // начинается поиск позади выделения (впереди [выделения], если ssoBackward)`\
89		-	` // По умолчанию [поиск] начинается с [текущего положения] каретки (только `\
90		-	~~` // для SearchReplace/SearchReplaceEx, [который] имеет параметр start/end);`~~
	86	+	``` pascal
	87	+	TSynSearchOptions = set of
	88	+	( ssoMatchCase, ssoWholeWord,
	89	+	ssoBackwards,
	90	+	ssoEntireScope, ssoSelectedOnly, // По умолчанию от [текущего положения] каретки до конца
	91	+	// текста (или к началу текста, если наоборот)
	92	+	ssoReplace, ssoReplaceAll, // В противном случае функция выполняет только поиск
	93	+	ssoPrompt, // Показывать приглашение перед заменой
	94	+	ssoSearchInReplacement, // продолжить поиск-замену в замещенном (с помощью ssoReplaceAll)/рекурсивная замена
	95	+	ssoRegExpr, ssoRegExprMultiLine,
	96	+	ssoFindContinue // Предположим, что текущее выделение является последним совпадением и
	97	+	// начинается поиск позади выделения (впереди [выделения], если ssoBackward)
	98	+	// По умолчанию [поиск] начинается с [текущего положения] каретки (только
	99	+	// для SearchReplace/SearchReplaceEx, [который] имеет параметр start/end);
	100	+	```
91	101
92	102		Возвращает количество выполненных замен. При поиске, возвращает 1, если \[совпадение\] найдено, 0, если \[совпадение\] не найдено. Если найдено совпадение, \[оно\] будет выделено (используйте BlockBegin/End).
93	103
94		-	~~` if Caller.SearchReplace('FindMe', ' ', []) > 0 then begin`\~~
95		-	~~` // Выделение устанавливается на первое появление FindMe (поиск с позиции каретки)`\~~
96		-	~~` end;`~~
	104	+	``` pascal
	105	+	if Caller.SearchReplace('FindMe', ' ', []) > 0 then begin
	106	+	// Выделение устанавливается на первое появление FindMe (поиск с позиции каретки)
	107	+	end;
	108	+	```
97	109
98	110		Text (Текст)
99	111
100		-	~~` property Lines[Index: Integer]: string; // read only`\~~
101		-	~~` property LineAtCaret: string; // read only`\~~
102		-	~~` procedure InsertTextAtCaret(aText: String; aCaretMode : TSynCaretAdjustMode);`\~~
103		-	~~` property TextBetweenPoints[aStartPoint, aEndPoint: TPoint]: String // Логическая точка`\~~
104		-	~~` procedure SetTextBetweenPoints(aStartPoint, aEndPoint: TPoint;`\~~
105		-	~~` const AValue: String;`\~~
106		-	~~` aFlags: TSynEditTextFlags = [];`\~~
107		-	~~` aCaretMode: TSynCaretAdjustMode;`\~~
108		-	~~` aMarksMode: TSynMarksAdjustMode;`\~~
109		-	~~` aSelectionMode: TSynSelectionMode`\~~
110		-	~~` );`~~
	112	+	``` pascal
	113	+	property Lines[Index: Integer]: string; // read only
	114	+	property LineAtCaret: string; // read only
	115	+	procedure InsertTextAtCaret(aText: String; aCaretMode : TSynCaretAdjustMode);
	116	+	property TextBetweenPoints[aStartPoint, aEndPoint: TPoint]: String // Логическая точка
	117	+	procedure SetTextBetweenPoints(aStartPoint, aEndPoint: TPoint;
	118	+	const AValue: String;
	119	+	aFlags: TSynEditTextFlags = [];
	120	+	aCaretMode: TSynCaretAdjustMode;
	121	+	aMarksMode: TSynMarksAdjustMode;
	122	+	aSelectionMode: TSynSelectionMode
	123	+	);
	124	+	```
111	125
112	126		Clipboard (Буфер обмена)
113	127
114		-	~~` procedure CopyToClipboard;`\~~
115		-	~~` procedure CutToClipboard;`\~~
116		-	~~` procedure PasteFromClipboard;`\~~
117		-	~~` property CanPaste: Boolean // только для чтения`~~
	128	+	``` pascal
	129	+	procedure CopyToClipboard;
	130	+	procedure CutToClipboard;
	131	+	procedure PasteFromClipboard;
	132	+	property CanPaste: Boolean // только для чтения
	133	+	```
118	134
119	135		Logical / Physical (Логический / Физический)
120	136
121		-	~~` function LogicalToPhysicalPos(const p: TPoint): TPoint;`\~~
122		-	~~` function LogicalToPhysicalCol(const Line: String; Index, LogicalPos`\~~
123		-	~~` : integer): integer;`\~~
124		-	~~` function PhysicalToLogicalPos(const p: TPoint): TPoint;`\~~
125		-	~~` function PhysicalToLogicalCol(const Line: string;`\~~
126		-	~~` Index, PhysicalPos: integer): integer;`\~~
127		-	~~` function PhysicalLineLength(Line: String; Index: integer): integer;`~~
	137	+	``` pascal
	138	+	function LogicalToPhysicalPos(const p: TPoint): TPoint;
	139	+	function LogicalToPhysicalCol(const Line: String; Index, LogicalPos
	140	+	: integer): integer;
	141	+	function PhysicalToLogicalPos(const p: TPoint): TPoint;
	142	+	function PhysicalToLogicalCol(const Line: string;
	143	+	Index, PhysicalPos: integer): integer;
	144	+	function PhysicalLineLength(Line: String; Index: integer): integer;
	145	+	```
128	146
129	147		## ClipBoard: TClipBoard
130	148
131		-	~~` property AsText: String;`~~
	149	+	```text
	150	+	property AsText: String;
	151	+	```
132	152
133	153		# Пример
134	154
135	155		Макрос, показанный ниже, выравнивает выбранный код к определенному токену. Он ищет определенный токен в каждой выбранной строке и выравнивает каждое его появление.
136	156
137	157		Выберите 3 строки. Если выделение начинается прямо перед ":", тогда символ ":" будет обнаружен. В подсказке будет предложено подтвердить ":". Затем все ":" будут выровнены. (Если вы используете слово для выравнивания, обратите внимание, что \[выравнивание\] будет подогнано независимо от границ слова)
138	158
139	159		``` pascal
140	160		text: string;
141	161		a: Integer;
142	162		foo: boolean
143	163		```
144	164
145	165		Макрос:
146	166
147	167		``` pascal
148	168		function IsIdent(c: Char): Boolean;
149	169		begin
150	170		Result := ((c >= 'a') and (c <= 'z')) or
151	171		((c >= 'A') and (c <= 'Z')) or
152	172		((c >= '0') and (c <= '9')) or
153	173		(c = '_');
154	174		end;
155	175
156	176		var
157	177		p1, p2: TPoint;
158	178		s1, s2: string;
159	179		i, j, k: Integer;
160	180		begin
161	181		if not Caller.SelAvail then exit;
162	182		p1 := Caller.BlockBegin;
163	183		p2 := Caller.BlockEnd;
164	184		if (p1.y > p2.y) or ((p1.y = p2.y) and (p1.x > p2.x)) then begin
165	185		p1 := Caller.BlockEnd;
166	186		p2 := Caller.BlockBegin;
167	187		end;
168	188		s1 := Caller.Lines[p1.y - 1];
169	189		s2 := '';
170	190		i := p1.x
171	191		while (i <= length(s1)) and (s1[i] in [#9, ' ']) do inc(i);
172	192		j := i;
173	193		if i <= length(s1) then begin
174	194		if IsIdent(s1[i]) then // pascal identifier
175	195		while (i <= length(s1)) and IsIdent(s1[i]) do inc(i)
176	196		else
177	197		while (i <= length(s1)) and not(IsIdent(s1[i]) or (s1[i] in [#9, ' '])) do inc(i);
178	198		end;
179	199		if i > j then s2 := copy(s1, j, i-j);
180	200
181	201		if not InputQuery( 'Align', 'Token', s2) then exit;
182	202
183	203		j := 0;
184	204		for i := p1.y to p2.y do begin
185	205		s1 := Caller.Lines[i - 1];
186	206		k := pos(s2, s1);
187	207		if (k > j) then j := k;
188	208		end;
189	209		if j < 1 then exit;
190	210
191	211		for i := p1.y to p2.y do begin
192	212		s1 := Caller.Lines[i - 1];
193	213		k := pos(s2, s1);
194	214		if (k > 0) and (k < j) then begin
195	215		Caller.LogicalCaretXY := Point(k, i);
196	216		while k < j do begin
197	217		ecChar(' ');
198	218		inc(k);
199	219		end;
200	220		end;
201	221		end;
202	222
203	223		end.
204	224		```
205	225
206	226		См. <http://forum.lazarus.freepascal.org/index.php/topic,27186.msg167883.html#msg167883> для подсчета элементов массива.
207	227
208	228		---
209	229		From the Free Pascal wiki, page "Editor Macros PascalScript/ru", as it stood on 2020-02-14 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history