Как убрать XP manifest? Никто не может помочь!

[mastero444ek]

Вопрос следующий. У меня есть программа, делал специально для дипломной работы. Но в самом начале, как только делал работу вставил на форму XP manifest, как прочитал в какой-то из инструкций. Но как дело дошло до того, что надо изменить цвет checkbox - а он как оказалось из за этого XP manifesta не меняется программным способом, о встал вопрос - как это дело отключить?
Я уже столько инструкций перечитал, столько всего перелазил, нигде нет готового решения , как удалить эту дрянь из программы...
Но в конце то концов, может хотть кто-то знает, как это удалить из программы, буду очень благодарен за любую помощь!

[Пепел Феникса]

удалить из uses XPMan?

[mastero444ek]

А где этот uses?

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;

это? тут вроде бы нету этого xpmanifest...

[raxp]

...в файле проекта, DPR, смотрели?

[mastero444ek]

не знаю, туда ли я смотрю, но вот что у меня есть (unit 1).

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image2Click(Sender: TObject);
    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit8, Unit9, Unit10;

{$R *.dfm}

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

  Image2.Picture.LoadFromFile('D:\Ñîöèàëüíîå îðèåíòèðîâàíèå\images\pitanieN.jpg');
end;

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Image3.Picture.LoadFromFile('D:\Ñîöèàëüíîå îðèåíòèðîâàíèå\images\odezdaN.jpg');

end;

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image4.Picture.LoadFromFile('D:\Ñîöèàëüíîå îðèåíòèðîâàíèå\images\semyaN.JPG');
end;

procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Image5.Picture.LoadFromFile('D:\Ñîöèàëüíîå îðèåíòèðîâàíèå\images\gienaN.JPG');
end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image2.Picture.LoadFromFile('D:\Ñîöèàëüíîå îðèåíòèðîâàíèå\images\pitanie.jpg');
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Pitanie.show;
form1.hide;
end;

procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
          Image2.Picture.LoadFromFile('D:\Ñîöèàëüíîå îðèåíòèðîâàíèå\images\pitanie.jpg');
      Image3.Picture.LoadFromFile('D:\Ñîöèàëüíîå îðèåíòèðîâàíèå\images\odezda.jpg');
     Image4.Picture.LoadFromFile('D:\Ñîöèàëüíîå îðèåíòèðîâàíèå\images\semya.JPG');
       Image5.Picture.LoadFromFile('D:\Ñîöèàëüíîå îðèåíòèðîâàíèå\images\giena.JPG');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := true;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
Obuv.show;

end;

procedure TForm1.Image4Click(Sender: TObject);
begin
Semya.show;

end;

procedure TForm1.Image5Click(Sender: TObject);
begin
Gigiena.show;

end;

procedure TForm1.Image6Click(Sender: TObject);
begin

end;

end.

если я не там ищу, то подскажите, куда зайти в программе этой, чтобы найти где этот манифест остался?

[FaTaL]

Смотря на какой версии Delphi пишите. ЧТо за версия?

[mastero444ek]

обычная делфи 7.
enterprise
version 7.0 (build 4.453)...

[ReportCube]

Ищите в файлах проекта ссылку на модуль XPMan, в любом месте эта ссылка автоматически включает манифест для проекта. Даже в компонентах...

[mastero444ek]

а как искать везде? у меня там сотня файлов.. в делфи есть вообще поиск по всему коду который там только существует?

[Аватар]

Ctrl-F и Find in Files