[Delphi] proste pytanka!!!!

Może już to kiedyś było, ale zapytam od razu o wszystko:

1. Jak dodać pozycję do ComboBox (ręcznie i programowo)?

2. Jak pobrać nazwę wybranego elementu z ComboBox?

3. Jak zrobić, aby jako elementy ComboBox były kolory (takie wybór koloru - czyli kolorowe kwardaty)?

4. Jak można zapisać do pliku tekstowego nazwę czcionki wybranej w FindDialog? - jako string

5. Jak się pozbyć przycisku "zastosuj" na FontDialog (opcja Apply Button ustawiona jest na False i nic to nie daje).

6. Mam kilka form i na nich są highliters`y. Jak chcę jakiś skonfigurować/zmienić to potem musze skopiować go wszystkie formy. Gdzie mam je umieścić, aby działały we wszystkich formach?

1. Jak dodać pozycję do ComboBox (ręcznie i programowo)?
   combobox1.items.add('');

2. Jak pobrać nazwę wybranego elementu z ComboBox?
   string = combobox1.items[numer];

3. Jak zrobić, aby jako elementy ComboBox były kolory (takie wybór koloru - czyli kolorowe kwardaty)?
   znowu patrze na twoja łeb :) tak to wytlumaczyles :)

4. Jak można zapisać do pliku tekstowego nazwę czcionki wybranej w FindDialog? - jako string
   hmmm przez assign to bedzie:
   var
   f : file; s : string;
   begin
   assignfile(f,'plik.font');
   rewrite(f,1);
   s := fontdialog1.font.name;
   blockwrite(f,s,sizeof(s)); //jakby nie zadzialalo to bedzie trza bufor zrobic z stringa :)
   closefile(f);
   end;

5. Jak się pozbyć przycisku "zastosuj" na FontDialog (opcja Apply Button ustawiona jest na False i nic to nie daje).

chyba masz w inspekktorze obiektow takie cos jak options czy jakos tak poodznaczaj tamco sie da :P

6. Mam kilka form i na nich są highliters`y. Jak chcę jakiś skonfigurować/zmienić to potem musze skopiować go wszystkie formy. Gdzie mam je umieścić, aby działały we wszystkich formach?
   po pierwsze na byle jakiej formie bez kopiowania :) musisz tylko wziąć i dodać do sekcji uses unit, wktorym znajudje się ten komponęt :)
   bo to co robisz jest chore :)

ad 1.
Combobox.items.add('Cos');
combobox.items.add(combobox.text);

ad2.
label.caption:=combobox.items[numer_wybranejpozycji];

ad4.
var s:string;
if fontdialog.execute then s:=findialog.font.name;
a S do pliku to chyba umiesz zapisac :)

ad5.
a u mnie to działa

Dopisane: jak zwykle sie spoznilem :)

ad 3 - na zakładce additional jest komponent TColorBox. Możesz też narysować sobie kolorowe kwadraty wsadzić do ImageList i skorzystać z TComboBoxEx

Ad 1)
Programowo to tak jak pisali poprzednicy, a ręcznie: w Inspektorze Obiektów edytujesz właściwość Items.
Ad 2)
Hmm... co rozumiesz przez wybraną pozycję, bo jeżeli wybrana pozycją jest ta, która zaznaczył użytkownik to kod będzie wyglądał mniej więcej tak:

if ComboBox1.ItemIndex -1 then
ShowMessage('Wybrano: '+ComboBox1.Items[ComboBox1.ItemIndex]);

Ad 3)
Poczekaj aż Sheitar zajrzy na forum ;) on miał podobny kod w swoim programie do obliczania rezystancji oporników na podstawie kodu paskowego rezystora :)

No wiec najpierw trzeba wiedziec jakie kolorki, można to zrobić tak:
[code]
Lista: array[0..11] of TColor;
Nazwa: array[0..11] of String;
// a potem w Oncreate czy gdzieś
Lista[0]:=clBlack;
Nazwa[0]:='Czarny';
Lista[1]:=clMaroon;
Nazwa[1]:='Brązowy';
Lista[2]:=clRed;
Nazwa[2]:='Czerwony';
Lista[3]:=TColor($0060FF);
Nazwa[3]:='Pomarańczowy';
Lista[4]:=clYellow;
Nazwa[4]:='Żółty';
Lista[5]:=clGreen;
Nazwa[5]:='Zielony';
Lista[6]:=clBlue;
Nazwa[6]:='Niebieski';
Lista[7]:=clFuchsia;
Nazwa[7]:='Fioletowy';
Lista[8]:=clGray;
Nazwa[8]:='Szary';
Lista[9]:=clWhite;
Nazwa[9]:='Biały';
Lista[10]:=TColor($00C0C0);
Nazwa[10]:='Złoty';
Lista[11]:=clSilver;
Nazwa[11]:='Srebrny';
// no i do tego trzeba by włączyć OwenrDraw i go obsłużyć w OnDrawtem
with ComboBox1.Canvas do
begin
FillRect(Rect);
Pen.Color:=clBlack;
Brush.Style:=bsSolid;
Brush.Color:=Lista[Index+1];
Rectangle(Rect.Left+1,Rect.Top+1,Rect.Left+16,Rect.Top+16);
Brush.Style:=bsClear;
TextOut(Rect.Left+20, Rect.Top+1, Nazwa[Index+1]);
end;
[/code]

Dzeki LKS za znalezienie kodu :)

3. W moim Delphi jest do tego standardowy komponent (D7).

3. W moim Delphi jest do tego standardowy komponent (D7).

W D6 tez. Nazywa sie ColorBox i jest na zakladce Additional.

Ale robiąc to po swojemu można mieć kolorki po polsku ;) i dobrze też wiedzieć jak coś takiego zrobić :)

Ale robiąc to po swojemu można mieć kolorki po polsku ;) i dobrze też wiedzieć jak coś takiego zrobić :)

Przecież jest tam właściwość z nazwami do wpisania.

1.W jaki sposób można przeszukać wszystkie foldery udostępnione w sieci.
2.Jakim poleceniem udostępniać pliki i foldery w sieci.
3.Jak odczytywać teksty z zasobów.
4.Jak pobrać numery IP wszystkich komputerów w sieci.
5.Jak pobrać numer IP komputera.
[email protected]

Na wszystkie pytania prócz1 masz odp gdzieś na forum lub na stronie ;)