home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1998 December / cd joystick no99 decembre 1998.iso / Data / WIN95 / JEUX / GinRummyProEval.EXE / %MAINDIR% / GinRummy.exe / 0 / RCDATA / TFRMGINRUMMY / TFRMGINRUMMY.txt
Encoding:
Text File  |  1998-10-29  |  23.7 KB  |  978 lines
  1. object frmGinRummy: TfrmGinRummy
  2.   Left = -4
  3.   Top = -4
  4.   AutoScroll = False
  5.   Caption = 'frmGinRummy'
  6.   ClientHeight = 534
  7.   ClientWidth = 800
  8.   Color = 4210688
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Menu = MainMenu
  15.   WindowState = wsMaximized
  16.   OnClick = FormClick
  17.   OnClose = FormClose
  18.   OnCreate = FormCreate
  19.   OnDestroy = FormDestroy
  20.   OnKeyPress = FormKeyPress
  21.   OnResize = FormResize
  22.   PixelsPerInch = 96
  23.   TextHeight = 13
  24.   object shapeDiscard: TShape
  25.     Left = 404
  26.     Top = 50
  27.     Width = 98
  28.     Height = 138
  29.     Brush.Style = bsClear
  30.     Pen.Color = 16744448
  31.     Pen.Style = psDash
  32.     Pen.Width = 3
  33.     Visible = False
  34.   end
  35.   object imageStock: TImage
  36.     Left = 309
  37.     Top = 54
  38.     Width = 90
  39.     Height = 130
  40.     Cursor = crHandPoint
  41.     Hint = 'STOCK'
  42.     ParentShowHint = False
  43.     ShowHint = True
  44.     Visible = False
  45.     OnClick = imageStockClick
  46.   end
  47.   object imageDiscard: TImage
  48.     Left = 408
  49.     Top = 54
  50.     Width = 90
  51.     Height = 130
  52.     Cursor = crHandPoint
  53.     Hint = 'DISCARD'
  54.     ParentShowHint = False
  55.     ShowHint = True
  56.     Visible = False
  57.     OnClick = imageDiscardClick
  58.   end
  59.   object shapeCarteMoi: TShape
  60.     Left = 138
  61.     Top = 118
  62.     Width = 113
  63.     Height = 113
  64.     Brush.Style = bsClear
  65.     Pen.Color = 4227327
  66.     Pen.Style = psDash
  67.     Pen.Width = 3
  68.     Shape = stRoundRect
  69.     Visible = False
  70.   end
  71.   object shapeCarteOrdi: TShape
  72.     Left = 14
  73.     Top = 170
  74.     Width = 113
  75.     Height = 181
  76.     Brush.Style = bsClear
  77.     Pen.Color = 4227327
  78.     Pen.Style = psDash
  79.     Pen.Width = 3
  80.     Shape = stRoundRect
  81.     Visible = False
  82.   end
  83.   object ShapeOrdi: TShape
  84.     Left = 4
  85.     Top = 192
  86.     Width = 395
  87.     Height = 300
  88.     Brush.Style = bsClear
  89.     Pen.Color = 14467237
  90.     Pen.Style = psInsideFrame
  91.     Pen.Width = 2
  92.     Visible = False
  93.   end
  94.   object ShapeMoi: TShape
  95.     Left = 404
  96.     Top = 192
  97.     Width = 389
  98.     Height = 300
  99.     Brush.Style = bsClear
  100.     Pen.Color = 12770976
  101.     Pen.Style = psInsideFrame
  102.     Pen.Width = 2
  103.     Visible = False
  104.   end
  105.   object panelSuggestionCarteKnock: TButton
  106.     Left = 572
  107.     Top = 334
  108.     Width = 197
  109.     Height = 25
  110.     Cursor = crHandPoint
  111.     Caption = 'Suggestion automatique'
  112.     TabOrder = 4
  113.     Visible = False
  114.     OnClick = panelSuggestionCarteKnockClick
  115.   end
  116.   object buttonPasse: TButton
  117.     Left = 318
  118.     Top = 106
  119.     Width = 73
  120.     Height = 25
  121.     Cursor = crHandPoint
  122.     Caption = 'PASSE'
  123.     TabOrder = 0
  124.     Visible = False
  125.     OnClick = buttonPasseClick
  126.   end
  127.   object buttonGin: TButton
  128.     Left = 640
  129.     Top = 300
  130.     Width = 53
  131.     Height = 25
  132.     Cursor = crHandPoint
  133.     Caption = 'GIN'
  134.     TabOrder = 1
  135.     Visible = False
  136.     OnClick = buttonGinClick
  137.   end
  138.   object buttonKnock: TButton
  139.     Left = 640
  140.     Top = 334
  141.     Width = 53
  142.     Height = 25
  143.     Cursor = crHandPoint
  144.     Caption = 'KNOCK'
  145.     TabOrder = 2
  146.     Visible = False
  147.     OnClick = buttonKnockClick
  148.   end
  149.   object panelHaut: TPanel
  150.     Left = 0
  151.     Top = 0
  152.     Width = 800
  153.     Height = 29
  154.     Align = alTop
  155.     BevelInner = bvRaised
  156.     BevelOuter = bvLowered
  157.     TabOrder = 3
  158.     Visible = False
  159.     object SBNewGame: TSpeedButton
  160.       Left = 5
  161.       Top = 4
  162.       Width = 22
  163.       Height = 22
  164.       Cursor = crHandPoint
  165.       Flat = True
  166.       Glyph.Data = {
  167.         76010000424D7601000000000000760000002800000020000000100000000100
  168.         04000000000000010000120B0000120B00001000000000000000000000000000
  169.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  170.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  171.         3333333333FFFFF3333333333000003333333333F777773FF333333008877700
  172.         33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
  173.         703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
  174.         77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
  175.         07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
  176.         780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
  177.         8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
  178.         3333333773FFFF77333333333000003333333333377777333333}
  179.       NumGlyphs = 2
  180.       ParentShowHint = False
  181.       ShowHint = True
  182.       OnClick = SBNewGameClick
  183.     end
  184.     object SBAide: TSpeedButton
  185.       Left = 81
  186.       Top = 4
  187.       Width = 21
  188.       Height = 22
  189.       Cursor = crHandPoint
  190.       Flat = True
  191.       Glyph.Data = {
  192.         76010000424D7601000000000000760000002800000020000000100000000100
  193.         04000000000000010000120B0000120B00001000000000000000000000000000
  194.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  195.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  196.         3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
  197.         33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
  198.         FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
  199.         FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
  200.         FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
  201.         FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
  202.         FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
  203.         3333333773FFFF77333333333FBFBF3333333333377777333333}
  204.       NumGlyphs = 2
  205.       ParentShowHint = False
  206.       ShowHint = True
  207.       OnClick = SBAideClick
  208.     end
  209.     object SBLicence: TSpeedButton
  210.       Left = 57
  211.       Top = 4
  212.       Width = 22
  213.       Height = 22
  214.       Cursor = crHandPoint
  215.       Flat = True
  216.       Glyph.Data = {
  217.         76010000424D7601000000000000760000002800000020000000100000000100
  218.         04000000000000010000120B0000120B00001000000000000000000000000000
  219.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  220.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
  221.         333333333F777773FF333333008888800333333377333F3773F3333077870787
  222.         7033333733337F33373F3308888707888803337F33337F33337F330777880887
  223.         7703337F33337FF3337F3308888000888803337F333777F3337F330777700077
  224.         7703337F33377733337FB3088888888888033373FFFFFFFFFF733B3000000000
  225.         0033333777777777773333BBBB3333080333333333F3337F7F33BBBB707BB308
  226.         03333333373F337F7F3333BB08033308033333337F7F337F7F333B3B08033308
  227.         033333337F73FF737F33B33B778000877333333373F777337333333B30888880
  228.         33333333373FFFF73333333B3300000333333333337777733333}
  229.       NumGlyphs = 2
  230.       ParentShowHint = False
  231.       ShowHint = True
  232.       OnClick = SBLicenceClick
  233.     end
  234.     object SBBossKey: TSpeedButton
  235.       Left = 775
  236.       Top = 4
  237.       Width = 22
  238.       Height = 22
  239.       Cursor = crHandPoint
  240.       AllowAllUp = True
  241.       Caption = 'B'
  242.       Flat = True
  243.       Font.Charset = DEFAULT_CHARSET
  244.       Font.Color = clWindowText
  245.       Font.Height = -13
  246.       Font.Name = 'Comic Sans MS'
  247.       Font.Style = []
  248.       NumGlyphs = 2
  249.       ParentFont = False
  250.       ParentShowHint = False
  251.       ShowHint = True
  252.       OnClick = SBBossKeyClick
  253.     end
  254.     object SBChangeGame: TSpeedButton
  255.       Left = 29
  256.       Top = 4
  257.       Width = 22
  258.       Height = 22
  259.       Cursor = crHandPoint
  260.       Flat = True
  261.       Glyph.Data = {
  262.         76010000424D7601000000000000760000002800000020000000100000000100
  263.         04000000000000010000120B0000120B00001000000000000000000000000000
  264.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  265.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  266.         5555555555FFFFF5555555555000005555555555F777775FF555555008877700
  267.         55555557755FFF775F55550887000777055555755F777FFF75F550880FBFBF07
  268.         705557F57755577FF7F55080F00000F07055575755777557F75F087F00B3300F
  269.         77057F5757555757FF7F080B0B3B330B07057F757F5555757F7F0F0F0BBBB30F
  270.         07057F757F5555757F7F0F0B0FBB3B0B08057F757FF55575757F0F7F00FFB00F
  271.         780575F757FFF757F5755080F00000F0805557F75577755757F550F80FBFBF08
  272.         8055575F775557755755550F8700078805555575FF77755F755555500FFF8800
  273.         5555555775FFFF77555555555000005555555555577777555555}
  274.       NumGlyphs = 2
  275.       ParentShowHint = False
  276.       ShowHint = True
  277.       OnClick = SBChangeGameClick
  278.     end
  279.     object SBquit: TSpeedButton
  280.       Left = 751
  281.       Top = 4
  282.       Width = 22
  283.       Height = 22
  284.       Cursor = crHandPoint
  285.       AllowAllUp = True
  286.       Caption = 'Q'
  287.       Flat = True
  288.       Font.Charset = DEFAULT_CHARSET
  289.       Font.Color = clWindowText
  290.       Font.Height = -13
  291.       Font.Name = 'Comic Sans MS'
  292.       Font.Style = []
  293.       NumGlyphs = 2
  294.       ParentFont = False
  295.       ParentShowHint = False
  296.       ShowHint = True
  297.       OnClick = SBquitClick
  298.     end
  299.     object panelInfo: TPanel
  300.       Left = 106
  301.       Top = 5
  302.       Width = 639
  303.       Height = 20
  304.       BevelOuter = bvLowered
  305.       Color = 14087128
  306.       Font.Charset = DEFAULT_CHARSET
  307.       Font.Color = clWindowText
  308.       Font.Height = -13
  309.       Font.Name = 'Comic Sans MS'
  310.       Font.Style = []
  311.       ParentFont = False
  312.       TabOrder = 0
  313.     end
  314.   end
  315.   object panelBarreInfo: TPanel
  316.     Left = 0
  317.     Top = 507
  318.     Width = 800
  319.     Height = 27
  320.     Align = alBottom
  321.     Color = 8404992
  322.     TabOrder = 5
  323.     Visible = False
  324.     object SBMoins: TSpeedButton
  325.       Left = 382
  326.       Top = 3
  327.       Width = 15
  328.       Height = 21
  329.       Caption = '<'
  330.       Font.Charset = DEFAULT_CHARSET
  331.       Font.Color = clWindowText
  332.       Font.Height = -16
  333.       Font.Name = 'MS Sans Serif'
  334.       Font.Style = [fsBold]
  335.       ParentFont = False
  336.       ParentShowHint = False
  337.       ShowHint = True
  338.       Visible = False
  339.       OnClick = SBMoinsClick
  340.     end
  341.     object SBplus: TSpeedButton
  342.       Left = 422
  343.       Top = 3
  344.       Width = 15
  345.       Height = 21
  346.       Caption = '>'
  347.       Font.Charset = DEFAULT_CHARSET
  348.       Font.Color = clWindowText
  349.       Font.Height = -16
  350.       Font.Name = 'MS Sans Serif'
  351.       Font.Style = [fsBold]
  352.       ParentFont = False
  353.       ParentShowHint = False
  354.       ShowHint = True
  355.       Visible = False
  356.       OnClick = SBplusClick
  357.     end
  358.     object panelScoreOrdi: TPanel
  359.       Left = 680
  360.       Top = 5
  361.       Width = 32
  362.       Height = 18
  363.       BevelInner = bvLowered
  364.       Color = 14467237
  365.       Font.Charset = DEFAULT_CHARSET
  366.       Font.Color = clWindowText
  367.       Font.Height = 18
  368.       Font.Name = 'Times New Roman'
  369.       Font.Style = [fsBold]
  370.       ParentFont = False
  371.       ParentShowHint = False
  372.       ShowHint = True
  373.       TabOrder = 0
  374.     end
  375.     object panelScoreMoi: TPanel
  376.       Left = 612
  377.       Top = 5
  378.       Width = 32
  379.       Height = 18
  380.       BevelInner = bvLowered
  381.       Color = 12770976
  382.       Font.Charset = DEFAULT_CHARSET
  383.       Font.Color = clWindowText
  384.       Font.Height = 18
  385.       Font.Name = 'Times New Roman'
  386.       Font.Style = [fsBold]
  387.       ParentFont = False
  388.       ParentShowHint = False
  389.       ShowHint = True
  390.       TabOrder = 1
  391.     end
  392.     object panelTitreOrdi: TPanel
  393.       Left = 714
  394.       Top = 5
  395.       Width = 80
  396.       Height = 18
  397.       BevelInner = bvLowered
  398.       BevelOuter = bvNone
  399.       Color = 14467237
  400.       ParentShowHint = False
  401.       ShowHint = True
  402.       TabOrder = 2
  403.     end
  404.     object panelTitreVous: TPanel
  405.       Left = 530
  406.       Top = 5
  407.       Width = 80
  408.       Height = 18
  409.       BevelInner = bvLowered
  410.       BevelOuter = bvNone
  411.       Color = 12770976
  412.       ParentShowHint = False
  413.       ShowHint = True
  414.       TabOrder = 3
  415.     end
  416.     object panelValeurKnockClassement: TPanel
  417.       Left = 355
  418.       Top = 3
  419.       Width = 26
  420.       Height = 21
  421.       Color = 12770976
  422.       Font.Charset = DEFAULT_CHARSET
  423.       Font.Color = clBlue
  424.       Font.Height = -21
  425.       Font.Name = 'Times New Roman'
  426.       Font.Style = []
  427.       ParentFont = False
  428.       ParentShowHint = False
  429.       ShowHint = True
  430.       TabOrder = 4
  431.     end
  432.     object panelNumeroClassement: TPanel
  433.       Left = 399
  434.       Top = 3
  435.       Width = 20
  436.       Height = 21
  437.       Color = clSilver
  438.       Font.Charset = DEFAULT_CHARSET
  439.       Font.Color = 10485760
  440.       Font.Height = 20
  441.       Font.Name = 'Times New Roman'
  442.       Font.Style = []
  443.       ParentFont = False
  444.       ParentShowHint = False
  445.       ShowHint = True
  446.       TabOrder = 5
  447.     end
  448.     object panelScoreManche: TPanel
  449.       Left = 646
  450.       Top = 5
  451.       Width = 32
  452.       Height = 18
  453.       BevelInner = bvLowered
  454.       Color = 8421631
  455.       Font.Charset = DEFAULT_CHARSET
  456.       Font.Color = clWindowText
  457.       Font.Height = 18
  458.       Font.Name = 'Times New Roman'
  459.       Font.Style = [fsBold]
  460.       ParentFont = False
  461.       ParentShowHint = False
  462.       ShowHint = True
  463.       TabOrder = 6
  464.       Visible = False
  465.     end
  466.     object checkBoxSuggestionClassement: TCheckBox
  467.       Left = 440
  468.       Top = 2
  469.       Width = 91
  470.       Height = 21
  471.       Caption = 'Suggestion'
  472.       Font.Charset = DEFAULT_CHARSET
  473.       Font.Color = 8454143
  474.       Font.Height = -11
  475.       Font.Name = 'MS Sans Serif'
  476.       Font.Style = []
  477.       ParentFont = False
  478.       ParentShowHint = False
  479.       ShowHint = True
  480.       State = cbChecked
  481.       TabOrder = 7
  482.       OnClick = checkBoxSuggestionClassementClick
  483.     end
  484.     object panelLevel: TPanel
  485.       Left = 4
  486.       Top = 3
  487.       Width = 103
  488.       Height = 20
  489.       BevelInner = bvLowered
  490.       BevelOuter = bvNone
  491.       Color = clSilver
  492.       ParentShowHint = False
  493.       ShowHint = True
  494.       TabOrder = 8
  495.     end
  496.     object panelTypeJeu: TPanel
  497.       Left = 110
  498.       Top = 3
  499.       Width = 103
  500.       Height = 20
  501.       BevelInner = bvLowered
  502.       BevelOuter = bvNone
  503.       Color = clSilver
  504.       ParentShowHint = False
  505.       ShowHint = True
  506.       TabOrder = 9
  507.     end
  508.     object panelObjectif: TPanel
  509.       Left = 218
  510.       Top = 3
  511.       Width = 97
  512.       Height = 20
  513.       BevelInner = bvLowered
  514.       BevelOuter = bvNone
  515.       Color = clSilver
  516.       ParentShowHint = False
  517.       ShowHint = True
  518.       TabOrder = 10
  519.       Visible = False
  520.     end
  521.     object panelMaxKnock: TPanel
  522.       Left = 318
  523.       Top = 3
  524.       Width = 31
  525.       Height = 20
  526.       BevelInner = bvLowered
  527.       BevelOuter = bvLowered
  528.       Color = clSilver
  529.       Font.Charset = DEFAULT_CHARSET
  530.       Font.Color = 10485760
  531.       Font.Height = 20
  532.       Font.Name = 'Times New Roman'
  533.       Font.Style = []
  534.       ParentFont = False
  535.       ParentShowHint = False
  536.       ShowHint = True
  537.       TabOrder = 11
  538.     end
  539.   end
  540.   object buttonEssaiFin: TButton
  541.     Left = 746
  542.     Top = 34
  543.     Width = 51
  544.     Height = 25
  545.     Cursor = crHandPoint
  546.     Caption = 'Non discard'
  547.     TabOrder = 6
  548.     Visible = False
  549.     OnClick = buttonEssaiFinClick
  550.   end
  551.   object panelResultatManche: TPanel
  552.     Left = 506
  553.     Top = 34
  554.     Width = 290
  555.     Height = 127
  556.     BorderWidth = 1
  557.     Color = clTeal
  558.     TabOrder = 7
  559.     Visible = False
  560.     object panelTitreGagnantManche: TPanel
  561.       Left = 4
  562.       Top = 3
  563.       Width = 283
  564.       Height = 18
  565.       BevelInner = bvLowered
  566.       BevelOuter = bvNone
  567.       Caption = 'Gagnant de la manch..'
  568.       Color = clSilver
  569.       ParentShowHint = False
  570.       ShowHint = True
  571.       TabOrder = 0
  572.     end
  573.     object panelNomGagnantManche: TPanel
  574.       Left = 4
  575.       Top = 23
  576.       Width = 101
  577.       Height = 18
  578.       BevelInner = bvLowered
  579.       BevelOuter = bvNone
  580.       Caption = 'Patrick'
  581.       Color = 12565259
  582.       ParentShowHint = False
  583.       ShowHint = True
  584.       TabOrder = 1
  585.     end
  586.     object panelNomGoDown: TPanel
  587.       Left = 108
  588.       Top = 23
  589.       Width = 89
  590.       Height = 18
  591.       BevelInner = bvLowered
  592.       BevelOuter = bvNone
  593.       Caption = 'Undercut'
  594.       Color = 12565259
  595.       ParentShowHint = False
  596.       ShowHint = True
  597.       TabOrder = 2
  598.     end
  599.     object panelNbPointsManche: TPanel
  600.       Left = 200
  601.       Top = 23
  602.       Width = 87
  603.       Height = 18
  604.       BevelInner = bvLowered
  605.       BevelOuter = bvNone
  606.       Caption = '999 points'
  607.       Color = 12565259
  608.       ParentShowHint = False
  609.       ShowHint = True
  610.       TabOrder = 3
  611.     end
  612.     object panelTitreDetailScoreManche: TPanel
  613.       Left = 4
  614.       Top = 45
  615.       Width = 283
  616.       Height = 18
  617.       BevelInner = bvLowered
  618.       BevelOuter = bvNone
  619.       Caption = 'D∩┐╜tail score de la manche.. '
  620.       Color = clSilver
  621.       ParentShowHint = False
  622.       ShowHint = True
  623.       TabOrder = 4
  624.     end
  625.     object panelTitreBonus: TPanel
  626.       Left = 4
  627.       Top = 65
  628.       Width = 140
  629.       Height = 18
  630.       BevelInner = bvLowered
  631.       BevelOuter = bvNone
  632.       Caption = 'Bonus Undercut :'
  633.       Color = 8421631
  634.       ParentShowHint = False
  635.       ShowHint = True
  636.       TabOrder = 5
  637.       Visible = False
  638.     end
  639.     object panelTitreDifferenceKnock: TPanel
  640.       Left = 4
  641.       Top = 85
  642.       Width = 140
  643.       Height = 18
  644.       BevelInner = bvLowered
  645.       BevelOuter = bvNone
  646.       Caption = 'Diff∩┐╜rence Knock'
  647.       Color = 9220607
  648.       ParentShowHint = False
  649.       ShowHint = True
  650.       TabOrder = 6
  651.       Visible = False
  652.     end
  653.     object panelTitreLayOff: TPanel
  654.       Left = 146
  655.       Top = 85
  656.       Width = 140
  657.       Height = 18
  658.       BevelInner = bvLowered
  659.       BevelOuter = bvNone
  660.       Caption = 'Valeur Lay-off'
  661.       Color = 9220607
  662.       ParentShowHint = False
  663.       ShowHint = True
  664.       TabOrder = 7
  665.       Visible = False
  666.     end
  667.     object panelValeurBonus: TPanel
  668.       Left = 146
  669.       Top = 65
  670.       Width = 141
  671.       Height = 18
  672.       BevelInner = bvLowered
  673.       BevelOuter = bvNone
  674.       Color = 8421631
  675.       ParentShowHint = False
  676.       ShowHint = True
  677.       TabOrder = 8
  678.       Visible = False
  679.     end
  680.     object panelValeurDifferenceKnock: TPanel
  681.       Left = 4
  682.       Top = 105
  683.       Width = 140
  684.       Height = 18
  685.       BevelInner = bvLowered
  686.       BevelOuter = bvNone
  687.       Color = 9220607
  688.       ParentShowHint = False
  689.       ShowHint = True
  690.       TabOrder = 9
  691.       Visible = False
  692.     end
  693.     object panelValeurLayOff: TPanel
  694.       Left = 146
  695.       Top = 105
  696.       Width = 140
  697.       Height = 18
  698.       BevelInner = bvLowered
  699.       BevelOuter = bvNone
  700.       Color = 9220607
  701.       ParentShowHint = False
  702.       ShowHint = True
  703.       TabOrder = 10
  704.       Visible = False
  705.     end
  706.   end
  707.   object panelNbCartesStock: TPanel
  708.     Left = 310
  709.     Top = 32
  710.     Width = 25
  711.     Height = 16
  712.     BevelOuter = bvLowered
  713.     Color = 4210688
  714.     Font.Charset = DEFAULT_CHARSET
  715.     Font.Color = clWhite
  716.     Font.Height = -11
  717.     Font.Name = 'MS Sans Serif'
  718.     Font.Style = []
  719.     ParentFont = False
  720.     ParentShowHint = False
  721.     ShowHint = True
  722.     TabOrder = 8
  723.     Visible = False
  724.   end
  725.   object panelNumeroMancheLimitee: TPanel
  726.     Left = 348
  727.     Top = 32
  728.     Width = 151
  729.     Height = 17
  730.     BevelInner = bvLowered
  731.     BevelOuter = bvNone
  732.     Caption = 'Limitation...'
  733.     Color = 8421631
  734.     ParentShowHint = False
  735.     ShowHint = True
  736.     TabOrder = 9
  737.     Visible = False
  738.   end
  739.   object panelResultatPartie: TPanel
  740.     Left = 6
  741.     Top = 34
  742.     Width = 295
  743.     Height = 155
  744.     BorderWidth = 1
  745.     Color = clTeal
  746.     TabOrder = 10
  747.     Visible = False
  748.     object buttonchangegame: TButton
  749.       Left = 5
  750.       Top = 126
  751.       Width = 138
  752.       Height = 25
  753.       Cursor = crHandPoint
  754.       Caption = 'changegame'
  755.       Font.Charset = DEFAULT_CHARSET
  756.       Font.Color = 65408
  757.       Font.Height = -16
  758.       Font.Name = 'MS Sans Serif'
  759.       Font.Style = []
  760.       ParentFont = False
  761.       TabOrder = 0
  762.       OnClick = buttonChangeGameClick
  763.     end
  764.     object buttonNewGame: TButton
  765.       Left = 150
  766.       Top = 126
  767.       Width = 141
  768.       Height = 25
  769.       Cursor = crHandPoint
  770.       Caption = 'NEW GAME'
  771.       Font.Charset = DEFAULT_CHARSET
  772.       Font.Color = 65408
  773.       Font.Height = -16
  774.       Font.Name = 'MS Sans Serif'
  775.       Font.Style = []
  776.       ParentFont = False
  777.       TabOrder = 1
  778.       OnClick = buttonNewGameClick
  779.     end
  780.     object panelTitreGagnantPartie: TPanel
  781.       Left = 4
  782.       Top = 3
  783.       Width = 288
  784.       Height = 18
  785.       BevelInner = bvLowered
  786.       BevelOuter = bvNone
  787.       Caption = 'Gagnant de la partie...'
  788.       Color = clSilver
  789.       ParentShowHint = False
  790.       ShowHint = True
  791.       TabOrder = 2
  792.     end
  793.     object panelNomGagnantPartie: TPanel
  794.       Left = 4
  795.       Top = 25
  796.       Width = 131
  797.       Height = 18
  798.       BevelInner = bvLowered
  799.       BevelOuter = bvNone
  800.       Caption = 'Patrick'
  801.       Color = 8454143
  802.       ParentShowHint = False
  803.       ShowHint = True
  804.       TabOrder = 3
  805.     end
  806.     object panelNbPointsPartie: TPanel
  807.       Left = 138
  808.       Top = 25
  809.       Width = 153
  810.       Height = 18
  811.       BevelInner = bvLowered
  812.       BevelOuter = bvNone
  813.       Caption = '999 points'
  814.       Color = 8454143
  815.       ParentShowHint = False
  816.       ShowHint = True
  817.       TabOrder = 4
  818.     end
  819.     object panelTitreDetailScorePartie: TPanel
  820.       Left = 4
  821.       Top = 59
  822.       Width = 288
  823.       Height = 18
  824.       BevelInner = bvLowered
  825.       BevelOuter = bvNone
  826.       Caption = 'D∩┐╜tail score de la partie...'
  827.       Color = clSilver
  828.       ParentShowHint = False
  829.       ShowHint = True
  830.       TabOrder = 5
  831.     end
  832.     object panelDetailScorePartie: TPanel
  833.       Left = 4
  834.       Top = 81
  835.       Width = 288
  836.       Height = 18
  837.       BevelInner = bvLowered
  838.       BevelOuter = bvNone
  839.       Caption = 'D∩┐╜tail score...'
  840.       Color = 9220607
  841.       ParentShowHint = False
  842.       ShowHint = True
  843.       TabOrder = 6
  844.     end
  845.   end
  846.   object buttonNewHand: TButton
  847.     Left = 509
  848.     Top = 166
  849.     Width = 282
  850.     Height = 23
  851.     Cursor = crHandPoint
  852.     Caption = 'new hand...'
  853.     Font.Charset = DEFAULT_CHARSET
  854.     Font.Color = 65408
  855.     Font.Height = -16
  856.     Font.Name = 'MS Sans Serif'
  857.     Font.Style = []
  858.     ParentFont = False
  859.     TabOrder = 11
  860.     Visible = False
  861.     OnClick = buttonNewHandClick
  862.   end
  863.   object MainMenu: TMainMenu
  864.     Left = 103
  865.     Top = 410
  866.     object menuGinRummy: TMenuItem
  867.       Caption = 'Gin Rummy'
  868.       object menuNewGame: TMenuItem
  869.         Caption = 'New game'
  870.         ShortCut = 113
  871.         OnClick = menuNewGameClick
  872.       end
  873.       object menuChangeGame: TMenuItem
  874.         Caption = 'Change game '
  875.         ShortCut = 114
  876.         OnClick = menuChangeGameClick
  877.       end
  878.       object N1: TMenuItem
  879.         Caption = '-'
  880.       end
  881.       object menuInitHighScores: TMenuItem
  882.         Caption = 'Init High Scores'
  883.         ShortCut = 115
  884.         OnClick = menuInitHighScoresClick
  885.       end
  886.       object N2: TMenuItem
  887.         Caption = '-'
  888.       end
  889.       object menuQuit: TMenuItem
  890.         Caption = 'Quit'
  891.         ShortCut = 120
  892.         OnClick = menuQuitClick
  893.       end
  894.     end
  895.     object menuNiveau: TMenuItem
  896.       Caption = 'Niveau'
  897.       object menuDebutant: TMenuItem
  898.         Checked = True
  899.         RadioItem = True
  900.         OnClick = menuDebutantClick
  901.       end
  902.       object menuAmateur: TMenuItem
  903.         RadioItem = True
  904.         OnClick = menuAmateurClick
  905.       end
  906.       object menuAdvanced: TMenuItem
  907.         RadioItem = True
  908.         OnClick = menuAdvancedClick
  909.       end
  910.       object menuExpert: TMenuItem
  911.         RadioItem = True
  912.         OnClick = menuExpertClick
  913.       end
  914.     end
  915.     object menuVitesse: TMenuItem
  916.       Caption = 'Vitesse'
  917.       object menuVitesseTresRapide: TMenuItem
  918.         Caption = 'tr∩┐╜s rapide'
  919.         RadioItem = True
  920.         OnClick = menuVitesseTresRapideClick
  921.       end
  922.       object menuVitesseRapide: TMenuItem
  923.         Caption = 'rapide'
  924.         RadioItem = True
  925.         OnClick = menuVitesseRapideClick
  926.       end
  927.       object menuVitesseNormale: TMenuItem
  928.         Caption = 'normale'
  929.         RadioItem = True
  930.         OnClick = menuVitesseNormaleClick
  931.       end
  932.       object menuVitesseLente: TMenuItem
  933.         Caption = 'lente'
  934.         RadioItem = True
  935.         OnClick = menuVitesseLenteClick
  936.       end
  937.       object menuVitesseTresLente: TMenuItem
  938.         Caption = 'tr∩┐╜s lente'
  939.         RadioItem = True
  940.         OnClick = menuVitesseTresLenteClick
  941.       end
  942.     end
  943.     object menuAide: TMenuItem
  944.       Caption = 'Aide'
  945.       object menuSommaire: TMenuItem
  946.         Caption = 'Sommaire'
  947.         ShortCut = 112
  948.         OnClick = menuSommaireClick
  949.       end
  950.       object MenuAPropos: TMenuItem
  951.         Caption = 'a propos'
  952.         OnClick = MenuAProposClick
  953.       end
  954.     end
  955.   end
  956.   object timerOrdi: TTimer
  957.     Enabled = False
  958.     Interval = 2000
  959.     OnTimer = timerOrdiTimer
  960.     Left = 276
  961.     Top = 414
  962.   end
  963.   object timerOutputOrdi: TTimer
  964.     Enabled = False
  965.     Interval = 500
  966.     OnTimer = timerOutputOrdiTimer
  967.     Left = 330
  968.     Top = 414
  969.   end
  970.   object timerdebut: TTimer
  971.     Enabled = False
  972.     Interval = 1
  973.     OnTimer = timerdebutTimer
  974.     Left = 230
  975.     Top = 414
  976.   end
  977. end
  978.