Changeset 435 for ConfirmationDialog


Ignore:
Timestamp:
Nov 19, 2012, 2:31:58 PM (12 years ago)
Author:
chronos
Message:
Location:
ConfirmationDialog
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • ConfirmationDialog/Languages

    • Property svn:ignore set to
      *.mo
  • ConfirmationDialog/Languages/UConfirmationForm.po

    r403 r435  
    11msgid ""
    22msgstr "Content-Type: text/plain; charset=UTF-8"
     3
     4#: uconfirmationform.sabort
     5msgid "Abort"
     6msgstr ""
    37
    48#: uconfirmationform.scancel
     
    610msgstr ""
    711
    8 #: uconfirmationform.sconfirmmessagenotfound
    9 msgid "Confirm message id %s not found"
     12#: uconfirmationform.sclose
     13msgid "Close"
     14msgstr ""
     15
     16#: uconfirmationform.sdosameactionnexttime
     17msgid "Do same action next time"
     18msgstr ""
     19
     20#: uconfirmationform.signore
     21msgid "Ignore"
    1022msgstr ""
    1123
     
    1830msgstr ""
    1931
     32#: uconfirmationform.sretry
     33msgid "Retry"
     34msgstr ""
     35
    2036#: uconfirmationform.syes
    2137msgid "Yes"
  • ConfirmationDialog/UConfirmationForm.lfm

    r419 r435  
    99  OnCreate = FormCreate
    1010  OnDestroy = FormDestroy
     11  OnShow = FormShow
    1112  Position = poMainFormCenter
    12   LCLVersion = '1.1'
     13  LCLVersion = '1.0.1.3'
    1314  object LabelDescription: TLabel
    1415    Left = 56
  • ConfirmationDialog/UConfirmationForm.pas

    r419 r435  
    4848    procedure FormCreate(Sender: TObject);
    4949    procedure FormDestroy(Sender: TObject);
     50    procedure FormShow(Sender: TObject);
    5051  private
    5152    ModalResult: Integer;
     
    7273  SIgnore = 'Ignore';
    7374  SClose = 'Close';
    74   SConfirmMessageNotFound = 'Confirm message id %s not found';
     75  SDoSameActionNextTime = 'Do same action next time';
     76//  SConfirmMessageNotFound = 'Confirm message id %s not found';
    7577
    7678
     
    8385procedure TConfirmationForm.FormDestroy(Sender: TObject);
    8486begin
    85   ConfirmMessages.Free;
     87  FreeAndNil(ConfirmMessages);
     88end;
     89
     90procedure TConfirmationForm.FormShow(Sender: TObject);
     91begin
     92  BitBtnOk.Caption := SOk;
     93  BitBtnCancel.Caption := SCancel;
     94  BitBtnNo.Caption := SNo;
     95  BitBtnYes.Caption := SYes;
     96  CheckBoxAutoEnabled.Caption := SDoSameActionNextTime;
    8697end;
    8798
Note: See TracChangeset for help on using the changeset viewer.