Delphi Schiebregler (Sierpinski Dreieck)

[DeddyH]

Z.B. so etwas:

Delphi-Quellcode:

unit Nix;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private-Deklarationen }
    //private Methode, die bei Änderung der Trackbar aufgerufen wird
    procedure DoOnChange(Value: integer);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.DoOnChange(Value: integer);
begin
  //übergebene Zahl auswerten und Farbe entsprechend setzen
  case Value of
    0,1: Color := clRed;
    2,3: Color := clGreen;
    4,5: Color := clBlue;
    6,7: Color := clYellow;
    8,9: Color := clFuchsia;
    else  Color := clBtnFace;
  end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  //private Methode aufrufen, dabei Position übergeben
  DoOnChange(TrackBar1.Position);
end;

end.