home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Source 3
/
Developers_Source_Vol_03_1996.iso
/
parad
/
dec94
/
sr_figb.gif
< prev
next >
Graphics Interchange Format
|
1995-09-26
|
30KB
|
800x600
|
4-bit (14 colors)
Labels:
text
|
screenshot
|
software
|
display
|
computer icon
|
multimedia software
|
operating system
|
web page
|
graphics software
|
website
|
editing
|
office application software
|
number
OCR:
Delphi - Chkpword File Edit Search View Run Debug Options Tools Help -- A abÏ OK A Standard Additional /Graphics /Dialogs /File /Database _DB Lists AVBX Object Inspector DLLFORM.PAS PasswordForm ActiveControl Edit 1 function GetPassword (Password: PChar) : Inter +Borderlcons [biSystemMenu,b var BorderStyle bsSizeable PasswordForm: TPasswordForm; Caption Verify strPassword: String ; ClientHeight 109 begin Clientwidth 238 Color clSilver Verify Result := 0; PasswordForm := TPasswordForm. Create (Appl CH3D True Curso crDefault :Enter password: { Test string passed } Enabled True . .......... strPassword := StrPas (Password) ; +Font [TFont) try FormStyle fsNormal with PasswordForm do Heigh 136 OK X Cancel if ShowModal = mrOK then HelpContext if UpperCase (Edit1. Text) <> UpperCas Hin MessageDlg (' Invalid Password', mtl +HorzScrollBar [T ControlS crollBa Icor (Tlcon) else KeyPreview False Result := 1; Left 158 finally Menu PasswordForm. Free; Name PasswordForm end; ObjectMenulter end; Properties &Events begin RegisterClasses ( [ TPasswordForm, TLabel, T+ 1: 1 Insert Chkpword Program \Dllform Manager