function color_dlg(aOldColor:TColor): TColor

Modified on 13/02/2008 11:31 by manuel Categorized as Nicht kategorisiert

((([image| |http://www.cp-austria.at/website/DesktopModules/Wiki/images/Home.gif|MainPage] » [MainPage|Startseite] » [netFramePlattform|netFrame als Plattform Menü] » [GlobaleMethoden|Globale Methoden] | {searchbox} [Search.aspx?FullText=1|Erweiterte Suche])))

'''netFrame-Syntax:{BR}
function''' color_dlg(aOldColor:TColor): TColor{BR}
{BR}
'''Beschreibung:'''{BR}
color_dlg präsentiert dem Benutzer einen Farbdialog, aus sich der Benutzer eine Farbe auswählen kann.{BR}
Als Parameter aOldColor wird die aktuelle Farbe übergeben, damit diese gesetzt bleibt auch wenn der Benuter die Abbrechen{BR} Schaltfläche drückt.{BR}
Falls der Benutzer die Eingabe bestätigt wird die neue Farbe als Rückgabe Wert geliefert.{BR}
{BR}
'''Beispiel:'''{BR}
{BR}
[image| |http://svn.cp-austria.at/doc_netframe/lib/exe/fetch.php?w=&h=&cache=cache&media=script:color_dlg.jpg]{BR}
{BR}
{{{{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;}}}}

CP Wiki

Navigation¶

function color_dlg(aOldColor:TColor): TColor