Как сделать хранение многих палитр во внешних файлах?
const WorkPalette:String=' ваша рабочая палитра по умолчанию ';
Procedure SavePalette(PaletteFile:String);
{сохранить палитру в файл}
var f:file;
begin
Assign(f,PaletteFile);
rewrite(f,1);
BlockWrite(f,WorkPalette,SizeOf(String));
close(f);
end;
Procedure LoadPalette(PaletteFile:String);
{ загрузить палитру из файла }
var f:File;
begin
Assign(f,s);
reset(f,1);
BlockRead(f,WorkPalette,SizeOf(String));
close(f);
end;
Procedure SetAppPalette(PaletteFile:String);
{ загрузить и установить палитру }
begin
LoadPalette(PaletteFile);
Application^.GetPalette^:=WorkPalette; {небольшой финт ушами ;))))}
{ эти две строчки необходимы для моментального отображения изменений в
палитре, не ожидая по какое либо окно свернеться/развернеться}
Application^.Redraw;
Desktop^.Redraw;
end;