resourcepropertiesdialog.pas

學習資料網上下載

unit ResourcePropertiesDialog;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, unitResourceDetails;

type
  TdlgResourceProperties = class(TForm)
    Label1: TLabel;
    edName: TEdit;
    Label2: TLabel;
    cbLanguage: TComboBox;
    btnOK: TButton;
    btnCancel: TButton;
    procedure FormShow(Sender: TObject);
  private
    function GetLanguage: LCID;
    { Private declarations }
  public
    ResourceDetails : TResourceDetails;

    property Language : LCID read GetLanguage;

    { Public declarations }
  end;

var
  dlgResourceProperties: TdlgResourceProperties;

implementation

{$R *.DFM}

uses unitResourceMessages;

resourcestring
  rstNeutral = 'Language Neutral';

procedure TdlgResourceProperties.FormShow(Sender: TObject);
var
  i, idx : Integer;
begin
  if Assigned (ResourceDetails) then
  begin
    if resourceDetails is TStringResourceDetails then
      edName.Text := ResIdToStringsId (ResourceDetails.ResourceName)
    else
      edName.Text := ResourceDetails.ResourceName;
  end;

  cbLanguage.Items.Add (rstNeutral);
  if ResourceDetails.ResourceLanguage = 0 then
    idx := 0
  else
    idx := -1;

  for i := 0 to Languages.Count - 1 do
  begin
    cbLanguage.Items.Add (Languages.Name [i]);
    if Assigned (ResourceDetails) and (ResourceDetails.ResourceLanguage <> 0) and (DWORD (ResourceDetails.ResourceLanguage) = Languages.LocaleID [i]) then
      idx := i + 1;
  end;

  cbLanguage.ItemIndex := idx
end;

function TdlgResourceProperties.GetLanguage: LCID;
var
  i : Integer;
begin
  Result := 0;
  for i := 0 to Languages.Count -1 do
    if Languages.Name [i] = cbLanguage.Text then
    begin
      result := Languages.LocaleID [i];
      break
    end
end;

end.