Sign in Join
Wiki copytemporary

Cursor/fi: what changed

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

Title: Cursor/fi

OldNewLine
1+Kohdistin eli kursorin määritellään Cursor - [[Property|ominaisuudella]] TCursor objektilla.
2+
3+## Luettelo kohdistimen vakion nimistä
4+
5+<table border="1">
6+
7+<tr>
8+
9+<td>
10+
11+Vakion nimi
12+
13+</td>
14+
15+<td>
16+
17+Kokonaisluku arvo
18+
19+</td>
20+
21+<td>
22+
23+Kuvio
24+
25+</td>
26+
27+</tr>
28+
29+<tr>
30+
31+<td>
32+
33+crDefault
34+
35+</td>
36+
37+<td align="right">
38+
39+0
40+
41+</td>
42+
43+<td>
44+
45+<figure>
46+<img src="crArrow.png" title="crArrow.png" />
47+<figcaption>crArrow.png</figcaption>
48+</figure>
49+
50+</td>
51+
52+</tr>
53+
54+<tr>
55+
56+<tr>
57+
58+<td>
59+
60+crNone
61+
62+</td>
63+
64+<td align="right">
65+
66+-1
67+
68+</td>
69+
70+<td>
71+
72+Näkymätön hiiren osoitin
73+
74+</td>
75+
76+</tr>
77+
78+<tr>
79+
80+<tr>
81+
82+<td>
83+
84+crArrow
85+
86+</td>
87+
88+<td align="right">
89+
90+-2
91+
92+</td>
93+
94+<td>
95+
96+<figure>
97+<img src="crArrow.png" title="crArrow.png" />
98+<figcaption>crArrow.png</figcaption>
99+</figure>
100+
101+</td>
102+
103+</tr>
104+
105+<tr>
106+
107+<td>
108+
109+crCross
110+
111+</td>
112+
113+<td align="right">
114+
115+-3
116+
117+</td>
118+
119+<td>
120+
121+<figure>
122+<img src="crCross.png" title="crCross.png" />
123+<figcaption>crCross.png</figcaption>
124+</figure>
125+
126+</td>
127+
128+</tr>
129+
130+<tr>
131+
132+<td>
133+
134+crIBeam
135+
136+</td>
137+
138+<td align="right">
139+
140+-4
141+
142+</td>
143+
144+<td>
145+
146+<figure>
147+<img src="crIBeam.png" title="crIBeam.png" />
148+<figcaption>crIBeam.png</figcaption>
149+</figure>
150+
151+</td>
152+
153+</tr>
154+
155+<tr>
156+
157+<td>
158+
159+crSize
160+
161+</td>
162+
163+<td align="right">
164+
165+-22
166+
167+</td>
168+
169+<td>
170+
171+<figure>
172+<img src="crSize.png" title="crSize.png" />
173+<figcaption>crSize.png</figcaption>
174+</figure>
175+
176+</td>
177+
178+</tr>
179+
180+<tr>
181+
182+<td>
183+
184+crSizeNESW
185+
186+</td>
187+
188+<td align="right">
189+
190+-6
191+
192+</td>
193+
194+<td>
195+
196+<figure>
197+<img src="crSizeNESW.png" title="crSizeNESW.png" />
198+<figcaption>crSizeNESW.png</figcaption>
199+</figure>
200+
201+</td>
202+
203+</tr>
204+
205+<tr>
206+
207+<td>
208+
209+crSizeNS
210+
211+</td>
212+
213+<td align="right">
214+
215+-7
216+
217+</td>
218+
219+<td>
220+
221+<figure>
222+<img src="crSizeNS.png" title="crSizeNS.png" />
223+<figcaption>crSizeNS.png</figcaption>
224+</figure>
225+
226+</td>
227+
228+</tr>
229+
230+<tr>
231+
232+<td>
233+
234+crSizeNWSE
235+
236+</td>
237+
238+<td align="right">
239+
240+-8
241+
242+</td>
243+
244+<td>
245+
246+<figure>
247+<img src="crSizeNWSE.png" title="crSizeNWSE.png" />
248+<figcaption>crSizeNWSE.png</figcaption>
249+</figure>
250+
251+</td>
252+
253+</tr>
254+
255+<tr>
256+
257+<td>
258+
259+crSizeWE
260+
261+</td>
262+
263+<td align="right">
264+
265+-9
266+
267+</td>
268+
269+<td>
270+
271+<figure>
272+<img src="crSizeWE.png" title="crSizeWE.png" />
273+<figcaption>crSizeWE.png</figcaption>
274+</figure>
275+
276+</td>
277+
278+</tr>
279+
280+<tr>
281+
282+<td>
283+
284+crUpArrow
285+
286+</td>
287+
288+<td align="right">
289+
290+-10
291+
292+</td>
293+
294+<td>
295+
296+<figure>
297+<img src="crUpArrow.png" title="crUpArrow.png" />
298+<figcaption>crUpArrow.png</figcaption>
299+</figure>
300+
301+</td>
302+
303+</tr>
304+
305+<tr>
306+
307+<td>
308+
309+crHourGlass
310+
311+</td>
312+
313+<td align="right">
314+
315+-11
316+
317+</td>
318+
319+<td>
320+
321+<figure>
322+<img src="crHourGlass.png" title="crHourGlass.png" />
323+<figcaption>crHourGlass.png</figcaption>
324+</figure>
325+
326+</td>
327+
328+</tr>
329+
330+<tr>
331+
332+<td>
333+
334+crDrag
335+
336+</td>
337+
338+<td align="right">
339+
340+-12
341+
342+</td>
343+
344+<td>
345+
346+<figure>
347+<img src="crDrag.png" title="crDrag.png" />
348+<figcaption>crDrag.png</figcaption>
349+</figure>
350+
351+</td>
352+
353+</tr>
354+
355+<tr>
356+
357+<td>
358+
359+crNoDrop
360+
361+</td>
362+
363+<td align="right">
364+
365+-13
366+
367+</td>
368+
369+<td>
370+
371+<figure>
372+<img src="crNoDrop.png" title="crNoDrop.png" />
373+<figcaption>crNoDrop.png</figcaption>
374+</figure>
375+
376+</td>
377+
378+</tr>
379+
380+<tr>
381+
382+<td>
383+
384+crHSplit
385+
386+</td>
387+
388+<td align="right">
389+
390+-14
391+
392+</td>
393+
394+<td>
395+
396+<figure>
397+<img src="crHSplit.png" title="crHSplit.png" />
398+<figcaption>crHSplit.png</figcaption>
399+</figure>
400+
401+</td>
402+
403+</tr>
404+
405+<tr>
406+
407+<td>
408+
409+crVSplit
410+
411+</td>
412+
413+<td align="right">
414+
415+-15
416+
417+</td>
418+
419+<td>
420+
421+<figure>
422+<img src="crVSplit.png" title="crVSplit.png" />
423+<figcaption>crVSplit.png</figcaption>
424+</figure>
425+
426+</td>
427+
428+</tr>
429+
430+<tr>
431+
432+<td>
433+
434+crMultiDrag
435+
436+</td>
437+
438+<td align="right">
439+
440+-16
441+
442+</td>
443+
444+<td>
445+
446+<figure>
447+<img src="crMultiDrag.png" title="crMultiDrag.png" />
448+<figcaption>crMultiDrag.png</figcaption>
449+</figure>
450+
451+</td>
452+
453+</tr>
454+
455+<tr>
456+
457+<td>
458+
459+crSQLWait
460+
461+</td>
462+
463+<td align="right">
464+
465+-17
466+
467+</td>
468+
469+<td>
470+
471+<figure>
472+<img src="crSQLWait.png" title="crSQLWait.png" />
473+<figcaption>crSQLWait.png</figcaption>
474+</figure>
475+
476+</td>
477+
478+</tr>
479+
480+<tr>
481+
482+<td>
483+
484+crNo
485+
486+</td>
487+
488+<td align="right">
489+
490+-18
491+
492+</td>
493+
494+<td>
495+
496+<figure>
497+<img src="CrNo.png" title="CrNo.png" />
498+<figcaption>CrNo.png</figcaption>
499+</figure>
500+
501+</td>
502+
503+</tr>
504+
505+<tr>
506+
507+<td>
508+
509+crAppStart
510+
511+</td>
512+
513+<td align="right">
514+
515+-19
516+
517+</td>
518+
519+<td>
520+
521+<figure>
522+<img src="crAppStart.png" title="crAppStart.png" />
523+<figcaption>crAppStart.png</figcaption>
524+</figure>
525+
526+</td>
527+
528+</tr>
529+
530+<tr>
531+
532+<td>
533+
534+crHelp
535+
536+</td>
537+
538+<td align="right">
539+
540+-20
541+
542+</td>
543+
544+<td>
545+
546+<figure>
547+<img src="crHelp.png" title="crHelp.png" />
548+<figcaption>crHelp.png</figcaption>
549+</figure>
550+
551+</td>
552+
553+</tr>
554+
555+<tr>
556+
557+<td>
558+
559+crHandPoint
560+
561+</td>
562+
563+<td align="right">
564+
565+-21
566+
567+</td>
568+
569+<td>
570+
571+<figure>
572+<img src="crHandPoint.png" title="crHandPoint.png" />
573+<figcaption>crHandPoint.png</figcaption>
574+</figure>
575+
576+</td>
577+
578+</tr>
579+
580+</table>
581+
582+\
583+
584+## Esimerkit
585+
586+### Esimerkki 1: Näytä kaikki kohdistimen tyypit
587+
588+\(1\) Lomakkeella [[TForm|Form1]], vedä ja pudota [[TComboBox|ComboBox]] komponentti lomakkeelle.
589+
590+\(2\) Laita ComboBox1:n Items (TStrings) kohtaan seuraavat merkkijonot:
591+
592+``` pascal
593+crAppStart
594+crArrow
595+crCross
596+crDefault
597+crDrag
598+crHandPoint
599+crHelp
600+crHourGlass
601+crHSplit
602+crIBeam
603+crMultiDrag
604+crNo
605+crNoDrop
606+crNone
607+crSizeAll
608+crSizeNESW
609+crSizeNS
610+crSizeNWSE
611+crSizeWE
612+crSQLWait
613+crUpArrow
614+crVSplit
615+```
616+
617+\(3\) Lisää ComboBox1Change tapahtuman käsittelijään seuraava koodi:
618+
619+``` pascal
620+procedure TForm1.ComboBox1Change(Sender: TObject);
621+begin
622+ Cursor := StringToCursor(ComboBox1.Text);
623+end;
624+```
625+
626+Näin voidaan valita kohdistimen tyyppi ComboBoxista ja nähdä sen, kun hiirtä siirretään lomakkeella. Vain kun se siirretään ComboBoxin päälle, kohdistin palaa oletusarvoon (crDefault).
627+
628+### Esimerkki 2: Vaihda objektien kohdistin
629+
630+``` pascal
631+procedure TForm1.FormCreate(Sender: TObject);
632+begin
633+ Cursor := crHourGlass;
634+ // Vaihtaa lomakkeen kursorin tiimalasiksi
635+
636+ Button1.Cursor := crHourGlass;
637+ // Vaihtaa Button1-painikkeen kursorin tiimalasiksi.
638+
639+ Memo1.Cursor := crHourGlass;
640+ // Vaihtaa Memo1:n kursorin tiimalasiksi.
641+end;
642+```
643+
644+### Esimerkki 3:Vaihtaa kaikkien muiden kontrollien tiimalasiksi lasiksi, paitsi TBitBtn-kontrollien
645+
646+``` pascal
647+procedure TForm1.FormCreate(Sender: TObject);
648+var
649+ I: Integer;
650+begin
651+ Cursor := crHourGlass;
652+ for I := 0 to ControlCount - 1 do
653+ begin
654+ if (Controls[I].ClassType <> TBitBtn) then
655+ Controls[I].Cursor := crHourGlass;
656+ end;
657+end;
658+```
659+
660+Jos käytössä on kuitenkin GroupBox, niin sen kontrollit olisi käsiteltävä sen sisällä erikseen.
661+
662+``` pascal
663+procedure TForm1.FormCreate(Sender: TObject);
664+var
665+ I: Integer;
666+begin
667+ Cursor := crHourGlass;
668+ for I := 0 to ControlCount - 1 do
669+ begin
670+ if (Controls[I].ClassType <> TBitBtn) then
671+ Controls[I].Cursor := crHourGlass;
672+ end;
673+ for I := 0 to GroupBox1.ControlCount - 1 do
674+ begin
675+ if (GroupBox1.Controls[I].ClassType <> TBitBtn) then
676+ GroupBox1.Controls[I].Cursor := crHourGlass;
677+ end;
678+end;
679+```
680+
681+Edellä esitetyllä esimerkillä, jossa oli käytössä Form1, sekä muita lomakkeen konrolleja kuten [[TMemo/fi|Memo]], [[TEdit/fi|Edit]], [[TImage/fi|Image]], [[TBitBtn/fi|BitBtn]], jne. Tämä muuttaisi kaikki muut kuin BitBtn kontrollien kohdistimet tiimalasiksi. On olemassa konrolleja kuten [[TGroupBox/fi|TGroupBox]], [[TPanel/fi|TPanel]], joka toimii erillisinä "kontteina" muille konrolleille ja näiden kohteiden on oltava osoitteesta erillään päälomakkeesta, jotta niiden sisäistä ohjausta voidaan muuttaa toiseen kohdistimeen [[runtime/fi|ajonaikaisesti]].
682+
683+---
684+*From the Free Pascal wiki, page "Cursor/fi", as it stood on 2020-02-12 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