Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import clr
- import os
- import tempfile
- import threading
- clr.AddReference('System')
- clr.AddReference('System.Windows.Forms')
- clr.AddReference('System.Drawing')
- from System import IO
- from System.IO import Path, File
- from System.Windows.Forms import Application, DockStyle, Form, PictureBox, PictureBoxSizeMode, Timer, FormBorderStyle, MessageBox, ControlStyles
- from System.Drawing import Image, Bitmap, Rectangle, Size, Color
- from time import sleep
- pathToFile = 'C:\Users\Kimossab\Desktop\marretesting.png'
- col = 4
- lin = 2
- def GetRectangle(img):
- h = img.Height/lin
- w = img.Width/col
- return [w,h]
- def CropImage(img, rect):
- bmpCrop = img.Clone(rect,img.PixelFormat)
- return bmpCrop
- class MainForm(Form):
- def Draw(self):
- retan = Rectangle(self.ccol*self.ret[0],self.clin*self.ret[1],self.ret[0],self.ret[1])
- self.ccol+=1
- if self.ccol == col:
- self.ccol = 0
- self.clin+=1
- if self.clin == lin:
- self.clin = 0;
- self.pictureBox.Image = CropImage(self.image,retan)
- def __init__(self):
- try:
- Form.__init__(self)
- self.SetStyle(ControlStyles.SupportsTransparentBackColor, 1);
- self.ccol = 0
- self.clin = 0
- self.pictureBox = PictureBox()
- self.image = Image.FromFile(pathToFile)
- self.ret = GetRectangle(self.image)
- retan = Rectangle(0,0,self.ret[0],self.ret[1])
- self.ClientSize = Size(self.ret[0],self.ret[1])
- self.FormBorderStyle = FormBorderStyle.None
- self.BackColor = Color.Red
- self.TransparencyKey = self.BackColor
- self.pictureBox.SizeMode = PictureBoxSizeMode.StretchImage
- self.pictureBox.Dock = DockStyle.Fill
- self.timer = Timer()
- self.timer.Interval = 1
- self.timer.Enabled = True
- self.timer.Tick += self.OnTick
- self.timer.Start()
- self.Controls.Add(self.pictureBox)
- self.Show()
- except Exception as inst:
- MessageBox.Show(inst.message)
- def OnTick(self, sender, event):
- self.Draw()
- self.Refresh()
- Application.EnableVisualStyles()
- form = MainForm()
- Application.Run(form)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement