Hallo,
in meinem Chatprogramm will ich dass die user eine Farbe auswählen können. Dazu habe ich die ColorGrid aus der Kategorie Beispiele eingefügt.
Quelltext
1:
2:
3:
| ListBox1: TListBox;
ColorGrid1: TColorGrid;
procedure Beenden1Click(Sender: TObject); |
Sie steht dabei drin! Jetzt will ich eine Funktion machen die die farbe zurück gibt. So hab ich sie eingebaut:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| FUNCTION GetFarbe(CodeStr : STRING) : STRING;
BEGIN
case ColorGrid1.ForegroundIndex of
0: GetFarbe:=clBlack;
1: GetFarbe:=clMaroon;
2: GetFarbe:=clGreen;
3: GetFarbe:=clOlive;
4: GetFarbe:=clNavy;
5: GetFarbe:=clPurple;
6: GetFarbe:=clTeal;
7: GetFarbe:=clSilver;
8: GetFarbe:=clGray;
9: GetFarbe:=clRed;
10: GetFarbe:=clLime;
11: GetFarbe:=clYellow;
12: GetFarbe:=clBlue;
13: GetFarbe:=clFuchsia;
14: GetFarbe:=clAqua;
15: GetFarbe:=clWhite;
end;
END; |
Aber beim compilieren kommt immer folgender Fehler:
Undefinierter Bezeichner: 'ColorGrid1'
Wieso kann ich das in der Funktion nicht ansprechen?
Gruss Andi
