Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Probleme mit ColorGrid beispiel


Andi1982KA - Sa 16.11.02 00:36
Titel: Probleme mit ColorGrid beispiel
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


Anonymous - Sa 16.11.02 01:00
Das Problem ist hier:


Quelltext 
1:
 
FUNCTION GetFarbe(CodeStr : STRING) : STRING;


Das ist eine eigenständige Funktion, die kennt kein ColorGrid1. Wenn, dann bitte


Quelltext 
1:
 
     case Form1.ColorGrid1.ForegroundIndex of


oder unter Private anmelden


Quelltext 
1:
2:
3:
 
  private 
    { Private-Deklarationen }
    FUNCTION GetFarbe(CodeStr : STRING) : STRING;


dann muß die Funktion so aussehen


Quelltext 
1:
 
FUNCTION TForm1.GetFarbe(CodeStr : STRING) : STRING;


Andi1982KA - Sa 16.11.02 16:25
Ok, vielen Dank.

Bin mal gespannt


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!