featuresshow.~inc

来自「pipe类 pipe类 pipe类 pipe类 pipe类」· ~INC 代码 · 共 275 行

const
   ssfdesc: array[0..31] of string =
    (
      'Floating-point Unit',
      'Virtual Mode Extensions',
      'Debugging Extensions',
      'Pase Size Extensions',
      'Time Stamp Counter',
      'Model-specific Registers',
      'Page Adress Extensions',
      'Machine Check Extensions',
      'CMPXCHG8B Instruction',
      'MP Support (APIC Presented)',
      'Reserved',
      'SYSENTER/SYSEXIT',
      'Mem. Type Range Registers',
      'Global Paging Extensions',
      'Memory Check Architecture',
      'Conditional move Instruction',
      'Page Attribute Table',
      'Page Size Extensions (36 bit)',
      'Processor Serial Number',
      'CLFLUSH Instruction',
      'Reserved',
      'Debug Trace Store',
      'Thermal Control MSRs',
      'MMX Instructions',
      'Fast Save and Restore',
      'SSE Instructions',
      'SSE2 Instructions',
      'Self Snoop',
      'Hyper Threading technology',
      'Thermal Monitor',
      'IA64 Compatibility',
      'Pending Break Event'
  );

  sefdesc: array[0..31] of string =
    (
      'SSE3 Instructions',
      'Reserved',
      'Reserved',
      'MONITOR/MWAIT',
      'CPL-qualified Debug Store',
      'Reserved',
      'Reserved',
      'Enhanced SpeedStep',
      'Thermal Control 2 MSRs',
      'Reserved',
      'Context ID',
      'Reserved',
      'Reserved',
      'CMPXCHG16B Instruction',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved'
    );

  eefdesc: array[0..31] of string =
    (
      'Floating-point Unit',
      'Virtual Mode Extensions',
      'Debugging Extensions',
      'Pase Size Extensions',
      'Time Stamp Counter',
      'Model-specific Registers',
      'Page Adress Extensions',
      'Machine Check Extensions',
      'CMPXCHG8B Instruction',
      'MP Support (APIC Presented)',
      'Reserved',
      'SYSCALL/SYSRET',
      'Mem. Type Range Registers',
      'Global Paging Extensions',
      'Memory Check Architecture',
      'Conditional move Instruction',
      'Page Attribute Table',
      'Page Size Extensions (36 bit)',
      'Reserved',
      'Multiprocessor capability',
      'Ext. Feature Enable MSR',
      'Reserved',
      'Ext. MMX Instructions',
      'MMX Instructions',
      'Fast Save and Restore',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'AMD 64-bit compatibility',
      'AMD Extended 3DNow! Inst.',
      'AMD 3DNow! Instructions'
    );
  mffdesc: array[0..31] of string =
    (
      'LAHF and SAHF in PM64',
      'CMP',
      'Reserved',
      'Reserved',
      'CR8D',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved',
      'Reserved'
    );

procedure TMainFrm.ShowStd1ff(index: byte);
var
  i:byte;
  Labl: TLabel;
  ExtEdt: TRzPanel;
begin
  Standard2ff.Font.Color:=$00BE773D;
  Standard2ffB.Color:=$00FCF6F1;
  Extended1ff.Font.Color:=$00BE773D;
  Extended1ffB.Color:=$00FCF6F1;
  Extended2ff.Font.Color:=$00BE773D;
  Extended2ffB.Color:=$00FCF6F1;
  FeaturesFlagsGB.Caption:='Standard Features Flags';
  for i:=0 to 31 do
    begin
      Labl:=FindComponent('Feat'+IntToStr(i)) as TRzLabel;
      Labl.Caption:=ssfdesc[i];
      ExtEdt:=FindComponent('Feat'+IntToStr(i)+'v') as TRzPanel;
      if CPUInfo[index].FeaturesFlags.std1ff.feature[i]=1 then
                                                                     begin
                                                                        ExtEdt.Caption:='Yes';
                                                                        ExtEdt.Font.Style:=[fsBold];
                                                                        ExtEdt.Font.Color:=$008D4803;
                                                                     end
                                                                  else
                                                                     begin
                                                                        ExtEdt.Caption:='No';
                                                                        ExtEdt.Font.Style:=[];
                                                                        ExtEdt.Font.Color:=$00D59B75;
                                                                     end
    end;
