home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / IMDB_tool_2054503182007.psc / frmIMDB.frm < prev    next >
Text File  |  2007-02-10  |  19KB  |  630 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  4. Begin VB.Form frmIMDB 
  5.    AutoRedraw      =   -1  'True
  6.    BackColor       =   &H8000000C&
  7.    ClientHeight    =   5550
  8.    ClientLeft      =   3615
  9.    ClientTop       =   3315
  10.    ClientWidth     =   9870
  11.    BeginProperty Font 
  12.       Name            =   "Tahoma"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "frmIMDB.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    MDIChild        =   -1  'True
  23.    ScaleHeight     =   370
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   658
  26.    Begin VB.PictureBox pic_RAT 
  27.       Appearance      =   0  'Flat
  28.       AutoRedraw      =   -1  'True
  29.       AutoSize        =   -1  'True
  30.       BackColor       =   &H80000005&
  31.       BorderStyle     =   0  'None
  32.       ForeColor       =   &H80000008&
  33.       Height          =   990
  34.       Left            =   6600
  35.       Picture         =   "frmIMDB.frx":000C
  36.       ScaleHeight     =   66
  37.       ScaleMode       =   3  'Pixel
  38.       ScaleWidth      =   59
  39.       TabIndex        =   12
  40.       Top             =   4320
  41.       Visible         =   0   'False
  42.       Width           =   885
  43.    End
  44.    Begin VB.PictureBox Picture1 
  45.       AutoRedraw      =   -1  'True
  46.       BackColor       =   &H00FF00FF&
  47.       BorderStyle     =   0  'None
  48.       Height          =   2100
  49.       Left            =   5640
  50.       ScaleHeight     =   140
  51.       ScaleMode       =   3  'Pixel
  52.       ScaleWidth      =   140
  53.       TabIndex        =   11
  54.       Top             =   0
  55.       Visible         =   0   'False
  56.       Width           =   2100
  57.    End
  58.    Begin VB.PictureBox Picture4 
  59.       AutoRedraw      =   -1  'True
  60.       AutoSize        =   -1  'True
  61.       Height          =   540
  62.       Left            =   1560
  63.       ScaleHeight     =   32
  64.       ScaleMode       =   3  'Pixel
  65.       ScaleWidth      =   33
  66.       TabIndex        =   10
  67.       Top             =   480
  68.       Visible         =   0   'False
  69.       Width           =   555
  70.    End
  71.    Begin VB.PictureBox Picture2 
  72.       AutoRedraw      =   -1  'True
  73.       BackColor       =   &H8000000C&
  74.       BorderStyle     =   0  'None
  75.       Height          =   2100
  76.       Left            =   5760
  77.       ScaleHeight     =   140
  78.       ScaleMode       =   3  'Pixel
  79.       ScaleWidth      =   140
  80.       TabIndex        =   9
  81.       Top             =   120
  82.       Visible         =   0   'False
  83.       Width           =   2100
  84.    End
  85.    Begin VB.PictureBox Picture3 
  86.       AutoRedraw      =   -1  'True
  87.       BorderStyle     =   0  'None
  88.       Height          =   2100
  89.       Left            =   5760
  90.       ScaleHeight     =   140
  91.       ScaleMode       =   3  'Pixel
  92.       ScaleWidth      =   140
  93.       TabIndex        =   8
  94.       Top             =   360
  95.       Visible         =   0   'False
  96.       Width           =   2100
  97.    End
  98.    Begin VB.PictureBox pic_Standard 
  99.       Appearance      =   0  'Flat
  100.       AutoRedraw      =   -1  'True
  101.       BackColor       =   &H8000000C&
  102.       BorderStyle     =   0  'None
  103.       ForeColor       =   &H80000008&
  104.       Height          =   1635
  105.       Left            =   4920
  106.       ScaleHeight     =   109
  107.       ScaleMode       =   3  'Pixel
  108.       ScaleWidth      =   85
  109.       TabIndex        =   7
  110.       Top             =   2280
  111.       Visible         =   0   'False
  112.       Width           =   1275
  113.    End
  114.    Begin VB.PictureBox tmpPic 
  115.       Appearance      =   0  'Flat
  116.       AutoRedraw      =   -1  'True
  117.       AutoSize        =   -1  'True
  118.       BackColor       =   &H8000000C&
  119.       BorderStyle     =   0  'None
  120.       ForeColor       =   &H00FFFFFF&
  121.       Height          =   1635
  122.       Left            =   2520
  123.       ScaleHeight     =   109
  124.       ScaleMode       =   3  'Pixel
  125.       ScaleWidth      =   85
  126.       TabIndex        =   6
  127.       Top             =   1620
  128.       Visible         =   0   'False
  129.       Width           =   1275
  130.    End
  131.    Begin MSWinsockLib.Winsock sckPicture 
  132.       Left            =   840
  133.       Top             =   2160
  134.       _ExtentX        =   741
  135.       _ExtentY        =   741
  136.       _Version        =   393216
  137.    End
  138.    Begin MSComctlLib.ListView setTree 
  139.       Height          =   1935
  140.       Left            =   1980
  141.       TabIndex        =   2
  142.       Top             =   300
  143.       Width           =   2355
  144.       _ExtentX        =   4154
  145.       _ExtentY        =   3413
  146.       View            =   3
  147.       LabelEdit       =   1
  148.       LabelWrap       =   -1  'True
  149.       HideSelection   =   -1  'True
  150.       HideColumnHeaders=   -1  'True
  151.       FullRowSelect   =   -1  'True
  152.       _Version        =   393217
  153.       ForeColor       =   -2147483640
  154.       BackColor       =   -2147483636
  155.       Appearance      =   0
  156.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  157.          Name            =   "Tahoma"
  158.          Size            =   8.25
  159.          Charset         =   0
  160.          Weight          =   400
  161.          Underline       =   0   'False
  162.          Italic          =   0   'False
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.       NumItems        =   2
  166.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  167.          Text            =   "Field"
  168.          Object.Width           =   38100
  169.       EndProperty
  170.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  171.          SubItemIndex    =   1
  172.          Text            =   "Data"
  173.          Object.Width           =   38100
  174.       EndProperty
  175.    End
  176.    Begin VB.PictureBox picTitle 
  177.       Appearance      =   0  'Flat
  178.       AutoRedraw      =   -1  'True
  179.       BackColor       =   &H8000000C&
  180.       BorderStyle     =   0  'None
  181.       BeginProperty Font 
  182.          Name            =   "Tahoma"
  183.          Size            =   12
  184.          Charset         =   0
  185.          Weight          =   700
  186.          Underline       =   -1  'True
  187.          Italic          =   0   'False
  188.          Strikethrough   =   0   'False
  189.       EndProperty
  190.       ForeColor       =   &H80000008&
  191.       Height          =   315
  192.       Left            =   1800
  193.       ScaleHeight     =   315
  194.       ScaleWidth      =   3315
  195.       TabIndex        =   1
  196.       Top             =   60
  197.       Width           =   3315
  198.    End
  199.    Begin VB.PictureBox picCover 
  200.       Appearance      =   0  'Flat
  201.       AutoRedraw      =   -1  'True
  202.       BackColor       =   &H8000000C&
  203.       BorderStyle     =   0  'None
  204.       ForeColor       =   &H80000008&
  205.       Height          =   1455
  206.       Left            =   0
  207.       ScaleHeight     =   97
  208.       ScaleMode       =   3  'Pixel
  209.       ScaleWidth      =   113
  210.       TabIndex        =   0
  211.       Top             =   120
  212.       Width           =   1695
  213.       Begin MSComctlLib.ProgressBar picProgress 
  214.          Height          =   315
  215.          Left            =   300
  216.          TabIndex        =   4
  217.          Top             =   600
  218.          Visible         =   0   'False
  219.          Width           =   1035
  220.          _ExtentX        =   1826
  221.          _ExtentY        =   556
  222.          _Version        =   393216
  223.          BorderStyle     =   1
  224.          Appearance      =   0
  225.          Scrolling       =   1
  226.       End
  227.       Begin VB.Label lblPic 
  228.          BackColor       =   &H8000000C&
  229.          ForeColor       =   &H80000018&
  230.          Height          =   435
  231.          Left            =   360
  232.          TabIndex        =   5
  233.          Top             =   960
  234.          Visible         =   0   'False
  235.          Width           =   975
  236.          WordWrap        =   -1  'True
  237.       End
  238.    End
  239.    Begin VB.Label lblPlot 
  240.       BackColor       =   &H8000000C&
  241.       BackStyle       =   0  'Transparent
  242.       BeginProperty Font 
  243.          Name            =   "Tahoma"
  244.          Size            =   9
  245.          Charset         =   0
  246.          Weight          =   400
  247.          Underline       =   0   'False
  248.          Italic          =   0   'False
  249.          Strikethrough   =   0   'False
  250.       EndProperty
  251.       ForeColor       =   &H00000000&
  252.       Height          =   375
  253.       Left            =   1320
  254.       TabIndex        =   3
  255.       Top             =   1680
  256.       Width           =   435
  257.    End
  258. End
  259. Attribute VB_Name = "frmIMDB"
  260. Attribute VB_GlobalNameSpace = False
  261. Attribute VB_Creatable = False
  262. Attribute VB_PredeclaredId = True
  263. Attribute VB_Exposed = False
  264. Private thisIMDBData As MOVIE_DATA_IMDB
  265. Private PIC_DATA As String
  266. Public FP As Boolean
  267.  
  268. Public PICSIZE As Long
  269.  
  270.  
  271.  
  272. Private Sub Form_Load()
  273. BG_COL = RGB(38, 59, 89)
  274. TX_COL = vbWhite
  275. Picture2.BackColor = BG_COL
  276. picCover.BackColor = BG_COL
  277.  
  278. Me.BackColor = BG_COL
  279.  
  280. setTree.BackColor = BG_COL
  281. picTitle.BackColor = BG_COL
  282. lblPlot.BackColor = BG_COL
  283. lblPic.BackColor = BG_COL
  284.  
  285. setTree.ForeColor = RGB(130, 160, 160)
  286. picTitle.ForeColor = TX_COL
  287. lblPic.ForeColor = TX_COL
  288. lblPlot.ForeColor = TX_COL
  289.  
  290. End Sub
  291.  
  292. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  293. 'find the linked object and
  294. 'clear info
  295. For i = 0 To UBound(WNDWS)
  296.     With WNDWS(i)
  297.         If .pHwnd = Me.hwnd Then
  298.             'this the form
  299.             For ii = 1 To frmMain.wnds.Buttons.Count
  300.                 If frmMain.wnds.Buttons(ii).Tag = i Then
  301.                     'remove the associated tab
  302.                     frmMain.wnds.Buttons.Remove (ii)
  303.                     Exit Sub
  304.                 End If
  305.             Next
  306.         End If
  307.     End With
  308. Next
  309. End Sub
  310.  
  311. Private Sub Form_Resize()
  312. On Error Resume Next
  313. picCover.Move 2, 2, 122, Me.ScaleHeight - 4
  314. picTitle.Move picCover.Left + picCover.Width + 2, picCover.Top + 10, Me.ScaleWidth - (picCover.Width + 6)
  315. setTree.Move picTitle.Left, picTitle.Top + picTitle.Height + 10, picTitle.Width, 120
  316. setTree.ColumnHeaders(1).Width = ((setTree.Width / 2) - 3)
  317. setTree.ColumnHeaders(2).Width = ((setTree.Width / 2) - 3)
  318. lblPlot.Move picTitle.Left, setTree.Top + setTree.Height + 32, picTitle.Width, Me.ScaleHeight - (picTitle.Height + setTree.Height + 8)
  319. picProgress.Move 24, (picCover.Height / 2) - (picProgress.Height / 2), picCover.Width - 48
  320. lblPic.Move picProgress.Left, picProgress.Top + picProgress.Height, picProgress.Width
  321. Image1.Move 112, 91
  322. Image2.Move 0, 220
  323. 'DRAW_IMAGE
  324. Set_Title
  325. End Sub
  326.  
  327. Public Sub Set_Title()
  328. Dim RTS() As String
  329.  
  330. picTitle.Cls
  331. picTitle.CurrentX = (picTitle.ScaleWidth / 2) - (picTitle.TextWidth(thisIMDBData.mTitle) / 2)
  332. picTitle.CurrentY = (picTitle.ScaleHeight / 2) - (picTitle.TextHeight(thisIMDBData.mTitle) / 2)
  333.  
  334. picTitle.Print thisIMDBData.mTitle
  335. If Trim(thisIMDBData.v4_MpaaRating) <> "" Then
  336.  
  337. RTS = Split(LCase(thisIMDBData.v4_MpaaRating), "rated r")
  338. If UBound(RTS) > 0 Then
  339.         StretchBlt picTitle.hdc, 2, 4, 11, 10, pic_RAT.hdc, 0, 11, 11, 10, vbSrcCopy
  340.         GoTo GotRating:
  341. End If
  342.  
  343. RTS = Split(LCase(thisIMDBData.v4_MpaaRating), "pg-13")
  344. If UBound(RTS) > 0 Then
  345.         StretchBlt picTitle.hdc, 2, 4, 34, 10, pic_RAT.hdc, 0, 22, 34, 10, vbSrcCopy
  346.         GoTo GotRating:
  347. End If
  348.  
  349. RTS = Split(LCase(thisIMDBData.v4_MpaaRating), "rated pg")
  350. If UBound(RTS) > 0 Then
  351.         StretchBlt picTitle.hdc, 2, 4, 20, 10, pic_RAT.hdc, 0, 33, 20, 10, vbSrcCopy
  352.         GoTo GotRating:
  353. End If
  354.  
  355. RTS = Split(LCase(thisIMDBData.v4_MpaaRating), "rated g")
  356. If UBound(RTS) > 0 Then
  357.         StretchBlt picTitle.hdc, 2, 4, 11, 10, pic_RAT.hdc, 0, 0, 11, 10, vbSrcCopy
  358.         GoTo GotRating:
  359. End If
  360.  
  361. RTS = Split(LCase(thisIMDBData.v4_MpaaRating), "nc-17")
  362. If UBound(RTS) > 0 Then
  363.         StretchBlt picTitle.hdc, 2, 4, 36, 10, pic_RAT.hdc, 0, 44, 36, 10, vbSrcCopy
  364.         GoTo GotRating:
  365. End If
  366.  
  367. RTS = Split(LCase(thisIMDBData.v4_MpaaRating), "unrated")
  368. If UBound(RTS) > 0 Then
  369.         StretchBlt picTitle.hdc, 2, 4, 58, 10, pic_RAT.hdc, 0, 55, 58, 10, vbSrcCopy
  370.         GoTo GotRating:
  371. End If
  372.  
  373. End If
  374. GotRating:
  375. End Sub
  376.  
  377. Public Sub LoadIMDBData(sF1 As String, sF2 As String, sF3 As String, sF4 As String, sF5 As String, sF6 As String, sF7 As String, sF8 As String, sF9 As String, sF10 As Boolean, sF11 As String, sF12 As String, sF13 As String)
  378. With thisIMDBData
  379.     .Country = sF1
  380.     .CoverURL = sF2
  381.     .Language = sF3
  382.     .mDate = sF4
  383.     .mGenre = sF5
  384.     .mSypnosys = sF6
  385.     .mTitle = sF7
  386.     .Runtime = sF8
  387.     .userRating = sF9
  388.     .Offline = sF10
  389.     .ttID = sF11
  390.     .v4_Tagline = sF12
  391.     .v4_MpaaRating = sF13
  392. End With
  393.  
  394. setTree.ListItems.Clear
  395.  
  396. Dim aa As ListItem
  397. With thisIMDBData
  398.     Set aa = setTree.ListItems.Add(, , "Year:")
  399.         aa.SubItems(1) = .mDate
  400.     Set aa = setTree.ListItems.Add(, , "Genre:")
  401.         aa.SubItems(1) = .mGenre
  402.     Set aa = setTree.ListItems.Add(, , "Runtime:")
  403.         aa.SubItems(1) = .Runtime
  404.     Set aa = setTree.ListItems.Add(, , "Language:")
  405.         aa.SubItems(1) = .Language
  406.     Set aa = setTree.ListItems.Add(, , "Country:")
  407.         aa.SubItems(1) = .Country
  408.     Set aa = setTree.ListItems.Add(, , "User Rating:")
  409.         aa.SubItems(1) = .userRating
  410.     Set aa = setTree.ListItems.Add(, , "Tagline:")
  411.         aa.SubItems(1) = .v4_Tagline
  412.         aa.ToolTipText = .v4_Tagline
  413.     Set aa = setTree.ListItems.Add(, , "MPAA Rating:")
  414.         aa.SubItems(1) = .v4_MpaaRating
  415.         
  416.     setTree.ToolTipText = .v4_Tagline
  417. lblPlot.Caption = FixPlot(FixHTMLChars(.mSypnosys))
  418. Me.Caption = .mTitle
  419.  
  420. If Not (.Offline) Then
  421. If Trim(.CoverURL) <> "" Then
  422.     Me.Show
  423.     Form_Resize
  424.     DownloadImage .CoverURL, sckPicture, .ttID
  425.     'DownloadImage "http://www.get-right.com/getright52beta4.exe", sckPicture
  426. End If
  427. Else
  428.     'load image from file
  429.     If .CoverURL <> "" Then
  430.     Picture4.Picture = LoadPicture(App.Path & "\" & .ttID)
  431.     
  432.     End If
  433.     DRAW_IMAGE
  434. End If
  435. End With
  436.  
  437. Form_Resize
  438. End Sub
  439.  
  440.  
  441.  
  442. Private Sub sckPicture_DataArrival(ByVal bytesTotal As Long)
  443.  
  444. Dim SS() As String
  445. Dim NEWDATA As String
  446. Dim HSPL() As String
  447. Dim HYSPL() As String
  448.  
  449. sckPicture.GetData NEWDATA
  450.  
  451. SS = Split(NEWDATA, vbCrLf & vbCrLf)
  452. If Not (FP) Then
  453. If UBound(SS) > 0 Then
  454.  
  455.  
  456.     'get image size
  457.     HSPL = Split(SS(0), "content-length: ", , vbTextCompare)
  458.     If UBound(HSPL) > 0 Then
  459.         HYSPL = Split(HSPL(1), vbCrLf, , vbTextCompare)
  460.         If UBound(HYSPL) > 0 Then
  461.             PICSIZE = Val(HYSPL(0))
  462.             picProgress.Max = PICSIZE
  463.             picProgress.Visible = True
  464.             
  465.             
  466.         Else
  467.             GoTo nopicsize:
  468.         End If
  469.     Else
  470.         GoTo nopicsize:
  471.     End If
  472.     
  473.     
  474.     
  475. nopicsize:
  476.  
  477.     NEWDATA = ""
  478.     For i = 1 To UBound(SS)
  479.         If i <> UBound(SS) Then
  480.             NEWDATA = NEWDATA & SS(i) & vbCrLf & vbCrLf
  481.         Else
  482.             NEWDATA = NEWDATA & SS(i)
  483.         End If
  484.     Next
  485.     FP = True
  486. End If
  487. End If
  488. DoEvents
  489. PIC_DATA = PIC_DATA & NEWDATA
  490. If picProgress.Visible Then
  491.     On Error GoTo progerr:
  492.     picProgress.Value = Len(PIC_DATA)
  493.     lblPic.Caption = "Getting Picture: " & Round(Len(PIC_DATA) / 1024, 2) & " of " & Round(PICSIZE / 1024, 2) & " KB"
  494. Else
  495.     
  496.     lblPic.Caption = "Getting Picture: " & Round(Len(PIC_DATA) / 1024, 2) & " KB"
  497.     
  498. End If
  499.  
  500. progerr:
  501.  
  502.  
  503.  
  504.  
  505. End Sub
  506.  
  507. Public Sub GotPicture(Optional sOutFile As String)
  508. 'MsgBox Len(PIC_DATA)
  509. Dim OutFile1 As String
  510. OutFile1 = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & sOutFile
  511.  
  512. 'remove trailing VBCRLF
  513.  
  514. 'PIC_DATA = Left(PIC_DATA, Len(PIC_DATA) - 2)
  515.  
  516.  
  517. Open OutFile1 For Output As #1
  518.     Print #1, PIC_DATA
  519. Close #1
  520.  
  521. picProgress.Visible = False
  522. gotheader = False
  523. lblPic.Visible = False
  524.  
  525. Picture4.Picture = LoadPicture(OutFile1)
  526. DRAW_IMAGE
  527.  
  528. PICSIZE = 0
  529. End Sub
  530.  
  531. Public Sub StartImage()
  532. PIC_DATA = ""
  533. FP = False
  534. picProgress.Visible = False
  535.  
  536. PICSIZE = 0
  537. DoEvents
  538. lblPic.Visible = True
  539. picProgress.Value = 0
  540. End Sub
  541.  
  542. Public Sub DRAW_IMAGE()
  543. 'ok, we are totally re-writing this code to allow reflections on the
  544. 'new version
  545.  
  546. 'old:
  547. 'Dim ORIGW As Long
  548. 'Dim ORIGH As Long
  549. 'Dim SCLW As Long
  550. 'Dim SCLH As Long
  551. 'Dim IMGW As Long
  552. 'Dim IMGH As Long
  553. 'Dim XX As Long
  554. 'Dim YY As Long
  555. 'Dim ASPW As Long
  556. 'Dim ASPH As Long
  557. 'ORIGW = tmpPic.ScaleWidth
  558. 'ORIGH = tmpPic.ScaleHeight
  559. 'SCLW = picCover.ScaleWidth
  560. 'SCLH = picCover.ScaleHeight
  561. 'XX = 0
  562. 'YY = 0
  563. 'IMGW = SCLW
  564. 'IMGH = SCLH
  565. 'If ORIGW < SCLW And ORIGH < SCLH Then
  566. 'picture is small enough to fit into the
  567. 'picture box!
  568. 'If frmMain.mnuVSC.Checked = False Then
  569. 'XX = (SCLW / 2) - (ORIGW / 2)
  570. 'YY = (SCLH / 2) - (ORIGH / 2)
  571. 'IMGW = ORIGW
  572. 'IMGH = ORIGH
  573. 'Else
  574. 'XX = 0
  575. 'YY = 0
  576. 'IMGW = SCLW
  577. 'IMGH = SCLH
  578. 'End If
  579. 'GoTo DRAWIT:
  580. 'End If
  581. 'If ORIGW > SCLW And ORIGH > SCLH Then
  582. 'image is too large to fit into the picture
  583. 'box, shrink it with aspect ratio
  584. 'XX = 0
  585. 'YY = 0
  586. 'IMGW = SCLW
  587. 'IMGH = SCLH
  588. 'GoTo DRAWIT:
  589. 'End If
  590. 'If ORIGW > SCLW Then
  591. 'only the width is too large to fit
  592. 'resize for aspect ratio
  593. 'End If
  594. 'DRAWIT:
  595. 'picCover.Cls
  596. 'SetStretchBltMode picCover.hdc, STRETCH_HALFTONE
  597. 'StretchBlt picCover.hdc, XX, YY, IMGW, IMGH, tmpPic.hdc, 0, 0, ORIGW, ORIGH, vbSrcCopy
  598.  
  599. 'load the cover into the size-standard pic box
  600. Picture1.Cls
  601. SetStretchBltMode Picture1.hdc, 4
  602. StretchBlt Picture1.hdc, (Picture1.ScaleWidth / 2) - (94 / 2), 0, 94, 140, Picture4.hdc, 0, 0, Picture4.ScaleWidth, Picture4.ScaleHeight, vbSrcCopy
  603.  
  604. apply_REF
  605. End Sub
  606.  
  607. Private Sub UPD_PIC()
  608. Dim refX As Long
  609. Dim refY As Long
  610. refX = (picCover.ScaleWidth / 2) - (94 / 2)
  611. refY = 14 '(picCover.ScaleHeight / 2) - (140 / 2)
  612. picCover.Cls
  613. SetStretchBltMode picCover.hdc, 4
  614. StretchBlt picCover.hdc, (picCover.ScaleWidth / 2) - (94 / 2), refY, 94, 140, Picture4.hdc, 0, 0, Picture4.ScaleWidth, Picture4.ScaleHeight, vbSrcCopy
  615. StretchBlt picCover.hdc, ((picCover.ScaleWidth / 2) - (94 / 2)) - ((Picture1.ScaleWidth - 94) / 2) + 1, (refY) + 140, Picture3.ScaleWidth, Picture3.ScaleHeight, Picture3.hdc, 0, 0, Picture3.ScaleWidth, Picture3.ScaleHeight, vbSrcCopy
  616. picCover.Line (refX, refY)-(refX + 94, refY)
  617. picCover.Line (refX, refY)-(refX, refY + 140)
  618. picCover.Line (refX + 94, refY)-(refX + 94, refY + 140)
  619. picCover.Line (refX, refY + 140)-(refX + 94, refY + 140)
  620. End Sub
  621.  
  622. Private Sub apply_REF()
  623. DIReflect Picture3, Picture1, Picture2, 128, 1.69
  624. UPD_PIC
  625. End Sub
  626.  
  627.  
  628.  
  629.  
  630.