TColorGrid einbinden

[Peter Hennek]

Hallo,

hat jemand ein kleines Beispiel für die Komponente TColorGrid.

Gruß ph

[Uli Becker]

Was ist TColorGrid

[Peter Hennek]

Hallo,
TColorGrid fand ich in Delphi 5 Enterprise in der Komponentenpalette unter Beispiele.

p

[Rainer Lötzsch]

Hallo Peter,

das ist relativ einfach. Die TCorloGrid hat die Eigenschaften backgroundcolor und foregroundcolor. Diese können zur Laufzeit
gesetz werden: linke Maus Vordergrund, rechte Maus Hintergrund.
Im Beispiel ändert die Edit-Komponente nach ihr aussehen:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ColorGrd, Buttons, StdCtrls;

type
TForm1 = class(TForm)
ColorGrid1: TColorGrid;
Edit1: TEdit;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Edit1.Color:=ColorGrid1.BackgroundColor;
Edit1.Font.Color:=ColorGrid1.ForegroundColor;
end;

end