TColorListBox/eo
English · Esperanto · Français · Suomi · Русский
TColorListBox
estas komponanto kiu montras (rulumeblan) liston de koloroj el kiuj la uzanto povas elekti. Ĝi haveblas el la Aldonaj langeto de la Componanto paletro.
La specifaj tajtoj de la TColorListBox estas:
ColorRectOffset- marĝeno ĉirkaŭ ĉiu kolora rektangulo.ColorRectWidth- larĝo de kolora rektanguloStyle- difinas la elementoj montritaj en la listujo, kaj kiel la koloroj estas nomitaj.cbStandardColors- inkluzivas la 16 LCL laŭnormaj koloroj en la listo, ekz.clRedorclBluecbExtendedColors- inkluzivas la 4 LCL etenditaj koloroj:clMoneyGreen,clSkyBlue,clCream,clMedGraycbSystemColors- inkluzivas la OS- kaj etoso-dependitaj sistemaj kolorojcbIncludeNone- inkluzivas la specialan koloronclNone. Uzu la atributonNoneColorColorpor determini la anstataŭiga koloro. Se oni aplikas laNoneColorColoralclNonela kolora rektangulo montras forstrekita kadro kiel multaj desegnaĵaj programoj.cbIncludeDefault- inkluzivas la specialan koloronclDefault. AtributoDefaultColorColordeterminas la faktan koloron montritan.cbCustomColor- la unua listujo de elementoj estas adaptebla pere de la laŭnorma kolora dialogo.cbPrettyNames- montras "belajn" kolorajn nomojn apud la kolorujoj, ekz. 'Ruĝa'. Sen tiu ĉi opcio la internaj koloraj nomoj estas uzataj, ekz. 'clRuĝa'.cbCustomColors- inkluvizas la uzanto-provizitaj koloroj je la fino de la listo. La koloroj devas esti difinitaj pere de stringlist en laOnGetColorsevento, kiel ĉi tiu:
procedure TForm1.ColorListBox1GetColors(Sender: TCustomColorListBox; Items: TStrings);
begin
Items.AddObject('Gold', TObject(PtrInt($00D7FF)));
Items.AddObject('Chocolate', TObject(PtrInt($1E69D2)));
Items.AddObject('Light blue', TObject(PtrInt($E6D8AD)));
end;==Ankaŭ vidu ==
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.