Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ToolBar [Delphi, Windows]

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

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

mdw (2007-12-14 14:15:00) [2]

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

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

!Pharaon! (2007-12-14 09:03:00) [3]
Так, возникла одна проблема... Я перехватываю параметр имени файла с помощью paramstr(1), но после загрузки файла в прогу вылетает ошибка, что не найден указанный файл, хотя в прогу он уже загрузился. Как быть?

!Pharaon! (2007-12-14 08:59:00) [4]
Спасибо!

mdw (2007-12-13 11:52:00) [5]
Что-то задвоилось.
А использовать примерно так:

S:= GetAssociation('.ext');

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

mdw (2007-12-13 11:45:00) [6]

> У меня возникла такая проблема... У меня 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;

mdw (2007-12-13 11:45:00) [7]
Удалено модератором

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »