Tech Gian 1999 July/TG199907.mdf/d_comic/dcomic.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1998-05-27 | 15.5 KB | 449 lines

object FrmMain: TFrmMain
  Left = 200
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FrmMain'
  ClientHeight = 485
  ClientWidth = 688
  Font.Charset = SHIFTJIS_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '�l�r �o�S�V�b�N'
  Font.Style = []
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PMain: TTechPanel
    Left = 0
    Top = 0
    Width = 304
    Height = 420
    Caption = 'PMain'
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '�l�r �S�V�b�N'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    AutoSize = True
    DoVisibleChange = False
    object BBuy: TTechButton
      Left = 139
      Top = 205
      Width = 139
      Height = 20
      AutoSize = True
      Picture.Data = {<image000.bmp>}
      OnMouseUp = BBuyMouseUp
    end
    object BSelect: TTechButton
      Left = 27
      Top = 350
      Width = 65
      Height = 26
      AutoSize = True
      Picture.Data = {<image001.bmp>}
      OnMouseUp = BSelectMouseUp
    end
    object BQuit: TTechButton
      Left = 29
      Top = 385
      Width = 65
      Height = 26
      AutoSize = True
      Picture.Data = {<image002.bmp>}
      OnMouseUp = BQuitMouseUp
    end
    object LComicNo: TLabel
      Left = 169
      Top = 353
      Width = 61
      Height = 20
      Alignment = taCenter
      AutoSize = False
      Caption = '30/30'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object BRight: TCmprsBtn
      Tag = 2
      Left = 201
      Top = 384
      Width = 35
      Height = 25
      AutoSize = True
      OnMouseUp = BLRMouseUp
      CompressedData = {
        4E010000789C6374E2CEF5FDC9000266E7FE3068DC606050BECBC020F99C8181
        F13FC70F90784BFD5F063860FC0F517B6A4340CF8D0E91A4E34B8D0EBFF16277
        DC7F4567F9E30CBEAB9F4D99ABEF159B649CDA24E373F082F2AE97219C9B9E04
        4A9EF960CF3AF54EAD50DAD55E8BD023C714F3CFAC9469BE3A492CFCF82E8D59
        77CB84E34EEC96B73AB6DFF1F6171D56FB83678D373E8DE79E77BF58A0F0DC72
        A9636F5CB89CF7DE56651805A360140C0AC0244C50C54B6E6676FC4A5E8BBEE6
        E6E0C4AFE62703AA9A972C9836A3AB79C5C6C744500D03C37F74A3B0A861F8CB
        2A42500D0303FB1F61826A1858B83808AA6160F82D4D580D030B2B2F41350C6C
        ACDC04D500E34984901AB8BB71AB61E727E466E470C4A146F803522062558316
        AFD8D4A0472AA61A78B0E05623F49D9781809AAFE8866051830D80D470B3E257
        F386EF35131F7E250C4C9FFE00005CA99202}
    end
    object BLeft: TCmprsBtn
      Tag = 1
      Left = 159
      Top = 386
      Width = 35
      Height = 25
      AutoSize = True
      OnMouseUp = BLRMouseUp
      CompressedData = {
        52010000789C6374E2CEF5FDC9000266E7FE3068DC606050BECBC020F99C8181
        F13FC70F90784BFD5F063860FC0F517B6A4340CF8D0E91F0E3BB340EBFF1625F
        FE3883CF71FF159DAB9F4D99D3AEF65A54DF2B36F139784179DBB31081A9776A
        85CE7CB067DDF8349E3BE3D42699FC332B65428F1C53ACBA3857A2F9EA24B1C4
        E35B5466DD2D13DEF53284B3F0DC7229AB63FB1DED0F9E35BEFD4587F5D81B17
        2EE7BDB755E34EEC96671805A360140C0A20CC424805E30BAEBF02F895BC147F
        C9C5C58E5FCD1F06AC6A189F4A1152F3FD17231F7E355FFFFE6460C7AFE6F7B7
        5F0CF8D5BCFBCD04A2F0A9F9FCEF17037E35EF987E435938D5303E676620A0E6
        192B421C879ADF1F1808AA61F8FC9599A01A2427E3F33B38FC08A881052181B8
        F8F6FB174135E02825A4069834BE1056C3C0F8F3074135400FB21256830C406A
        F819F1AB79C7FF52F80F7E250C9F997F0300D61DA102}
    end
    object BRightSkip: TCmprsBtn
      Tag = 2
      Left = 244
      Top = 379
      Width = 35
      Height = 25
      AutoSize = True
      OnMouseUp = BLRSkipMouseUp
      CompressedData = {
        8B010000789C6374E2CEF5FDC9000266E7FE3068DC606050BECBC020F99C8181
        F13FC70F90784BFD5F063860FC0FA622760ADE9B7223CC6EEF0B27C9F42359D9
        21BBD3BAAF7E3665AE3E131BB3E88EABEDC4CB3C13A20F1415B75C88F73DF546
        5BBEEE94E4FC9293E93167DF5B712DB9EF6B907138B2266CB7D1DED0DDA1B37B
        AE44B9DDFD222FB0E6919746F6F1AC94E4C3F9D9C17BCAAB6ACE2685328C8251
        300A061D60E623A482F11D3B2B2B7E25EF05DFB33308E257F39301AEE6130F13
        54F0DF776E1C6A5EF27240157DFDC1CA87430D0BE77F6EA81A066445286A18A0
        5240350C7CACB8D4401481D4307071E25203D60F56835084A106240551C3C0F5
        8B1F871AA022A81A86BFECFC38D4307071BD614056844D0D83C00718EB8F380E
        35ACCC3F602672E2B08B950FE61EA8CF30D5004308AA0616D6E86A3841710651
        038F0E3435602510358818435503510252C3094B03E86AA061065483AC04450D
        235409C357466425C86ABEFE812A61F8CFC0C8805D0D4E0052C3FB1DBF9ABF9C
        EF9999F12B61E0FAF207008010AD02}
    end
    object BLeftSkip: TCmprsBtn
      Tag = 1
      Left = 117
      Top = 380
      Width = 35
      Height = 25
      AutoSize = True
      OnMouseUp = BLRSkipMouseUp
      CompressedData = {
        92010000789C6374E2CEF5FDC9000266E7FE3068DC606050BECBC020F99C8181
        F13FC70F90784BFD5F063860FC0FA622760ADE9B74D5C777EF0B27C9BA5392F3
        437787CEBEFAD99479EB5357C5EA33B1318BEEB8DA461F282A9E789967C2A937
        DAF22D17E27DB38F67A59C7D6FC5957138B2A6E4647A4CF09EF2AAB0DD467B97
        DCF73538FB565D7ECA8D30BB9E2B516E77BFC80B241FCECF0ED99DD65D733629
        9461148C825130A800A32021159FFE88BCE7C7AFE49DD03B912F9C042C624057
        F3E73F2B94F583E70F76357F18D9FF40595F59B8B1AAE1FCF25DE00F54F17746
        AC6A7E038B45881AA01206AC6A404A206A80E6316055C3F28101AA06AC189B1A
        A64F0C5035102558D4409500D540CCC354F3830BAA8441E01F8C85AE86F53DCC
        E1D0621C9B5D503700CDF9FE13971AB822813FFFFF7DC7A106A608E82F500062
        57C300D10F0A1F8822ACE10C96028733FB2B661C6AC08A20F1F5E327330E3520
        FDD078072AC2A10628250C4D3F3FB83EE350C3F0839D11C6E4FC8E430D2600A9
        61FE825FCD7F8E778C6CF8953070703D07003A50C602}
    end
    object ISample: TImage
      Left = 28
      Top = 84
      Width = 98
      Height = 138
      Stretch = True
    end
    object LStory: TLabel
      Left = 28
      Top = 229
      Width = 252
      Height = 112
      AutoSize = False
      Caption = 'LStory'
      Color = clWhite
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '�l�r �S�V�b�N'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object BLeftDis: TCompressedImage
      Left = 127
      Top = 346
      Width = 35
      Height = 25
      AutoSize = True
      Visible = False
      CompressedData = {
        50010000789C6374E2CEF5FDC9000266E7FE3068DC606050BECBC020F99C8181
        F13FC70F90784BFD5F063860FC0FA6C45F7A6DCBF8685C62F328B576DF171DA5
        695F753C151E644F6D786F136A72BFA0D6FF8D436BFB47F3C01BDF1504E77D53
        774D7A11985AFAD23F58F74E5963FF6743DFA067D1B9DE8F130B0F7DD150B279
        905D99F9CA2731EA795866C53BC748D5DBD5AD324FA29675BF7173767E94561A
        F1383145F96E712FC3281805A36050005E6E422ADEFE16FA26805FC90B891742
        ECFFF0AB6164C0AAE6CF4F6E426AFEBD6712C4AFE6C37F5686DFF8D5FCFACCCE
        805FCD778EAF200A9F1AE657EC0CF8D57C67FB0E65E154F3E7CF1F06026ABEFE
        4788E350F3EB170341350CCC5FFF105483E4647C7E07871F0135B0202410173F
        BFB01354038E52426A8049E31B61350C7FBEFD25A806E84136C26A900148CD8F
        9FF8D5FC137FC1CB875F09C373A92700A777B002}
    end
    object BLeftSkipDis: TCompressedImage
      Left = 105
      Top = 347
      Width = 35
      Height = 25
      AutoSize = True
      Visible = False
      CompressedData = {
        95010000789CEDD2BB4BC3401C07F0DF35B54929B56DA81407E9A060FF02173B
        091DC50E2E5D5C547029828BDD74D0C5A593830EC5C5D9C14D1C0BA2D4070644
        0B059182DAD277FA489326E671E9502F7175E877B91FB9CF1D97DF1D5AF22497
        05D0B2F02041E41560B60030FD098014A6A77D3FD81BC03048D18760439136BA
        7466FDC99DBDAD7AA327ADB9782C27371277547EB7C09E1E9566B6932F931767
        EF4CAAD0F685339DF9D8EA0D2AA62BE1CDD4337599CE3B8E733577748BF35C25
        38C4ED174387910FA5BBF3E63F8FD79DD78B9CD25AC9CAB5B57BD7238C33CE38
        FF2AFE89BF04F51570C9F6A43C550E083E7B23C1A841353FAEF83E4B36A844B1
        B8E2FB01A2119A8CC862CC484453A7000CA312201A8D1846DD0F88A6AA774A33
        3A2619B107D818846030514D15777ED4F03426207ACD6AD40C3AE6C125275818
        F30CEA3E0ECACA0C91C87E3B180B6322F5BFB406920D18EBB5FE1888D8677D4A
        EF7385912D8C8E8CFBE2916C61B4F5F8DE556461D42901BF1F9EE62D0CF0ED90
        590AB485F91DCDF47BF6460E96FD8A3D016753FC013CBAE202}
    end
    object BRightSkipDis: TCompressedImage
      Left = 269
      Top = 352
      Width = 35
      Height = 25
      AutoSize = True
      Visible = False
      CompressedData = {
        87010000789CEDD2BB4BC3401C07F0DF59D344439A206AD0A58382FD0B5C7412
        3A8A1D5CBAB854C1A58B8BC545073B3BEB505C9C1DDCC45110DF8F80A8501029
        142D3E6AAC496A9A9877D3C7C5D5A1DF2570F7B9BBDCEF77688A4E4F2B6066FC
        4285D81DC0481E60A80880744A36C7D7576BE005E9D6A7BFACABCBF9BEADA480
        844D713471FCC64C668BC32B898FEE83F899565E2BF0D9D92354C857D868EAAA
        E730F73D16DF7EA432999BD0DEC66B742179127A58BAE77616057A3F7D1BD99D
        97C85CEC499726045D4C9DA2EB9943ED7DEE3C7C099D74D2C9BF0BAFFD25D00B
        A3B0C1A4345062800E3635F0CC4F5877F7FE6430E6B96BD0412222098CA1258A
        710CF851830167CA304090386323D380CAE18CB5DE3275D462CC29DB808A588C
        3190632054653106D4DE2AF8513B038A77A70A8F31A48CDC1D39CC5924E1FE8F
        73B3566354C8316EAD9B8D64F6CC365E3B9A8C456C53EF58A3B1896924F70D34
        1BA76686F1930613710888B29FF88DA8B9EF5A060ADA1B6C4C53AB061B0E9578
        2998C017A1FC02A12DBD02}
    end
    object BRightDis: TCompressedImage
      Left = 220
      Top = 355
      Width = 35
      Height = 25
      AutoSize = True
      Visible = False
      CompressedData = {
        4F010000789C6374E2CEF5FDC9000266E7FE3068DC606050BECBC020F99C8181
        F13FC70F90784BFD5F063860FC0FA6C45F7A6DCBF8685C62F328B576DF171DA5
        695F753C151E644F6D786F131AF1383145F74E59E38DEF0A82856FDC62E77D53
        77F57E9C58E8FFC6A1B5FFB3A16FD4F3B0CC435F3494BADFB8399BDC2FA8757E
        94569AF9CA27B1E29D6364FB47F340D5DBD5AD324FA29625BD084C2D7DE91FAC
        7CB7B8D7E6417625C3281805A3605000A97F8454BCFD2DF0971BBF9217122F04
        18D9F0AB61644055F3EF333F41355F7E7260D88CA18681810BDD282C6A189859
        5908AA6160E0FCC24F500D0337DB6F826A1818F8FE1156C3C0FD8795A01A869F
        DC1C04D5303070B010520377376E359CCC84DC8C1C8E38D4FCFF87148858D5A0
        C52B3635E8918AA9061E2CB8D5FCE6616520A0E607BA2158D4600320353F7FE1
        57F34FFC85D45BFC4A187E4B3E05005A2E8A02}
    end
    object MData: TMemo
      Left = 137
      Top = 84
      Width = 141
      Height = 107
      TabStop = False
      BorderStyle = bsNone
      Color = clWhite
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '�l�r �S�V�b�N'
      Font.Style = []
      HideSelection = False
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object PTitle: TTechPanel
      Left = 26
      Top = 21
      Width = 252
      Height = 52
      Caption = 'PTitle'
      TabOrder = 1
      AutoSize = True
      DoVisibleChange = False
    end
  end
  object PSub: TTechPanel
    Left = 348
    Top = 2
    Width = 185
    Height = 41
    Caption = 'PSub'
    TabOrder = 1
    AutoSize = True
    DoVisibleChange = False
  end
  object PBuy: TTechPanel
    Left = 330
    Top = 54
    Width = 305
    Height = 156
    Caption = 'PBuy'
    TabOrder = 2
    Visible = False
    AutoSize = True
    DoVisibleChange = False
    object MBuy: TMemo
      Left = 40
      Top = 30
      Width = 185
      Height = 89
      BorderStyle = bsNone
      Color = clWhite
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = '�l�r �S�V�b�N'
      Font.Style = []
      Lines.Strings = (
        'MBuy')
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object POpen: TTechPanel
    Left = 352
    Top = 171
    Width = 185
    Height = 41
    Caption = 'POpen'
    TabOrder = 3
    OnClick = POpenClick
    AutoSize = True
    DoVisibleChange = False
  end
  object PBBuy: TPanel
    Left = 3
    Top = 422
    Width = 147
    Height = 55
    Caption = 'PBBuy'
    TabOrder = 4
    Visible = False
    object IBuy1: TCmprsBtn
      Left = 3
      Top = 3
      Width = 139
      Height = 20
      CompressedData = {
        10020000789CED96BD6FD3401887DF73EE62C71FA18192A162E9C68658D818E0
        3F808D117561AAC480D411C1C08090D8BA02330313524555D1167568258A2A04
        ED80142A1A95344D13C7DF773E734EA276B39D28C819F22CBEB37EB29FF7BE74
        E8AE76F0B70331B7BE32B8BE0FF0F209C06C1300458A17BF6FCF39700E8A7A8F
        F93F2C7AB7EFBC5EDC68D76A5D7673FDC87FF860A505368D2ACFB7BB9F173E35
        9D57BBD6871F2D7AE7FD2FF7E9D296F96DF9CBE1E6ED5D3B125F401F7F7B8F1B
        2E9F5FFE6EBF595C6D34771AC1BD67EBF59F6FB76A2B2F368EF696D68E0FEFEF
        754E6E1CF8D1C2DA59FBD1EA4907A64C99321190BC052EA0E46A3D6F871E6517
        E835DACA5B23A604C2E54AE0650A4B1C643A68133F396BB80CAAADCB9D4B750C
        9AD618B78B119A927EDEF37852B67A463C5EC44011B68C08D9E376C188585CE5
        1C3B155FB667936BAD3A6D24CD38A45B124295B18F0B480A03EC7155140B014B
        CE8A3111BB22543C6AA4664776318B8A8583320BD25C3C60B2679850064A93B3
        23B88852858B251317FB7ABA0B0586A9CA225F2661CA421FDE2524404BD95D18
        147DAA5A3A392D17BAE376E9FFC296B114F85A56975E272D3C8A8B6696F0A099
        798E32690CED22BB3A9B696A21A2D8D5D346BDBF76A96A1720FD601CDEA57ACC
        B1A4F4DBE65CCA91D1DFD38339CAB691865D2FFF93C9732944797BC4605BB828
        46DE1A3D0AA7F15D2A6F8B0B26CAE51F61332011}
    end
    object IBuy2: TCmprsBtn
      Left = 2
      Top = 25
      Width = 139
      Height = 20
      CompressedData = {
        1C020000789CED96BD6FD34014C09FEF1C27F129AE2931341455150B54A00A31
        8084888460A013426240CEC4C28E84D86166A07F0082BFA0B0B0312010055414
        8A840ACD0088216A2B9A607CF547FC753871D46EB15DA57286FC16DF59CFF2EF
        DE7B773AEE0A696CFD832EE73F7B706A1DE0D17D80F23600C70A76F7BD76CC84
        5D38163D6637ECBBE77E3C2CD796EBA0BE6DBE3EAA5DFC2B7813DCFC4F7AA3BA
        F6F4EC42FDD5E393CD3BAB878CD3A2FAAEF1E0CCEF7BCF4E6CDE0ABFE67E117B
        A65AAB3FB97CF5CBD29CBAF2F2F685C6E28BE3AD05EED25A7BA6F6E1CDB5DAEA
        A2525DFF367B7DE5E3BCFAE9F984BAFC55BEF9FE3B8C19336624C0590BECE163
        EC64EDD04369833FCDB6B2D6E83209A10B9268A26049875CB13FB6DCC1B1F28E
        07953FCA76B9894038BC316C17D9A5457E7786F541B1954D11EB45046601792C
        E726EA81342EBC2F7A167145D798ECE4033278AD15AA4FEDE43591D050686AE8
        7901C90F00619D848B858E373836CC098059F271C1888DDDB70B957D2FAF9502
        2BCE0543C7510C0A2530D9D05DC2A5862E9E235A4CE0E35DCCF0FAC248600B8E
        E8C4347A7A9723361468729700B0C188C70BAD524E1BB64BF40BC610E7735C52
        97DE242E783F2E824C517F98B846893452BBE4101FC806725D8C2C292EEB51EF
        32C2BA2752DCC198DEA5D2B690E447633A1D7364447BBA5FA3641B296DBF1C24
        A3E7A224AAE74123F8A10BC967ADD1836F75EF52595BEC31522EFF015BF9FD02}
    end
  end
  object MStory: TMemo
    Left = 161
    Top = 427
    Width = 64
    Height = 58
    BorderStyle = bsNone
    Color = clWhite
    Ctl3D = False
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '�l�r �S�V�b�N'
    Font.Style = []
    Lines.Strings = (
      '')
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
    Visible = False
  end
  object Ini: TIniGT
    DefaultDir = ddApplication
    Fence = fnNone
    Left = 648
    Top = 23
  end
  object Tmr: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = TmrTimer
    Left = 653
    Top = 73
  end
end