Sign in Join
Wiki copytemporary

TColorListBox/eo: what changed

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

OldNewLine
11![](/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]].
22
33La specifaj tajtoj de la `TColorListBox` estas:
44
55- `ColorRectOffset` - marĝeno ĉirkaŭ ĉiu kolora rektangulo.
66- `ColorRectWidth` - larĝo de kolora rektangulo
77- `Style` - difinas la elementoj montritaj en la listujo, kaj kiel la koloroj estas nomitaj.
88 - `cbStandardColors` - inkluzivas la 16 LCL laŭnormaj koloroj en la listo, ekz. `clRed` or `clBlue`
99 - `cbExtendedColors` - inkluzivas la 4 LCL etenditaj koloroj: `clMoneyGreen`, `clSkyBlue`, `clCream`, `clMedGray`
1010 - `cbSystemColors` - inkluzivas la OS- kaj etoso-dependitaj sistemaj koloroj
1111 - `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.
1212 - `cbIncludeDefault` - inkluzivas la specialan koloron `clDefault`. Atributo `DefaultColorColor` determinas la faktan koloron montritan.
1313 - `cbCustomColor` - la unua listujo de elementoj estas adaptebla pere de la laŭnorma kolora dialogo.
1414 - `cbPrettyNames` - montras "belajn" kolorajn nomojn apud la kolorujoj, ekz. 'Ruĝa'. Sen tiu ĉi opcio la internaj koloraj nomoj estas uzataj, ekz. 'clRuĝa'.
1515 - `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:
1616
1717``` Pascal
1818 procedure TForm1.ColorListBox1GetColors(Sender: TCustomColorListBox; Items: TStrings);
1919 begin
2020 Items.AddObject('Gold', TObject(PtrInt($00D7FF)));
2121 Items.AddObject('Chocolate', TObject(PtrInt($1E69D2)));
2222 Items.AddObject('Light blue', TObject(PtrInt($E6D8AD)));
2323 end;
2424```
2525
26-\
2726==Ankaŭ vidu ==
2827
2928- [[doc:lcl/colorbox/tcolorlistbox.html|TColorListBox doc]]
3029- [[TColorBox]]
3130- [[TListBox]]
3231
3332---
3433*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