end;

procedure TMainFrm.ShowStd2ff(index: byte);
var
  i:byte;
  Labl: TLabel;
  ExtEdt: TRzPanel;
begin
  Standard1ff.Font.Color:=$00BE773D;
  Standard1ffB.Color:=$00FCF6F1;
  Extended1ff.Font.Color:=$00BE773D;
  Extended1ffB.Color:=$00FCF6F1;
  Extended2ff.Font.Color:=$00BE773D;
  Extended2ffB.Color:=$00FCF6F1;
  FeaturesFlagsGB.Caption:='Standard Features Flags';
  for i:=0 to 31 do
    begin
      Labl:=FindComponent('Feat'+IntToStr(i)) as TRzLabel;
      Labl.Caption:=sefdesc[i];
      ExtEdt:=FindComponent('Feat'+IntToStr(i)+'v') as TRzPanel;
      if CPUInfo[index].FeaturesFlags.std2ff.feature[i]=1 then
                                                                     begin
                                                                        ExtEdt.Caption:='Yes';
                                                                        ExtEdt.Font.Style:=[fsBold];
                                                                        ExtEdt.Font.Color:=$008D4803;
                                                                     end
                                                                  else
                                                                     begin
                                                                        ExtEdt.Caption:='No';
                                                                        ExtEdt.Font.Style:=[];
                                                                        ExtEdt.Font.Color:=$00D59B75;
                                                                     end
    end;                                                             
end;

procedure TMainFrm.ShowExt1ff(index: byte);
var
  i:byte;
  Labl: TLabel;
  ExtEdt: TRzPanel;
begin
  Standard1ff.Font.Color:=$00BE773D;
  Standard1ffB.Color:=$00FCF6F1;
  Standard2ff.Font.Color:=$00BE773D;
  Standard2ffB.Color:=$00FCF6F1;
  Extended2ff.Font.Color:=$00BE773D;
  Extended2ffB.Color:=$00FCF6F1;
  FeaturesFlagsGB.Caption:='Extended Features Flags';
  for i:=0 to 31 do
    begin
      Labl:=FindComponent('Feat'+IntToStr(i)) as TRzLabel;
      Labl.Caption:=eefdesc[i];
      ExtEdt:=FindComponent('Feat'+IntToStr(i)+'v') as TRzPanel;
      if CPUInfo[index].FeaturesFlags.ext1ff.feature[i]=1 then
                                                                     begin
                                                                        ExtEdt.Caption:='Yes';
                                                                        ExtEdt.Font.Style:=[fsBold];
                                                                        ExtEdt.Font.Color:=$008D4803;
                                                                     end
                                                                  else
                                                                     begin
                                                                        ExtEdt.Caption:='No';
                                                                        ExtEdt.Font.Style:=[];
                                                                        ExtEdt.Font.Color:=$00D59B75;
                                                                     end
    end;
end;

procedure TMainFrm.ShowExt2ff(index: byte);
var
  i:byte;
  Labl: TLabel;
  ExtEdt: TRzPanel;
begin
  Standard1ff.Font.Color:=$00BE773D;
  Standard1ffB.Color:=$00FCF6F1;
  Standard2ff.Font.Color:=$00BE773D;
  Standard2ffB.Color:=$00FCF6F1;
  Extended1ff.Font.Color:=$00BE773D;
  Extended1ffB.Color:=$00FCF6F1;
  FeaturesFlagsGB.Caption:='Extended Features Flags';
  for i:=0 to 31 do
    begin
      Labl:=FindComponent('Feat'+IntToStr(i)) as TRzLabel;
      Labl.Caption:=mffdesc[i];
      ExtEdt:=FindComponent('Feat'+IntToStr(i)+'v') as TRzPanel;
      if CPUInfo[index].FeaturesFlags.ext2ff.feature[i]=1 then
                                                                     begin
                                                                        ExtEdt.Caption:='Yes';
                                                                        ExtEdt.Font.Style:=[fsBold];
                                                                        ExtEdt.Font.Color:=$008D4803;
                                                                     end
                                                                  else
                                                                     begin
                                                                        ExtEdt.Caption:='No';
                                                                        ExtEdt.Font.Style:=[];
                                                                        ExtEdt.Font.Color:=$00D59B75;
                                                                     end
    end;
end;