meine Shift taste ist defekt
http://img107.imageshack.us/img107/4...benannt4tt.jpg
ich habe zwei Farben und so ein array(TypKonst)
Delphi-Quellcode:
cFigurenArray: array [1..cAnzTestdaten] of TFigur =
((pen:clblack; brush: clgreen; Figurentyp: Rechteck;
Rechteck_Daten: (P1:(x:10;y:10); P2:(x:100;y:100))),
(pen:clblue; brush: clred; Figurentyp: Kreis;
Kreis_Daten: (Aussenpunkt:(x:100;y:150); Durchmesser:200)),
(pen:clred; brush: clyellow; Figurentyp: Dreieck;
Dreieck_Daten: ((x:100;y:100),(x:100;y:350),(x:450;y:400))));
nun muss ich die Farben zB
Zitat:
pen:clblack; brush: clgreen;
durch druck auf den Button in die color Boxen zuweisen,also wenn als
standart schwarz stand muss jetzt pen:clblack; und brush: clgreen; stehen.Die sollen nun gewählt sein!
hoffe jetzt ist es verständlicher