Выбор цвета

[DANIЯR]

Сообщение от Sm1Le

*.ini - Насколько я понял это ? - Если я правильно то это это файл-конфигурация Создаешь его сам и хранишь в нем информация которую тебе надо, собственно такой же файл как и тхт, просто с нужной тебе информацией, и в нужный тебе момент заходишь и считываешь информацию =)

А ну тогда понятно.

[DANIЯR]

А кто мне подскажет как TColorGrid присобачить к форме?

procedure TForm1.ColorGrid1Change(Sender: TObject);
begin

end;

end.

[Terran]

Сообщение от DANIЯR

А кто мне подскажет как TColorGrid присобачить к форме?

procedure TForm1.ColorGrid1Change(Sender: TObject);
begin

end;

end.

Можно сделать так:

Procedure TForm1.ColorGrid1Change(Sender: TObject);
Begin
Form1.Color:=ColorGrid1.ForegroundColor;
End;

[DANIЯR]

Сообщение от Terran

Можно сделать так:

Procedure TForm1.ColorGrid1Change(Sender: TObject);
Begin
Form1.Color:=ColorGrid1.ForegroundColor;
End;

Кулл!

А чтобы запоминало цвет можно какнибудь еще, или как сказали только в "ини"

[_Engine_]

Можешь еще в реестре хранить информацию, в ресурсах приложения и т.д. и т.п.

[DANIЯR]

А как сделать, какой компанент для этого нужен?

[mihali4]

Хэлп. В нем - TIniFile.
Хэлп. В нем - TRegIniFile.
Или хэлпом пользоваться после "месяца в Дельфи" тоже никак?
Клавиша F1.

[Alter]

Проще сохранить в файл при помощи Write:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ColorGrid1: TColorGrid;
    procedure ColorGrid1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Const SavPath :String = 'C:\Flash.dat'; // Путь для сохранения. <- НАПРИМЕР

var
  Form1: TForm1;
  Procedure SaveColor(Path :String; C :TColor); // сохранение значения
  Function ReadColor(Path :String; def :TColor = clYellow):TColor; // чтение значения

implementation

{$R *.dfm}

procedure TForm1.ColorGrid1Change(Sender: TObject);
begin // выбор цвета
 Color := ColorGrid1.ForegroundColor; // цвет выбирается левой кнопкой мыши, ставится на форме
end;

Procedure SaveColor(Path :String; C :TColor);
Var F :File of TColor;
begin // сохранение значения
 AssignFile(F, Path);
  {$I-}
 ReWrite(F);
  {$I+}
 If IOResult<>0 then
 begin
  Windows.Beep(1500, 200);
  ShowMessage('Файл не создан!');
  Exit;
 end;
 Write(F, C);
 CloseFile(F);
end;

Function ReadColor(Path :String; def :TColor = clYellow{цвет по умолчанию, если нет файла}):TColor;
Var F :File of TColor; buf :TColor;
begin // чтение значения
  Result := def;
 If Not FileExists(Path) then
 begin
  Windows.Beep(1500, 200);
  ShowMessage('Файл несуществует!');
  Exit;
 end;
 AssignFile(F, Path);
  {$I-}
 ReSet(F);
  {$I+}
 If IOResult<>0 then
 begin
  Windows.Beep(1500, 200);
  Exit;
 end;
 Read(F, buf);
  Result := buf;
 CloseFile(F);
end;

procedure TForm1.FormCreate(Sender: TObject);
Var C :TColor;
begin // загружаем цвет
 C := ReadColor(SavPath, clRed); // второй параметр необязательно писать при вызове функции, по умолчанию будет Жёлтый цет
 ColorGrid1.ForegroundIndex := ColorGrid1.ColorToIndex(C); 
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin // Сохраняем цвет
 SaveColor(SavPath, ColorGrid1.ForegroundColor);
end;

end.

___________________________________ __________________________
Заметил, что на простые вопросы отвечают сложными методами:
Например:
Q: Как сохранить строку в файл?
A: При помощи INI, Реестр, потоки.

Q: Как построить график функции xxx в дельфи?
A: при помощи DirectX или OpenGL

[SERG1980]

INI
загрузка

procedure TForm1.FormCreate(Sender: TObject);
var inifile:TIniFile;
begin
 inifile:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'MyIni.ini');
 try
  form1.Color:=inifile.ReadInteger('Общие','Фон',clgray);
 finally
 inifile.free;
 end;
end;

сохранение

procedure TForm1.FormDestroy(Sender: TObject);
var inifile:Tinifile;
begin
 inifile:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'Myini.ini');
 try
  inifile.WriteInteger('Общие','Фон',form1.Color);
 finally
  inifile.Free;
 end;
end;