Clipboard/hu: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1		-	~~<font size="7">Vágólap</font>~~
	1	+	Vágólap
2	2
3	3		## Előre definiált típusok
4	4
5	5		\| TPredefinedClipboardFormat \| MIME típus \|
6	6		\|----------------------------\|----------------------------\|
7	7		\| pcfText \| text/plain \|
8	8		\| pcfBitmap \| image/bmp \|
9	9		\| pcfPixmap \| image/xpm \|
10	10		\| pcfIcon \| image/lcl.icon \|
11	11		\| pcfPicture \| image/lcl.picture \|
12	12		\| pcfMetaFilePict \| image/lcl.metafilepict \|
13	13		\| pcfObject \| application/lcl.object \|
14	14		\| pcfComponent \| application/lcl.component \|
15	15		\| pcfCustomData \| application/lcl.customdata \|
16	16		\| \| \|
17	17
18	18		## Szöveg
19	19
20	20		Egyszerű szöveg kezeléséhez a vágólapon az AsText tulajdonság használata ajánlott, melynek segítségével sima szövegek olvashatók és írhatók.
21	21
22	22		Szöveg írása:
23	23
24	24		``` pascal
25	25		Clipboard.AsText := 'Helló vágólap!';
26	26		```
27	27
28	28		Szöveg olvasása:
29	29
30	30		``` pascal
31	31		ShowMessage('A vágólap tartalma: ' + Clipboard.AsText);
32	32		```
33	33
34	34		A Clipboard egy TClipboard típusú változó, aminek használatához a Clipbrd unit-ot a uses részhez kell adni:
35	35
36	36		``` pascal
37	37		uses
38	38		..., Clipbrd;
39	39		```
40	40
41	41		## Szöveg tartalmú komponensek
42	42
43	43		Néhány grafikus komponens, mint a TEdit, TMemo, TStringGrid, TLabeledEdit, TMaskEdit, TSpinEdit és a TFloatSpinEdit lehetővé teszik a tartalmuk egy részének kijelölését és rendelkeznek a kijelölt szöveg vágólappal történő kezelésére ajánlott eljárásokkal.
44	44
45	45		``` pascal
46	46
47	47		procedure CopyToClipboard;
48	48		procedure CutToClipboard;
49	49		procedure PasteFromClipboard;
50	50		```
51	51
52	52		## HTML forrás
53	53
54	54		Egy példa a HTML források kiolvasására a vágólapról:
55	55
56	56		``` pascal
57	57		uses
58	58		Clipbrd, ...;
59	59
60	60		procedure InsertHTMLSourceFromClipboard(Strings: TString);
61	61		var
62	62		Fid: TClipboardFormat
63	63		Str: WideString;
64	64		Stream: TMemoryStream;
65	65		begin
66	66		Fid := Clipboard.FindFormatID('text/html');
67	67		if Fid <> 0 then
68	68		try
69	69		Stream := TMemoryStream.Create;
70	70		if Clipboard.GetFormat(Fid, Stream) then
71	71		begin
72	72		Stream.Write(#0#0, Length(#0#0));
73	73		Stream.Position := 0;
74	74		Str := PWideChar(Stream.Memory);
75	75		Strings.Text := UTF8Encode(Str);
76	76		end;
77	77		finally
78	78		Stream.Free;
79	79		end;
80	80		end;
81	81		```
82	82
83	83		HTML forrás írása a vágólapra. Ez elvégezhető az AddFormat használatával, illetve TStream vagy memória Puffer segítségével.
84	84
85	85		``` pascal
86	86		// a text/html mime tipus bejegyzése. Ezt csak egyszer kell megtenni a program indulásakor:
87	87		ClipbrdFmtHTML := RegisterClipboardFormat('text/html');
88	88		...
89	89		// Minden korábbi formátum kitakarítása a vágólapról indulás előtt
90	90		Clipboard.Clear;
91	91
92	92		// szöveg és html elhelyezése a vágólapon. Más alkalmazások automatikusan a nekik legmegfelelőbbet fogják választani.
93	93		ThePlainUTF8Text := 'Egyszerű szöveg';
94	94		Clipboard.AsText := ThePlainUTF8Text;
95	95
96	96		HTMLSource := '<b>Formázott</b> szöveg'; // szöveg formázásokkal
97	97		Clipboard.AddFormat(ClipbrdFmtHTML, HTMLSource[1], Length(HTMLSource));
98	98		```
99	99
100	100		### Windows
101	101
102	102		Nem minden alkalmazás támogatja a 'text/html' mime típust. A Microsoft operációs rendszerei és alkalmazásai inkább a 'HTML Format' megjelölést támogatják, melyhez a vágólapon elhelyezendő tartalom leírása a következő címen olvasható:
103	103
104	104		<https://msdn.microsoft.com/en-us/library/aa767917%28v=vs.85%29.aspx>
105	105
106	106		(ha az URL megváltozik az írás címe: HTML Clipboard Format, és része az MSHTML Editing dokumentációnak)
107	107
108	108		Ez a leírás tartalmazza azt a követelményt, hogy a fejlécnek tartalmaznia kell a fejléc hosszát, ami bosszantó számolgatáshoz vezethet tekintettel arra, hogy a számlálás eredménye miatt megváltozhat a karakterek száma. A legegyszerűbb mód ennek megoldására, ha a számokat 10 számjeggyel és vezető nullákkal írjuk le, mint lentebb látható.
109	109
110	110		``` pascal
111	111		procedure AddHTMLToClipboard(AHTML: String);
112	112		const
113	113		HTML_MIME = 'HTML Format';
114	114		NATIVEHEADER = 'Version:0.9' + #13#10 +
115	115		'StartHTML:%.10d' + #13#10+
116	116		'EndHTML:%.10d' + #13#10+
117	117		'StartFragment:%.10d' + #13#10+
118	118		'EndFragment:%.10d' + #13#10;
119	119		HEADER = '<html><head></head><body>';
120	120		FOOTER1 = '';
121	121		FOOTER2 = '</body></html>';
122	122		var
123	123		cfHTMLFormat: TClipboardFormat;
124	124		HTMLSource : String;
125	125		iStartHTML: Integer;
126	126		iStartFragment: Integer;
127	127		iEndFragment: Integer;
128	128		iEndHTML: Integer;
129	129
130	130		begin
131	131		// Biztosítani kell, hogy a 'HTML Format' mime típus be legyen jegyezve
132	132		cfHTMLFormat := Clipboard.FindFormatID(HTML_MIME);
133	133		If cfHTMLFormat = 0 Then
134	134		cfHTMLFormat := RegisterClipboardFormat(HTML_MIME);
135	135
136	136		iStartHTML := 105;
137	137		iStartFragment := iStartHTML + Length(HEADER);
138	138		iEndFragment := iStartFragment + Length(AHTML) + Length(FOOTER1);
139	139		iEndHTML := iEndFragment + LENGTH(FOOTER2);
140	140
141	141		// Fejléc és nyitó html cimkék elhelyezése a karakterlánc elején
142	142		HTMLSource := Format(NATIVEHEADER, [iStartHTML, iEndHTML, iStartFragment,
143	143		iEndFragment]) + HEADER + AHTML + FOOTER1 + FOOTER2;
144	144
145	145		Clipboard.AddFormat(cfHTMLFormat, HTMLSource[1], Length(HTMLSource));
146	146		end;
147	147
148	148		procedure TForm1.Button1Click(Sender: TObject);
149	149		begin
150	150		Clipboard.Clear;
151	151
152	152		Clipboard.AsText:='Egyszerű szöveg';
153	153
154	154		AddHTMLToClipboard('<b>Kövér szöveg</b>');
155	155		end;
156	156		```
157	157
158	158		Mivel a vágólap több formátumot támogat, ezért elhelyezhető rajta egyszerű szöveg (SimpleText), 'text/html' és 'HTML Format' elem egyszerre...
159	159
160	160		## Kép
161	161
162	162		### Betöltés vágólapról
163	163
164	164		``` pascal
165	165		uses
166	166		Clipbrd, LCLIntf, LCLType, ...;
167	167
168	168		procedure LoadBitmapFromClipboard(Bitmap: TBitmap);
169	169		begin
170	170		if Clipboard.HasFormat(PredefinedClipboardFormat(pcfDelphiBitmap)) then
171	171		Bitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap));
172	172		if Clipboard.HasFormat(PredefinedClipboardFormat(pcfBitmap)) then
173	173		Bitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfBitmap));
174	174		end;
175	175		```
176	176
177	177		### Mentés vágólapra
178	178
179	179		``` pascal
180	180		uses
181	181		Clipbrd, ...;
182	182
183	183		procedure SaveBitmapToClipboard(Bitmap: TBitmap);
184	184		begin
185	185		Clipboard.Assign(Bitmap);
186	186		end;
187	187		```
188	188
189	189		## Értesítés a változásokról
190	190
191	191		Az LCL-en nem futnak át a Windows üzeneteket, kivéve a WM_USER üzenetet. Ennek megfelelően saját üzenetkezelő írására lehet szükség. [Processing non - user messages in your window](http://wiki.lazarus.freepascal.org/Win32/64_Interface#Processing_non-user_messages_in_your_window)
192	192
193	193		Példa saját üzenetkezelő kidolgozására:
194	194
195	195		``` pascal
196	196		unit Unit1;
197	197
198	198		{$mode delphi}{$H+}
199	199
200	200		interface
201	201
202	202		uses
203	203		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
204	204		Clipbrd, StdCtrls, Windows, Messages;
205	205
206	206		type
207	207		TForm1 = class(TForm)
208	208		Button1: TButton;
209	209		procedure FormCreate(Sender: TObject);
210	210		procedure FormDestroy(Sender: TObject);
211	211		private
212	212		FNextClipboardOwner: HWnd; // A következő vágólapkezelő
213	213		// A vágólap eseményeit kezelő eljárások következnek
214	214		function WMChangeCBChain(wParam: WParam; lParam: LParam):LRESULT;
215	215		function WMDrawClipboard(wParam: WParam; lParam: LParam):LRESULT;
216	216		public
217	217		end;
218	218
219	219		var
220	220		Form1: TForm1;
221	221
222	222		implementation
223	223
224	224		{$R *.lfm}
225	225		var
226	226		PrevWndProc:windows.WNDPROC;
227	227
228	228		function WndCallback(Ahwnd: HWND; uMsg: UINT; wParam: WParam;
229	229		lParam: LParam): LRESULT; stdcall;
230	230		begin
231	231		if uMsg = WM_CHANGECBCHAIN then begin
232	232		Result := Form1.WMChangeCBChain(wParam, lParam);
233	233		Exit;
234	234		end
235	235		else if uMsg=WM_DRAWCLIPBOARD then begin
236	236		Result := Form1.WMDrawClipboard(wParam, lParam);
237	237		Exit;
238	238		end;
239	239		Result := CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam, LParam);
240	240		end;
241	241
242	242		{ TForm1 }
243	243
244	244		procedure TForm1.FormCreate(Sender: TObject);
245	245		begin
246	246		PrevWndProc := Windows.WNDPROC(SetWindowLong(Self.Handle, GWL_WNDPROC, PtrInt(@WndCallback)));
247	247		FNextClipboardOwner := SetClipboardViewer(Self.Handle);
248	248		end;
249	249
250	250		procedure TForm1.FormDestroy(Sender: TObject);
251	251		begin
252	252		ChangeClipboardChain(Handle, FNextClipboardOwner);
253	253		end;
254	254
255	255		function TForm1.WMChangeCBChain(wParam: WParam; lParam: LParam): LRESULT;
256	256		var
257	257		Remove, Next: THandle;
258	258		begin
259	259		Remove := WParam;
260	260		Next := LParam;
261	261		if FNextClipboardOwner = Remove then FNextClipboardOwner := Next
262	262		else if FNextClipboardOwner <> 0 then
263	263		SendMessage(FNextClipboardOwner, WM_ChangeCBChain, Remove, Next)
264	264		end;
265	265
266	266		function TForm1.WMDrawClipboard(wParam: WParam; lParam: LParam): LRESULT;
267	267		begin
268	268		if Clipboard.HasFormat(CF_TEXT) Then Begin
269	269		ShowMessage(Clipboard.AsText);
270	270		end;
271	271		SendMessage(FNextClipboardOwner, WM_DRAWCLIPBOARD, 0, 0); // NAGYON FONTOS!
272	272		Result := 0;
273	273		end;
274	274
275	275		end.
276	276		```
277	277
278	278		## Külső hivatkozások
279	279
280	280		- [Alapvető műveletek a vágólappal (Kivágás/Másolás/Beillesztés) a TClipboard objektumot használva](http://delphi.about.com/od/vclusing/a/tclipboard.htm)
281	281
282	282		---
283	283		From the Free Pascal wiki, page "Clipboard/hu", as it stood on 2019-06-18 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).
284	284		Category: Magyar

Back to history