Часто задаваемые вопросы о KOL и MCK

Вопрос : Как поменять иконку у формы (Design-Time)?

1. Установиливаем KOLProject1.dprResource:=True
2. Delphi-Menu->Project->Options->Application->Icon->Load Icon (Выбираем нужную иконку)

1. Создаем в Блокноте новый файл: ITISWILLBEICONNAME ICON "MySuperIcon.ico"
2. Сохраняем его как MyIconResoure.rc
3. Берем нужную нам иконку и переименовываем в MySuperIcon.ico
4. Ищем файл BRCC32.EXE (если есть Дельфи, есть и он)
5. Перетаскиваем на него (на файл BRCC32.EXE) MyIconResoure.rc и получаем MyIconResoure.Res
6. Копируем MyIconResoure.Res в папку с проектом
7. Пишем в программе код: {$R MyIconResoure.RES}
8. Ставим KOLForm1 (Ту KOL-форму, у которой надо поменять иконку) свойство Icon:= ITISWILLBEICONNAME

1. Rebuild-им проект (В случаи I, Дельфи выдаст ошибку - "Can not find resource file: *. Recreated.", все нормально, жмем OK)
2. Долго радуемся

Наверх

Вопрос : Где StrToInt (и IntToStr) в KOL ?

Наверх

Вопрос : Что такое KOL? Что такое MCK?

Наверх

Вопрос : Зависит ли размер программы, сделанной с помощью KOL, от версии Delphi?

Наверх

Вопрос : Библиотека KOL развивается, добавляются новые события, свойства, методы. Не опасаетесь ли Вы, что ваша библиотека раздуется до таких же размеров, как VCL? (И в чем тогда смысл изобретать велосипед...)

Наверх

Вопрос : Я устанавливаю дополнительный MCK-компонент XXXXX в Delphi6. Создаю package, добавляю модуль XXXXX.pas, пытаюсь package установить, а в ответ получаю сообщение, что не найден модуль Proxies.dcu. И где я только такой модуль не искал, не могу найти. Что делать?

Наверх

Вопрос : У меня в MirrorKOLPackageD6 (MirrorKOLPackageD7) уже имеется ссылка на designide.dcp, но проект не компилируется: Delphi требует файл proxies.pas (dsgnintf.pas). Где взять такой файл?

Наверх

Вопрос : Я использую замену sys*.dcu, но не могу использовать Write и другие подобные функции для работы с текстовыми файлами. Как мне заставить их работать?

1. Прочитать readme.txt :).
2. Вызвать процедуру UseInputOutput (один раз, например в dpr-файле).

Наверх

Вопрос : Я не использую замену sys*.dcu, но не могу использовать try-except. Что нужно сделать, чтобы обработка исключительных ситуации работала правильно?

Наверх

Вопрос : Как реализовать кнопку по умолчанию, срабатывающую на нажатию клавиши Enter или Escape?

Наверх

Вопрос : У меня установлен шрифт 125%. В VCL есть у формы свойство Scaled. Достаточно поставить его в False, и надписи на кнопках, метках и т.д. помещаются вне зависимости от разрешения экрана. Как сделать то же самое в KOL?

Наверх

Вопрос : Когда используется переменная Applet, анимация при минимизации происходит не с позиции главной формы, а от верхнего левого угла экрана. Как это поправить?

function TSomeObject.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
  if (Msg.message = WM_MOVE) or (Msg.message = WM_SIZE) then
    Applet.BoundsRect := Form.BoundsRect;
  Result := False;
end;

Наверх

Вопрос : Как сделать DLL, содержащую форму, изготовленную в KOL, и правильно вызвать ее?

function ExecuteKOLform( < some parameters > ): Integer; stdcall;
var MyKOLForm: PControl;
begin
  Applet := NewApplet( '' );
  MyKOLForm := NewForm( Applet, 'DllKolForm' );
  ... { здесь создать прочие элементы формы, проинициализировать, ... }
  MyKOLForm.ShowModal;
  ... { здесь можно прочитать состояние некоторых 
  визуальных элементов, поскольку они все еще существуют }
  Applet.Free;
end;

Наверх

Вопрос : Как правильно оформить вызов модальной формы?

// показ модального диалога с его созданием непосредственно перед
// началом диалога и с разрушением ? после
procedure TForm1.Button1Click(Sender: PObj);
begin
  NewForm2( Form2, Applet );
  { insert here any code to make changes before showing Form2 }
  Form2.Form.ShowModal;
  { insert here any code to read some data from Form2 }
  Form2.Form.Free; // нельзя использовать Close !
  //ShowMessage( 'End of TForm1.Button1Click' );
end;

// Для такого варианта достаточно определить вот такой обработчик
// какой?либо кнопки (но и он не требуется ? достаточно закрыть форму
// обычным образом, нажимая "крестик" в заголовке окна.
procedure TForm2.Button1Click(Sender: PObj);
begin
  Form.ModalResult := 1; // любое значение <> 0
end;

// Показ диалога модально:
procedure TForm1.Button1Click(Sender: PObj);
begin
  Form2.Form.ShowModal;
  Form2.Form.Hide;
end;

// Завершение диалога по кнопке:
procedure TForm2.Button1Click(Sender: PObj);
begin
  Form.ModalResult := 1;
end;

// Обязательно надо определить событие OnClose и предотвратить в нем
// закрытие формы:
procedure TForm2.KOLForm1Close(Sender: PObj; var Accept: Boolean);
begin
  Accept := FALSE;        // предотвращаем закрытие формы
  Form.ModalResult := ―1; // любое значение <> 0
end;

Наверх

Вопрос : Возможно ли разрабатывать DLL, содержащую формы KOL визуально, используя MCK?

Наверх

Вопрос : Я хочу перемещать кнопку (или другой визуальный элемент) с помощью мыши. Как это сделать?

procedure TForm1.BitBtn1MouseMove(Sender: PControl; var Mouse: TMouseEventData);
begin
  if FBtn1Down then
    BitBtn1.DragStartEx;
end;

procedure TForm1.BitBtn1MouseDown(Sender: PControl; var Mouse: TMouseEventData);
begin
  if Mouse.Button = mbLeft then
  FBtn1Down := TRUE;
end;

procedure TForm1.BitBtn1MouseUp(Sender: PControl; var Mouse: TMouseEventData);
begin
  FBtn1Down := FALSE;
  BitBtn1.DragStopEx;
end;

procedure TForm1.Panel1MouseDown(Sender: PControl; var Mouse: TMouseEventData);
begin
  Panel1.DragStart;
end;

Наверх

Вопрос : Как рисовать прямо на рабочем столе, используя объект канвы (PCanvas) ?

procedure TForm1.Toolbar1TB1Click(Sender: PControl; BtnID: Integer);
var
  C: PCanvas;
  D: HDC;
begin
  D := GetDC( 0 );
  C := NewCanvas( D );

  C.LineTo( 400, 400 ); // используем здесь методы и свойства TCanvas

  C.Free;
  ReleaseDC( 0, D );
end;

Наверх

Вопрос : Есть ли возможность в KOL работать с текстом через буфер обмена ?

Наверх

Вопрос : При генерации raise в программе,запущенной в Delpi IDE, и прога и делфи виснут. Что делать и как жить ?

{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes,
Controls, mckCtrls, StdCtrls {$ENDIF}, err;
{$ELSE}

procedure TForm1.Button1Click(Sender: PObj);
begin
try
  raise Exception.Create( e_Custom, 'raise' );
finally
//except //можно и эту строчку вместо finally выше
ShowMessage( 'finally' );
end;
end;

Наверх

Вопрос : Есть ли в KOL готовый компонент-аналог TPageControl для VCL?

Наверх

Вопрос : Где найти новые версии KOLnMCK?

Наверх

Вопрос : В новостях написано вышла версия XYZ, а на сайте (Кладова - оффициальном!) выложенна ABC ( XYZ>ABC ), че за беспридел?

Наверх

Вопрос : Ну есть у меня XYZ.upd и что дальше, как Update применять?

1. Копируем XYZ.upd в папку с оригинальной версией KOLnMCK для которой предназначен upd-файл.
2. Копируем туда же Updater.
3. Запускаем Updater.
4. Все!

Наверх