У меня возникла такая проблема... У меня ToolBar расположен на панели чёрного цвета, и мне нужно поменять цвет шрифта ToolBar'a на белый, но при изменении font.color ничего не происходит. Как мне сменить цвет?
P.S. И ещё один вопрос не в тему. Подскажите кто нибудь, как осуществить ассоциацию различных форматов файлов с моей программой. Облазил большое кол-во сайто по программированию, но ответ так и не нашёл.

> У меня возникла такая проблема... У меня ToolBar расположен
> на панели чёрного цвета, и мне нужно поменять цвет шрифта
> ToolBar'a на белый, но при изменении font.color ничего не
> происходит. Как мне сменить цвет?

Что-то мне сдается, что никак.


> P.S. И ещё один вопрос не в тему. Подскажите кто нибудь,
>  как осуществить ассоциацию различных форматов файлов с
> моей программой. Облазил большое кол-во сайто по программированию,
>  но ответ так и не нашёл.


function GetAssociation(FileExt: KOLString): KOLString;
var Key: HKey;
   S: KOLString;
begin
   Result:= '';
   Key:= RegKeyOpenRead(HKEY_CLASSES_ROOT, FileExt);
   if Key = 0 then Exit;
   S:= RegKeyGetStr(Key, '');
   RegCloseKey(Key);
   Key:= RegKeyOpenRead(HKEY_CLASSES_ROOT, S+'\Shell\Open\command');
   if Key = 0 then Exit;
   Result:= RegKeyGetStr(Key, '');
   RegCloseKey(Key);
end;

function SetAssociation(FileExt, Name, Command: KOLString): Boolean;
var Key: HKey;
begin
   Result:= False;
   Key:= RegKeyOpenCreate(HKEY_CLASSES_ROOT, FileExt);
   if Key = 0 then Exit;
   if not RegKeySetStr(Key, '', Name) then Exit;
   RegCloseKey(Key);

   Key:= RegKeyOpenCreate(HKEY_CLASSES_ROOT, Name+'\Shell\Open\command');
   if Key = 0 then Exit;
   Result:= RegKeySetStr(Key, '', Command);
   RegCloseKey(Key);
end;

Удалено модератором

Что-то задвоилось.
А использовать примерно так:

S:= GetAssociation('.ext');

SetAssociation('.ext', 'ExtensionName', '"' + <AppName> + '"  "%1"');

Спасибо!

Так, возникла одна проблема... Я перехватываю параметр имени файла с помощью paramstr(1), но после загрузки файла в прогу вылетает ошибка, что не найден указанный файл, хотя в прогу он уже загрузился. Как быть?

> но после загрузки файла в прогу вылетает ошибка, что не
> найден указанный файл, хотя в прогу он уже загрузился.

Что-то не понял. Примерчик покажите, что делаете?

procedure Form1.KOLForm1FormCreate(Sender: PObj);
var
s:string;
begin
s:=paramstr(1);
if s<>'' then
begin
bmp.LoadFromFile(s);
bmp.Draw(......);
end;
end;
Так вот, после того, как битмап уже прорисовался, вылетает сообщение Виндовс, что только что загруженный файл не найден.