Annotation of mozptch/anzname.pas, revision 1.1

1.1     ! oertel      1: (* Copyright (c) uib umwelt informatik buero gmbh (www.uib.de)
        !             2:  This sourcecode is owned by uib
        !             3:  and published under the Terms of the General Public License.
        !             4: #*###CVS_HEAD_START###******************************************************
        !             5: # $Id:  $
        !             6: #
        !             7: #*###EXCLUDE_CVS_LOG###*****************************************************
        !             8: # History:
        !             9: # ========
        !            10: #
        !            11: # $Log:  $
        !            12: *)
        !            13: 
        !            14: unit AnzName;
        !            15: 
        !            16: interface
        !            17: 
        !            18: uses
        !            19:   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
        !            20:   StdCtrls, ExtCtrls, Buttons, QStdCtrls, QButtons, QControls, QExtCtrls;
        !            21: 
        !            22: type
        !            23:   TFAnzName = class(TForm)
        !            24:     Panel1: TPanel;
        !            25:     newUname: TEdit;
        !            26:     newUnameLabel: TLabel;
        !            27:     textLabel: TLabel;
        !            28:     BitBtn1: TBitBtn;
        !            29:     procedure FormShow(Sender: TObject);
        !            30:   private
        !            31:     { Private-Deklarationen }
        !            32:   public
        !            33:     { Public-Deklarationen }
        !            34:   end;
        !            35: 
        !            36: var
        !            37:   FAnzName: TFAnzName;
        !            38: 
        !            39: implementation
        !            40: 
        !            41: {$R *.xfm}
        !            42: 
        !            43: 
        !            44: 
        !            45: procedure TFAnzName.FormShow(Sender: TObject);
        !            46: begin
        !            47:   textlabel.Caption := 'Standardmäßig wird als Autoren-Name für eine Mail der Benutzername auf dem BK-Server angezeigt. '+
        !            48:                        'Wenn Sie stattdessen lieber einen anderen Namen (z.B. Ihren Vor- und Nachnamen) anzeigen lassen wollen, '+
        !            49:                        'können Sie den Standard-Eintrag im untenstehenden Textfeld entsprechend ändern. ';
        !            50: end;
        !            51: 
        !            52: 
        !            53: end.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>