[angvelem]

Собственно сабж. Написано без использования VCL, "голое" API. От идеи ART-а взята форма настройки ну и плывущий текст, а вот до выделения ключевых слов цветом и жирностью руки не дошли. Проверял в XP и 7-ке.
coderun.rar

[ART]

Хм, интересно. В принципе, я против выделения слов. Ведь можно запихнуть туда какой угодно текст и читать, учить, да и делфийский код не всем по духу

[angvelem]

А у меня там в диалоге выбора файла имеется выбор по типам.

[Aristarh Dark]

Прикольно.

[M.A.D.M.A.N.]

По моему, это уже перебор.

[angvelem]

В чём собственно?

[einstein]

не работает превью. изображение на нем пропадает если окно было перекрыто. настройки не модально относительно окна свойств экрана.

[angvelem]

У меня таких проблем не было, есть претензии указывайте ОС.

[einstein]

windows xp

[NumLock]

Код:

procedure RunSettings(AParent: HWND);
begin
  DialogBoxParam(hInstance, MAKEINTRESOURCE(ID_SETTINGS), AParent, @SettingsDialogProc, ord(Settings.szFile <> ''));
end;

    case Command of
      'c', 'C' : RunSettings(StrToIntDef(Copy(ParamStr(1), 4,
        Length(ParamStr(1))), 0));		// Executing dialogue of the settings

Код:

function StrToIntDef(const S: String; Default: Integer): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E<>0 then Result:=Default;
end;

на 7 после перекрытия все ок, но картинка превью исчезает после перемещения окна свойств экрана за пределы экрана и обратно.

[angvelem]

Да, я об этом не подумал. Там идёт разовое копирование в контекст, без обновления.

[angvelem]

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

[code]... на 7 после перекрытия все ок ...

Спасибо, а то я пытался ParamStr(2) мучать и не мог понять куда хэндл делся.