program Test_Kol;
{$DEFINE USE_MHTOOLTIP}

uses
 kol,
{  messages,}
 windows;

const
 faY = 32;

var
 MainForm : PControl;
 fbBut : array of PControl;
 colBut : Integer;
 IniFileName : AnsiString;

function MyMax(const A, B: Integer): Integer;
begin
 if A > B then Result := A
 else Result := B;
end;

procedure ButtonMyClick(Dummy : Pointer; Sender : PControl);
begin
 Text2Clipboard(Sender.Caption);
 MsgOK( 'Hello! ' + Sender.Caption);
//  Clipboard.AsText := (Sender as TButton).Hint;
end;

procedure MainIniWork(Write: Boolean);
var
 Ini : PIniFile;
 sec : PStrList;
 i, tmp, fiCol, fiRow,
 ic, ir, ih, iw :Integer;
 b : Boolean;
begin
 tmp := -1;
 fiCol := 0;
 fiRow := 0;

 Ini := OpenIniFile(IniFileName);
 Ini.Section := 'Form';
 if Write then begin
   Ini.Mode := ifmWrite;
 end;
//  MsgBox(Int2Str(MainForm.Top) + ' ' + Int2Str(MainForm.Left), MB_OK + MB_ICONINFORMATION);
 MainForm.Top  := Ini.ValueInteger('Top',  MainForm.Top);
 MainForm.Left := Ini.ValueInteger('Left', MainForm.Left);
 ih := Ini.ValueInteger('ButHeight', 45);
 iw := Ini.ValueInteger('ButWidth', 129);

 // если не запись, то читаем массив кнопок, создаем их и все настраиваем
 if not Write then begin
   b := Ini.ValueBoolean('Hints', True);
   sec := NewStrList;
   // получаем список секций
   Ini.GetSectionNames(sec);
   // находим и удаляем секцию [Form]
   for i := 0 to sec.Count - 1 do if sec.Items[i] = 'Form' then tmp := i;
   if tmp > -1 then begin
     sec.Delete(tmp);
   end;
//    MsgBox(sec.Text, MB_OK + MB_ICONINFORMATION);
   // запомним количнство кнопок для последующего удаления
   colBut := sec.Count;
   SetLength(fbBut, colBut);
   for i := 0 to colBut - 1 do begin
     // меняем секцию на кнопошную
     Ini.Section := sec.Items[i];
     ic := Ini.ValueInteger('Col', 0);
     ir := Ini.ValueInteger('Row', 0);
     fbBut[i] := NewButton(MainForm, Ini.ValueString('Caption', 'Отсутствует надпись'));
     fbBut[i].SetPosition(4 + (ic * iw), 4 {+ faY} + (ir * ih));
     fbBut[i].SetSize(iw, ih);
     fbBut[i].ResizeParent;
//      fbBut[i].Hint := Ini.ValueString('Value', 'Отсутствует надпись');
//      fbBut[i].ShowHint := b;

     fbBut[i].OnClick := TOnEvent(MakeMethod(nil, @ButtonMyClick));
     fiCol := MyMax(fiCol, ic);
     fiRow := MyMax(fiRow, ir);
   end;
   MainForm.SetClientSize(8 + ((fiCol + 1) * iw), 8 {+ faY} + ((fiRow + 1) * ih));
   sec.Free;
 end;
 Ini.Free;
end;

procedure MainDestroy(Dummy: Pointer; Sender: PObj);
begin
//  MsgBox('Destroy ' + Int2Str(MainForm.Top) + ' ' + Int2Str(MainForm.Left), MB_OK + MB_ICONINFORMATION);
 MainIniWork(True);
end;

begin
 IniFileName := ChangeFileExt(ParamStr(0), '.ini');
 Applet := NewApplet('Данные в буфер');
 MainForm := NewForm(Applet, 'To');
 MainForm.Visible := False;
 MainForm.CreateWindow;

 MainIniWork(False);
 MainForm.OnDestroy := TOnEvent(MakeMethod(nil, @MainDestroy));
 MainForm.Show;
 Run(Applet);
 SetLength(fbBut, 0);
 Applet.Free;
 IniFileName := '';
end.