Sign in Join
Wiki copytemporary

Colors/fi: what changed

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

OldNewLine
11## Värit
22
33[[LCL/fi|LCL]]:ssä TColor on vakiovärityyppi. Se on yhteensopiva [[Delphi/fi|Delphin]] TColorin kanssa. TColor voi edustaa joko RGB (3x8bit) arvoa tai järjestelmän väriä kuten clDefault. LCL voi toimia myös fpImage-järjestelmän kanssa, joka käyttää TFPColor-tyyppiä (joka on RGBA (4x16bit), ei RGB (3x8bit) kuten TColor).
44
55### Muunnokset TColor- ja RGB-arvojen välillä
66
77[[Unit/fi|käännösyksikkö (eli unit)]]**Graphics** tarjoaa seuraavat toiminnot:
88
99``` pascal
1010function Blue(rgb: TColor): BYTE; // does not work on system color
1111function Green(rgb: TColor): BYTE; // does not work on system color
1212function Red(rgb: TColor): BYTE; // does not work on system color
1313function RGBToColor(R, G, B: Byte): TColor;
1414procedure RedGreenBlue(rgb: TColor; out Red, Green, Blue: Byte); // does not work on system color
1515function FPColorToTColor(const FPColor: TFPColor): TColor;
1616function TColorToFPColor(const c: TColor): TFPColor; // does not work on system color
1717function IsSysColor(AColor: TColorRef): Boolean;
1818```
1919
2020### TColor:n muunto merkkijonoksi ja päinvastoin
2121
2222Seuraavat [[Function/fi|funktiot]] muuntaa merkkijonot kuten "25500", "[[Dollar sign/fi|$AA]]0088" tai "clNavy" TColoriksi:
2323
2424- StringToColor
2525- StringToColorDef
2626
2727Voit muuntaa TColorin arvon merkkijonoksi kuten "clNavy" tai "\$AA0002":
2828
2929- ColorToString
3030
3131### Muunna TColor HTML-merkkijonoksi \#rrggbb
3232
3333Katso koodi kohdasta [[Convert color to/from HTML]].
3434
3535### Taulukko vakioväreistä
3636
3737Tarjotaan noin 20 ennalta määritettyä värivakiota, jotka ovat [[Delphi]]-yhteensopivia:
3838
3939| Värivakio | Merkitys | [[Hexadecimal/fi|Heksadesimaalinen]] arvo käytettäväksi TColor:n kanssa | Esimerkki |
4040|----|----|----|----|
4141| clBlack | Black | TColor(\$000000); | |
4242| clMaroon | Maroon | TColor(\$000080); | |
4343| clGreen | Green | TColor(\$008000); | |
4444| clOlive | Olive Green | TColor(\$008080); | |
4545| clNavy | Navy Blue | TColor(\$800000); | |
4646| clPurple | Purple | TColor(\$800080); | |
4747| clTeal | Teal | TColor(\$808000); | |
4848| clGray | Grey | TColor(\$808080); | |
4949| clSilver | Silver | TColor(\$C0C0C0); | |
5050| clRed | Red | TColor(\$0000FF); | |
5151| clLime | Lime Green | TColor(\$00FF00); | |
5252| clYellow | Yellow | TColor(\$00FFFF); | |
5353| clBlue | Blue | TColor(\$FF0000); | |
5454| clFuchsia | Fuchsia | TColor(\$FF00FF); | |
5555| clAqua | Aqua | TColor(\$FFFF00); | |
5656| clLtGray | Light Grey | TColor(\$C0C0C0); | clSilver alias |
5757| clDkGray | Dark Grey | TColor(\$808080); | clGray alias |
5858| clWhite | White | TColor(\$FFFFFF); | |
5959| clCream | Cream | TColor(\$F0FBFF); | Lazarus 1.2 ja uudemmat |
6060| clMedGray | Medium Grey | TColor(\$A4A0A0); | Lazarus 1.2 ja uudemmat |
6161| clMoneyGreen | Mint Green | TColor(\$C0DCC0); | Lazarus 1.2 ja uudemmat |
6262| clSkyBlue | Sky Blue | TColor(\$F0CAA6); | Lazarus 1.2 ja uudemmat |
6363
6464### Järjestelmän värit
6565
6666#### Esimerkki: clInfoBk, clInfoText
6767
6868Järjestelmävärit ovat värivakioita, joilla on erityinen merkitys. Niiden todellinen arvo riippuu kontekstista ja teemasta. Ne eivät ole yksinkertaisia ​​värejä. Esimerkiksi **clInfoBk**:
6969
7070``` pascal
7171Form1.Canvas.Brush.Color:=clInfoBk; // // käytä vihje-ikkunan oletustaustaväriä
7272Form1.Canvas.FillRect(10,10,50,50);
7373```
7474
7575Vihje-ikkunassa MS Windowsissa voi olla valkoinen tausta, joten yllä oleva piirtää valkoisella. Linuxissa / gtk2: ssa se voi olla metallinen tekstuuri, joten yllä oleva kuvioi kyseisellä tekstuurilla. Jos haluat laittaa tekstiä tähän, tarvitset vastaavan värin kuin **clInfoText**, muuten teksti voi olla käyttäjän kannalta lukukelvoton. Esimerkiksi:
7676
7777``` pascal
7878Form1.Canvas.Brush.Color:=clInfoBk; // käytä vihje-ikkunan oletustaustaväriä
7979Form1.Canvas.FillRect(10,10,50,50);
8080Form1.Canvas.Font.Color:=clInfoText; // käytä vihjeikkunan oletustekstiväriä
8181Form1.Canvas.TextOut(10,10,'Hint');
8282```
8383
8484Järjestelmän väriä **clInfoBk** ei voi käyttää Pen.Color:lla eikä Font.Color:lla. Jos näin tehdään, tulos on määrittelemätön ja riippuu widgetet- ja käyttäjäteemasta. Sama koskee myös väriä **clInfoText**: Sitä voidaan käyttää vain Font.Color:na. Sen käyttö Brush.Color:na ei ehkä toimi. Tällä hetkellä kaikki widgetit sallivat sen käytön myös Pen.Color:na.
8585
8686#### Teeman muutokset
8787
8888Kun käyttäjä vaihtaa teeman, järjestelmän värit muuttuvat. Väri **clInfoBk** saattaa muuttua valkoisesta siniseksi tai yhtenäisestä väristä tekstuuriksi. Tämä muutos tapahtuu, kun jaat uuden Brush Handle. Muista, että yksinkertainen tehtävä Brush.Color:=clInfoBk ei jaa Brush Handle. Brush Handle on jaettu käyttöön. Esimerkiksi:
8989
9090``` pascal
9191Form1.Canvas.Brush.Color:=clInfoBk; // tämä ei luo uutta brush handle:a
9292Form1.Canvas.FillRect(10,10,50,50); // tämä luo brush handletällä hetkellä aktiivisen teeman brush vihjeikkunoita varten
9393...
9494...
9595// jos teema muuttuu niin tällä hetkellä Brush.Handle on edelleen varattu vanhojen arvojen kanssa
9696...
9797Form1.Canvas.FillRect(10,10,50,50); // tämä maalaa vanhan teeman brush:lla
9898Form1.Canvas.Brush.Color:=clInfoBk; // vanhan arvon liittäminen ei luo uutta brush handle:a
9999Form1.Canvas.FillRect(10,10,50,50); // tämä maalaa vanhan teeman brush:lla
100100Form1.Canvas.Brush.Color:=clRed; // uuden värin määrittäminen, vanha Handle ei kelpaa
101101Form1.Canvas.Brush.Color:=clInfoBk; // uuden värin määrittäminen, vanha Handle ei kelpaa
102102Form1.Canvas.FillRect(10,10,50,50); // tämä luo uuden handlen ja maalaa uuden teeman avulla
103103```
104104
105105### Taulukko järjestelmän väreistä
106106
107107Seuraavassa taulukossa luetellaan järjestelmän värit ja niiden merkitys. Niiden käyttäminen määritelmän soveltamisalan ulkopuolella on määrittelemätön ja tulos riippuu widgetetistä ja teemasta. Esimerkiksi **clDefault** on normaali taustaväri on käytetyn laitteen taustakuvio. Jos halutaan maalata painikkeita omilla mukautetuilla ohjaimilla, käytä yksikön **Themes** piirustusfunktioita.
108108
109-<table>
110-<thead>
111-<tr>
112-<th><p>Vakio</p></th>
113-<th><p>LCL määrittely</p></th>
114-<th><p>Delphi huomiot</p></th>
115-<th><p>Tuetut Widgetsets</p></th>
116-</tr>
117-</thead>
118-<tbody>
119-<tr>
120-<td><p>clNone</p></td>
121-<td><p>Ilmaisee "ei piirretä". Sen käyttäminen kontrollin värinä on määrittelemätön. kontrolli ei tule läpinäkyväksi.</p></td>
122-<td><p>-</p></td>
123-<td><p>kaikki</p></td>
124-</tr>
125-<tr>
126-<td><p>clDefault</p></td>
127-<td><p>Käyttämällä sitä Brush-värinä niin käytetään tavallisen device context (DC, laitteen konteksti) normaalia taustaväriä</p>
128-<ul>
129-<li>Lomakkeen canvas:ssa <em>FillRect</em> maalaa suorakulmaisen alueen, joka on täynnä normaalin ikkunan normaalia taustaa. Tämä on mitä widgetset ja teema määrittelevät. Tämä voi olla harmaa, liukuväri tai kuva.</li>
130-<li>Käyttämällä clDefault TListBoxin canvasiin niin maalataan se normaalilla taustalla, joka on yleensä valkoinen Windowsissa. Joten TListBox clDefault on sama kuin clWindow.</li>
131-<li>Käyttämällä sitä Pen color:na niin se on laitteeen oletusarvoinen viivan väri.</li>
132-<li>Käyttämällä sitä Font color:na niin se on laitteeen oletusarvoinen tekstin väri.</li>
133-</ul></td>
134-<td><p>| -</p></td>
135-<td><p>kaikki</p></td>
136-</tr>
137-<tr>
138-<td><p>clScrollBar</p></td>
139-<td><p>Vierityspalkin (Scrollbar) runko</p></td>
140-<td><p>-</p></td>
141-<td><p>kaikki</p></td>
142-</tr>
143-<tr>
144-<td><p>clBackground</p></td>
145-<td><p>Työpöydän taustaväri</p></td>
146-<td><p>-</p></td>
147-<td><p>kaikki</p></td>
148-</tr>
149-<tr>
150-<td><p>clActiveCaption</p></td>
151-<td><p>Aktiivinen ikkunan otsikkorivi</p></td>
152-<td><p>-</p></td>
153-<td><p>ei mikään</p></td>
154-</tr>
155-<tr>
156-<td><p>clInactiveCaption</p></td>
157-<td><p>Ei-aktiivinen ikkunan otsikkorivi</p></td>
158-<td><p>-</p></td>
159-<td><p>ei mikään</p></td>
160-</tr>
161-<tr>
162-<td><p>clMenu</p></td>
163-<td><p>vakio valikkokohdan taustaväri</p></td>
164-<td><p>-</p></td>
165-<td><p>ei mikään</p></td>
166-</tr>
167-<tr>
168-<td><p>clWindow</p></td>
169-<td><p>Valitsemattoman tekstin normaali taustaväri. Määritetty kontrolleille, kuten TEdit, TComboBox, TMemo, TListBox, TTreeView.</p></td>
170-<td><p>-</p></td>
171-<td><p>ei mikään</p></td>
172-</tr>
173-<tr>
174-<td><p>clWindowFrame</p></td>
175-<td><p>Kehyksen väri ikkunan ympärillä</p></td>
176-<td><p>-</p></td>
177-<td><p>ei mikään</p></td>
178-</tr>
179-<tr>
180-<td><p>clMenuText</p></td>
181-<td><p>Fontin väri, jota käytetään yhdessä clMenu:n kanssa</p></td>
182-<td><p>-</p></td>
183-<td><p>ei mikään</p></td>
184-</tr>
185-<tr>
186-<td><p>clWindowText</p></td>
187-<td><p>Fontin väri, jota käytetään yhdessä clWindow:n kanssa</p></td>
188-<td><p>-</p></td>
189-<td><p>ei mikään</p></td>
190-</tr>
191-<tr>
192-<td><p>clCaptionText</p></td>
193-<td><p>Aktiivisen ikkunan otsikkorivin tekstin väri</p></td>
194-<td><p>-</p></td>
195-<td><p>ei mikään</p></td>
196-</tr>
197-<tr>
198-<td><p>clActiveBorder</p></td>
199-<td><p>?</p></td>
200-<td><p>-</p></td>
201-<td><p>ei mikään</p></td>
202-</tr>
203-<tr>
204-<td><p>clInactiveBorder</p></td>
205-<td><p>?</p></td>
206-<td><p>-</p></td>
207-<td><p>ei mikään</p></td>
208-</tr>
209-<tr>
210-<td><p>clAppWorkspace</p></td>
211-<td><p>MDIMain lomakkeen taustaväri</p></td>
212-<td><p>-</p></td>
213-<td><p>ei mikään</p></td>
214-</tr>
215-<tr>
216-<td><p>clHighlight</p></td>
217-<td><p>brush color kun elementti on valittu</p></td>
218-<td><p>-</p></td>
219-<td><p>ei mikään</p></td>
220-</tr>
221-<tr>
222-<td><p>clHighlightText</p></td>
223-<td><p>Font color kun teksti on valittu (käytetään clHighligh kanssa).</p></td>
224-<td><p>-</p></td>
225-<td><p>ei mikään</p></td>
226-</tr>
227-<tr>
228-<td><p>clBtnFace</p></td>
229-<td><p>Painikkeen taustaväri</p></td>
230-<td><p>-</p></td>
231-<td><p>ei mikään</p></td>
232-</tr>
233-<tr>
234-<td><p>clBtnShadow</p></td>
235-<td><p>Painikkeen varjostusväri (Bottom Right) käytetään 3D-efektin saavuttamiseen</p></td>
236-<td><p>-</p></td>
237-<td><p>ei mikään</p></td>
238-</tr>
239-<tr>
240-<td><p>clGrayText</p></td>
241-<td><p>font color kielletyillä elementeillä</p></td>
242-<td><p>-</p></td>
243-<td><p>ei mikään</p></td>
244-</tr>
245-<tr>
246-<td><p>clBtnText</p></td>
247-<td><p>Painikkeen font color käytetään clBtnFace:n kanssa</p></td>
248-<td><p>-</p></td>
249-<td><p>ei mikään</p></td>
250-</tr>
251-<tr>
252-<td><p>clInactiveCaptionText</p></td>
253-<td><p>Ei-aktiivinen ikkunan otsikkorivin tekstin väri</p></td>
254-<td><p>-</p></td>
255-<td><p>ei mikään</p></td>
256-</tr>
257-<tr>
258-<td><p>clBtnHighlight</p></td>
259-<td><p>BPainikkeen korostusväri (Top Left) käytetään 3D-efektin saavuttamiseen</p></td>
260-<td><p>-</p></td>
261-<td><p>ei mikään</p></td>
262-</tr>
263-<tr>
264-<td><p>cl3DDkShadow</p></td>
265-<td><p>?</p></td>
266-<td><p>-</p></td>
267-<td><p>ei mikään</p></td>
268-</tr>
269-<tr>
270-<td><p>cl3DLight</p></td>
271-<td><p>?</p></td>
272-<td><p>-</p></td>
273-<td><p>ei mikään</p></td>
274-</tr>
275-<tr>
276-<td><p>clInfoText</p></td>
277-<td><p>Vihjeiden fontin väri. Käytä yhdessä clInfoBk:n kanssa</p></td>
278-<td><p>-</p></td>
279-<td><p>kaikki</p></td>
280-</tr>
281-<tr>
282-<td><p>clInfoBk</p></td>
283-<td><p>Brush väri vihjeitä varten. Käytä yhdessä clInfoText:n kanssa</p></td>
284-<td><p>-</p></td>
285-<td><p>kaikki</p></td>
286-</tr>
287-<tr>
288-<td><p>clHotLight</p></td>
289-<td><p>?</p></td>
290-<td><p>-</p></td>
291-<td><p>ei mikään</p></td>
292-</tr>
293-<tr>
294-<td><p>clGradientActiveCaption</p></td>
295-<td><p>Toinen väri, jota käytetään aktiivisen ikkunan otsikkorivin gradientin tekemiseen</p></td>
296-<td><p>-</p></td>
297-<td><p>ei mikään</p></td>
298-</tr>
299-<tr>
300-<td><p>clGradientInactiveCaption</p></td>
301-<td><p>Toinen väri, jota käytetään ei-aktiivisen ikkunan otsikkorivin gradientin tekemiseen</p></td>
302-<td><p>-</p></td>
303-<td><p>ei mikään</p></td>
304-</tr>
305-<tr>
306-<td><p>clMenuHighlight</p></td>
307-<td><p>Valitun valikkokohdan taustaväri</p></td>
308-<td><p>-</p></td>
309-<td><p>ei mikään</p></td>
310-</tr>
311-<tr>
312-<td><p>clMenuBar</p></td>
313-<td><p>Valikkokohdan taustaväri</p></td>
314-<td><p>-</p></td>
315-<td><p>ei mikään</p></td>
316-</tr>
317-<tr>
318-<td><p>clForm</p></td>
319-<td><p>?</p></td>
320-<td><p>-</p></td>
321-<td><p>ei mikään</p></td>
322-</tr>
323-<tr>
324-<td><p>clColorDesktop</p></td>
325-<td><p>?</p></td>
326-<td><p>-</p></td>
327-<td><p>ei mikään</p></td>
328-</tr>
329-<tr>
330-<td><p>cl3DFace</p></td>
331-<td><p>?</p></td>
332-<td><p>-</p></td>
333-<td><p>ei mikään</p></td>
334-</tr>
335-<tr>
336-<td><p>cl3DShadow</p></td>
337-<td><p>?</p></td>
338-<td><p>-</p></td>
339-<td><p>ei mikään</p></td>
340-</tr>
341-<tr>
342-<td><p>cl3DHiLight</p></td>
343-<td><p>?</p></td>
344-<td><p>-</p></td>
345-<td><p>ei mikään</p></td>
346-</tr>
347-<tr>
348-<td><p>clBtnHiLight</p></td>
349-<td><p>Sama kuin clBtnHighlight</p></td>
350-<td><p>-</p></td>
351-<td><p>ei mikään</p></td>
352-</tr>
353-</tbody>
354-</table>
109+**Vakio**
110+
111+**LCL määrittely**
112+
113+**Delphi huomiot**
114+
115+**Tuetut Widgetsets**
116+
117+clNone
118+
119+Ilmaisee "ei piirretä". Sen käyttäminen kontrollin värinä on määrittelemätön. kontrolli ei tule läpinäkyväksi.
120+
121+\-
122+
123+kaikki
124+
125+clDefault
126+
127+Käyttämällä sitä Brush-värinä niin käytetään tavallisen device context (DC, laitteen konteksti) normaalia taustaväriä
128+
129+- Lomakkeen canvas:ssa *FillRect* maalaa suorakulmaisen alueen, joka on täynnä normaalin ikkunan normaalia taustaa. Tämä on mitä widgetset ja teema määrittelevät. Tämä voi olla harmaa, liukuväri tai kuva.
130+- Käyttämällä clDefault TListBoxin canvasiin niin maalataan se normaalilla taustalla, joka on yleensä valkoinen Windowsissa. Joten TListBox clDefault on sama kuin clWindow.
131+- Käyttämällä sitä Pen color:na niin se on laitteeen oletusarvoinen viivan väri.
132+- Käyttämällä sitä Font color:na niin se on laitteeen oletusarvoinen tekstin väri.
133+
134+\| -
135+
136+kaikki
137+
138+clScrollBar
139+
140+Vierityspalkin (Scrollbar) runko
141+
142+\-
143+
144+kaikki
145+
146+clBackground
147+
148+Työpöydän taustaväri
149+
150+\-
151+
152+kaikki
153+
154+clActiveCaption
155+
156+Aktiivinen ikkunan otsikkorivi
157+
158+\-
159+
160+ei mikään
161+
162+clInactiveCaption
163+
164+Ei-aktiivinen ikkunan otsikkorivi
165+
166+\-
167+
168+ei mikään
169+
170+clMenu
171+
172+vakio valikkokohdan taustaväri
173+
174+\-
175+
176+ei mikään
177+
178+clWindow
179+
180+Valitsemattoman tekstin normaali taustaväri. Määritetty kontrolleille, kuten TEdit, TComboBox, TMemo, TListBox, TTreeView.
181+
182+\-
183+
184+ei mikään
185+
186+clWindowFrame
187+
188+Kehyksen väri ikkunan ympärillä
189+
190+\-
191+
192+ei mikään
193+
194+clMenuText
195+
196+Fontin väri, jota käytetään yhdessä clMenu:n kanssa
197+
198+\-
199+
200+ei mikään
201+
202+clWindowText
203+
204+Fontin väri, jota käytetään yhdessä clWindow:n kanssa
205+
206+\-
207+
208+ei mikään
209+
210+clCaptionText
211+
212+Aktiivisen ikkunan otsikkorivin tekstin väri
213+
214+\-
215+
216+ei mikään
217+
218+clActiveBorder
219+
220+?
221+
222+\-
223+
224+ei mikään
225+
226+clInactiveBorder
227+
228+?
229+
230+\-
231+
232+ei mikään
233+
234+clAppWorkspace
235+
236+MDIMain lomakkeen taustaväri
237+
238+\-
239+
240+ei mikään
241+
242+clHighlight
243+
244+brush color kun elementti on valittu
245+
246+\-
247+
248+ei mikään
249+
250+clHighlightText
251+
252+Font color kun teksti on valittu (käytetään clHighligh kanssa).
253+
254+\-
255+
256+ei mikään
257+
258+clBtnFace
259+
260+Painikkeen taustaväri
261+
262+\-
263+
264+ei mikään
265+
266+clBtnShadow
267+
268+Painikkeen varjostusväri (Bottom Right) käytetään 3D-efektin saavuttamiseen
269+
270+\-
271+
272+ei mikään
273+
274+clGrayText
275+
276+font color kielletyillä elementeillä
277+
278+\-
279+
280+ei mikään
281+
282+clBtnText
283+
284+Painikkeen font color käytetään clBtnFace:n kanssa
285+
286+\-
287+
288+ei mikään
289+
290+clInactiveCaptionText
291+
292+Ei-aktiivinen ikkunan otsikkorivin tekstin väri
293+
294+\-
295+
296+ei mikään
297+
298+clBtnHighlight
299+
300+BPainikkeen korostusväri (Top Left) käytetään 3D-efektin saavuttamiseen
301+
302+\-
303+
304+ei mikään
305+
306+cl3DDkShadow
307+
308+?
309+
310+\-
311+
312+ei mikään
313+
314+cl3DLight
315+
316+?
317+
318+\-
319+
320+ei mikään
321+
322+clInfoText
323+
324+Vihjeiden fontin väri. Käytä yhdessä clInfoBk:n kanssa
325+
326+\-
327+
328+kaikki
329+
330+clInfoBk
331+
332+Brush väri vihjeitä varten. Käytä yhdessä clInfoText:n kanssa
333+
334+\-
335+
336+kaikki
337+
338+clHotLight
339+
340+?
341+
342+\-
343+
344+ei mikään
345+
346+clGradientActiveCaption
347+
348+Toinen väri, jota käytetään aktiivisen ikkunan otsikkorivin gradientin tekemiseen
349+
350+\-
351+
352+ei mikään
353+
354+clGradientInactiveCaption
355+
356+Toinen väri, jota käytetään ei-aktiivisen ikkunan otsikkorivin gradientin tekemiseen
357+
358+\-
359+
360+ei mikään
361+
362+clMenuHighlight
363+
364+Valitun valikkokohdan taustaväri
365+
366+\-
367+
368+ei mikään
369+
370+clMenuBar
371+
372+Valikkokohdan taustaväri
373+
374+\-
375+
376+ei mikään
377+
378+clForm
379+
380+?
381+
382+\-
383+
384+ei mikään
385+
386+clColorDesktop
387+
388+?
389+
390+\-
391+
392+ei mikään
393+
394+cl3DFace
395+
396+?
397+
398+\-
399+
400+ei mikään
401+
402+cl3DShadow
403+
404+?
405+
406+\-
407+
408+ei mikään
409+
410+cl3DHiLight
411+
412+?
413+
414+\-
415+
416+ei mikään
417+
418+clBtnHiLight
419+
420+Sama kuin clBtnHighlight
421+
422+\-
423+
424+ei mikään
355425
356426### Järjestelmävärin rgb-arvojen löytäminen
357427
358428Käytä funktiota `ColorToRGB` (in unit `Graphics` ) järjestelmän värin rgb-komponenttien määrittämiseksi. Tämä funktio havaitsee, onko väri värijärjestelmä, ja jos tämän arvo on true, näyttää palauttaa järjestelmän värin teeman värissä. Palautettu [[Longint]] voidaan ymmärtää tavalliseksi väriksi:
359429
360430``` pascal
361431// Tässä esimerkissä on TColorBox lomakkeellaa ja käyttää tämän OnChange-käsittelijää
362432procedure TForm1.ColorBox1Change(Sender: TObject);
363433var
364434 c: TColor;
365435begin
366436 c := ColorToRGB(ColorBox1.Selected);
367437 Caption := Format('R%d G%d B%d', [Red(c), Green(c), Blue(c)]);
368438end;
369439```
370440
371441### Piirrä teeman elementtejä mukautetuissa ohjauksissa (custom controls)
372442
373443Käännösyksikkö (unit) **Themes** tarjoaa funktioita, joilla piirretään standardinhallinnan yksittäisiä elementtejä. Esimerkiksi piirtomerkin piirtäminen kuten [[TTreeView]] käyttää seuraavaa koodia:
374444
375445``` pascal
376446uses Themes;
377447
378448...
379449
380450procedure TYourCustomControl.Paint;
381451const
382452 PlusMinusDetail: array[Boolean {Hot}, Boolean {Expanded}] of TThemedTreeview =
383453 (
384454 (ttGlyphClosed, ttGlyphOpened),
385455 (ttHotGlyphClosed, ttHotGlyphOpened)
386456 );
387457var
388458 Details: TThemedElementDetails;
389459 R: TRect;
390460 Collapse: boolean;
391461begin
392462 ...
393463 //draw a themed expand sign.
394464 Details := ThemeServices.GetElementDetails(PlusMinusDetail[False, Collapse]);
395465 R := Rect(ALeft, ATop, ARight + 1, ABottom + 1);
396466 ThemeServices.DrawElement(Canvas.Handle, Details, R, nil);
397467 ...
398468end;
399469```
400470
401471---
402472*From the Free Pascal wiki, page "Colors/fi", as it stood on 2020-07-24 after a change by Kai Burghardt, 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