ToolBar

← →
!Pharaon! (2007-12-12 22:54) [0]

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

← →
mdw © (2007-12-13 11:45) [1]

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

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

← →
mdw © (2007-12-13 11:52) [3]

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

S:= GetAssociation(".ext");

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

← →
!Pharaon! (2007-12-14 08:59) [4]

Спасибо!

← →
!Pharaon! (2007-12-14 09:03) [5]

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

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

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

← →
!Pharaon! (2007-12-15 00:13) [7]

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

ToolBar Найти похожие ветки