Sign in Join
Wiki copytemporary

TColorListBox/eo: what changed

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

Title: TColorListBox/eo

OldNewLine
1+![](/wiki-images/8/8f/Tcolorlistbox_screenshot.png) **TColorListBox** ![](/wiki-images/7/72/Tcolorlistbox.png) estas komponanto kiu montras (rulumeblan) liston de koloroj el kiuj la uzanto povas elekti. Ĝi haveblas el la [[Additional tab|Aldonaj langeto]] de la [[Component Palette|Componanto paletro]].
2+
3+La specifaj tajtoj de la `TColorListBox` estas:
4+
5+- `ColorRectOffset` - marĝeno ĉirkaŭ ĉiu kolora rektangulo.
6+- `ColorRectWidth` - larĝo de kolora rektangulo
7+- `Style` - difinas la elementoj montritaj en la listujo, kaj kiel la koloroj estas nomitaj.
8+ - `cbStandardColors` - inkluzivas la 16 LCL laŭnormaj koloroj en la listo, ekz. `clRed` or `clBlue`
9+ - `cbExtendedColors` - inkluzivas la 4 LCL etenditaj koloroj: `clMoneyGreen`, `clSkyBlue`, `clCream`, `clMedGray`
10+ - `cbSystemColors` - inkluzivas la OS- kaj etoso-dependitaj sistemaj koloroj
11+ - `cbIncludeNone` - inkluzivas la specialan koloron `clNone`. Uzu la atributon `NoneColorColor` por determini la anstataŭiga koloro. Se oni aplikas la `NoneColorColor` al `clNone` la kolora rektangulo montras forstrekita kadro kiel multaj desegnaĵaj programoj.
12+ - `cbIncludeDefault` - inkluzivas la specialan koloron `clDefault`. Atributo `DefaultColorColor` determinas la faktan koloron montritan.
13+ - `cbCustomColor` - la unua listujo de elementoj estas adaptebla pere de la laŭnorma kolora dialogo.
14+ - `cbPrettyNames` - montras "belajn" kolorajn nomojn apud la kolorujoj, ekz. 'Ruĝa'. Sen tiu ĉi opcio la internaj koloraj nomoj estas uzataj, ekz. 'clRuĝa'.
15+ - `cbCustomColors` - inkluvizas la uzanto-provizitaj koloroj je la fino de la listo. La koloroj devas esti difinitaj pere de stringlist en la `OnGetColors` evento, kiel ĉi tiu:
16+
17+``` Pascal
18+ procedure TForm1.ColorListBox1GetColors(Sender: TCustomColorListBox; Items: TStrings);
19+ begin
20+ Items.AddObject('Gold', TObject(PtrInt($00D7FF)));
21+ Items.AddObject('Chocolate', TObject(PtrInt($1E69D2)));
22+ Items.AddObject('Light blue', TObject(PtrInt($E6D8AD)));
23+ end;
24+```
25+
26+\
27+==Ankaŭ vidu ==
28+
29+- [[doc:lcl/colorbox/tcolorlistbox.html|TColorListBox doc]]
30+- [[TColorBox]]
31+- [[TListBox]]
32+
33+---
34+*From the Free Pascal wiki, page "TColorListBox/eo", as it stood on 2021-09-28 after a change by Deadmarshal, 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