netFrame-Syntax:
function color_dlg(aOldColor:TColor): TColor
Beschreibung:
color_dlg präsentiert dem Benutzer einen Farbdialog, aus sich der Benutzer eine Farbe auswählen kann.
Als Parameter aOldColor wird die aktuelle Farbe übergeben, damit diese gesetzt bleibt auch wenn der Benuter die Abbrechen
Schaltfläche drückt.
Falls der Benutzer die Eingabe bestätigt wird die neue Farbe als Rückgabe Wert geliefert.
Beispiel:
procedure panelColor_OnClick(Sender: Integer);
var
aColor: integer;
begin;
//Gibt es einen aktuellen Datensatz
if TableLookup.recordcount > 0 then
begin
//Holen wir uns die aktuelle Farbe in eine Variable
aColor := color_dlg(TableLookup.fieldByName('LU_COLOR').asInteger);
//Schreiben wir den Wert der Variable in die entsprechende Tabelle
TableLookup.Edit; //Datenmenge in Editier Modus versetzen
//Die Farbe in das entsprechende Feld schreiben
TableLookup.fieldByName('LU_COLOR').asInteger := aColor;
panelColor.color := aColor;
end;
end;