home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Logiciels PC Special 8
/
LogicielsPCHS_8.iso
/
Français
/
PJscrab
/
pjscrabp.exe
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
2000-05-27
|
10KB
|
439 lines
object Form1: TForm1
Left = 21
Top = 280
BorderStyle = bsNone
Caption = 'PJScrab'
ClientHeight = 333
ClientWidth = 496
Color = clSilver
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
PopupMenu = PopupCoupHumain
Position = poScreenCenter
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
object imgFonds: TImage
Left = 384
Top = 8
Width = 105
Height = 105
AutoSize = True
PopupMenu = PopupCoupHumain
Visible = False
OnClick = imgFondsClick
OnMouseDown = imgFondsMouseDown
OnMouseMove = imgFondsMouseMove
OnMouseUp = imgFondsMouseUp
end
object ListBox1: TListBox
Left = 23
Top = 102
Width = 114
Height = 59
ExtendedSelect = False
ItemHeight = 13
TabOrder = 0
Visible = False
OnClick = ListBox1Click
end
object Edit1: TEdit
Left = 352
Top = 285
Width = 65
Height = 21
CharCase = ecUpperCase
MaxLength = 15
TabOrder = 1
end
object BtNouvPartie: TButton
Left = 403
Top = 124
Width = 81
Height = 25
Caption = '&Nouvelle partie'
TabOrder = 2
Visible = False
OnClick = BtNouvPartieClick
end
object BtRech: TButton
Left = 347
Top = 260
Width = 73
Height = 25
Caption = '&Rechercher'
Default = True
Enabled = False
TabOrder = 3
Visible = False
OnClick = BtRechClick
end
object Passer: TButton
Left = 408
Top = 204
Width = 75
Height = 25
Hint = 'Pour passer votre tour'
Caption = '&Passer'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 4
Visible = False
OnClick = PasserClick
end
object Echanger: TButton
Left = 408
Top = 180
Width = 75
Height = 25
Hint = 'Pour changer des lettres'
Caption = '&Echanger'
Enabled = False
ParentShowHint = False
ShowHint = False
TabOrder = 5
Visible = False
OnClick = EchangerClick
end
object LST: TStringGrid
Left = 3
Top = 10
Width = 344
Height = 79
ColCount = 10
DefaultRowHeight = 18
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
TabOrder = 6
OnSelectCell = LSTSelectCell
ColWidths = (
24
15
29
188
15
50
64
64
64
308)
end
object BtTest: TButton
Left = 368
Top = 140
Width = 33
Height = 25
Caption = 'Test'
TabOrder = 7
Visible = False
OnClick = BtTestClick
end
object BtOk: TButton
Left = 368
Top = 228
Width = 33
Height = 25
Caption = '&OK'
Enabled = False
TabOrder = 8
Visible = False
OnClick = BtOkClick
end
object ListBox2: TListBox
Left = 160
Top = 112
Width = 89
Height = 41
ItemHeight = 13
TabOrder = 9
Visible = False
end
object Annuler: TButton
Left = 411
Top = 156
Width = 75
Height = 25
Caption = '&Annuler'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
Visible = False
OnClick = AnnulerClick
end
object OpenDialog1: TOpenDialog
DefaultExt = 'peau'
FileEditStyle = fsEdit
Filter = 'Peau|*.peau'
Left = 144
Top = 280
end
object SaveDialog1: TSaveDialog
DefaultExt = 'pj2'
FileEditStyle = fsEdit
Filter = 'R�capitulatif v2|*.pj2|Visionneuse scrabble|*.vsc'
Options = [ofOverwritePrompt, ofHideReadOnly, ofCreatePrompt]
Title = 'Enregistrer un r�capitulatif de la partie'
Left = 208
Top = 280
end
object OpenDialog2: TOpenDialog
DefaultExt = 'pj2'
FileEditStyle = fsEdit
Filter = 'R�capitulatif v2|*.pj2|R�capitulatif|*.pjr'
Title = 'S�lectionner un fichier r�capitulatif'
Left = 176
Top = 280
end
object PopupCoupHumain: TPopupMenu
Left = 264
Top = 280
object PopVoir: TMenuItem
Caption = '&Voir R�capitulatif partie'
Enabled = False
ShortCut = 0
OnClick = PopVoirClick
end
object PopJouer: TMenuItem
Caption = '&Jouer'
Enabled = False
ShortCut = 0
OnClick = PopJouerClick
end
object PopPasser: TMenuItem
Caption = '&Passer votre tour'
Enabled = False
ShortCut = 32848
OnClick = PopPasserClick
end
object PopEchanger: TMenuItem
Caption = '&Echanger des lettres'
Enabled = False
ShortCut = 32837
OnClick = PopEchangerClick
end
object PopRevenir: TMenuItem
Caption = 'Re&venir en arri�re'
Enabled = False
ShortCut = 32833
OnClick = PopRevenirClick
end
object Rechercher1: TMenuItem
Caption = 'Rec&hercher'
Enabled = False
ShortCut = 32850
OnClick = Rechercher1Click
end
object Ok1: TMenuItem
Caption = 'O&k'
Enabled = False
ShortCut = 32847
OnClick = Ok1Click
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object Chargerunepeau1: TMenuItem
Caption = '&Charger une peau'
ShortCut = 16451
OnClick = Chargerunepeau1Click
end
object Generercontours1: TMenuItem
Caption = '&G�n�rer contours'
ShortCut = 113
OnClick = Generercontours1Click
end
object N3: TMenuItem
Caption = '-'
ShortCut = 0
end
object Fichier1: TMenuItem
Caption = '&Fichier'
ShortCut = 0
object NouvellePartie1: TMenuItem
Caption = '&Nouvelle Partie...'
ShortCut = 16462
OnClick = NouvellePartie1Click
end
object Moderesolution1: TMenuItem
Caption = '&Mode r�solution'
ShortCut = 16461
OnClick = Moderesolution1Click
end
object Chargerrcapitulatif1: TMenuItem
Caption = '&Ouvrir r�capitulatif...'
ShortCut = 16463
OnClick = Chargerrcapitulatif1Click
end
object SauverRecap: TMenuItem
Caption = '&Sauver r�capitulatif...'
Enabled = False
ShortCut = 16467
OnClick = SauverRecapClick
end
end
object Records1: TMenuItem
Caption = '&Records'
ShortCut = 0
object Consulterlesrecords1: TMenuItem
Caption = '&Voir...'
ShortCut = 16470
OnClick = Consulterlesrecords1Click
end
end
object Options1: TMenuItem
Caption = '&Options'
ShortCut = 0
object VoirDistribution1: TMenuItem
Caption = 'Voir Distri&bution...'
ShortCut = 16450
OnClick = VoirDistribution1Click
end
object AffLetOrdi: TMenuItem
Caption = '&Afficher les lettres de l'#39'ordinateur'
ShortCut = 16449
OnClick = AffLetOrdiClick
end
object AffNbLetRest: TMenuItem
Caption = 'A&fficher Nombre de lettres restantes'
ShortCut = 16454
OnClick = AffNbLetRestClick
end
object Parametrage1: TMenuItem
Caption = '&Param�trage...'
ShortCut = 16464
OnClick = Parametrage1Click
end
object Statistiques1: TMenuItem
Caption = 'S&tatistiques...'
ShortCut = 16468
OnClick = Statistiques1Click
end
object MotdansDico1: TMenuItem
Caption = 'Mot dans &Dico...'
ShortCut = 16452
OnClick = MotdansDico1Click
end
end
object Aide1: TMenuItem
Caption = '&?'
ShortCut = 0
object APropos1: TMenuItem
Caption = '&A propos...'
ShortCut = 112
OnClick = APropos1Click
end
end
object tt1: TMenuItem
Caption = 'cacher'
ShortCut = 0
Visible = False
object Aide2: TMenuItem
Caption = 'A&ide'
ShortCut = 16506
OnClick = Aide2Click
end
object Test1: TMenuItem
Caption = '&Test'
ShortCut = 16505
OnClick = Test1Click
end
object Recap1: TMenuItem
Caption = 'Recap'
ShortCut = 16430
OnClick = Recap1Click
end
object saisierepertoire1: TMenuItem
Caption = 'saisie repertoire'
ShortCut = 16502
OnClick = saisierepertoire1Click
end
object exporterdico1: TMenuItem
Caption = 'exporter dico'
ShortCut = 40968
OnClick = exporterdico1Click
end
object compresserfichier1: TMenuItem
Caption = 'compresser fichier'
ShortCut = 114
OnClick = compresserfichier1Click
end
object Choix1: TMenuItem
Caption = 'Choix'
ShortCut = 8238
OnClick = Choix1Click
end
object sauverrecappourtests1: TMenuItem
Caption = 'sauver recap (pour tests)'
ShortCut = 32776
OnClick = sauverrecappourtests1Click
end
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Quitter1: TMenuItem
Caption = '&Quitter'
ShortCut = 16465
OnClick = Quitter1Click
end
end
object Timer1: TTimer
Enabled = False
OnTimer = Timer1Timer
Left = 304
Top = 280
end
object ColorDialog1: TColorDialog
Ctl3D = True
Left = 112
Top = 280
end
object FontDialog1: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 80
Top = 280
end
object ParamSaveDialog: TSaveDialog
DefaultExt = 'pjp'
FileEditStyle = fsEdit
Filter = 'pjscrab param�tres (*.pjp)|*.pjp'
Left = 16
Top = 280
end
object ParamOpenDialog: TOpenDialog
DefaultExt = 'peau'
FileEditStyle = fsEdit
Filter =
'pjscrab param�tres v2 (*.peau)|*.peau|pjscrab param�tres (*.pjp)' +
'|*.pjp'
Left = 48
Top = 280
end
object ZipBuilder1: TZipBuilder
SFXCaption = 'Self-extracting Archive'
Left = 456
Top = 288
end
end