You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebindings/qtruby/rubylib/examples/qt-examples/forever/forever.rb

85 lines
1.6 KiB

#!/usr/bin/env ruby -w
13 years ago
require 'Qt'
#
# Forever - a widget that draws rectangles forever.
#
class Forever < TQt::Widget
NUM_COLORS = 120
#
# Constructs a Forever widget.
#
slots 'updateCaption()'
def initialize(*k)
super(nil)
@colors = []
0.upto(NUM_COLORS-1) do |a|
@colors[a] = TQt::Color.new( rand(255),
rand(255),
rand(255) )
end
@rectangles = 0
startTimer( 0 ) # run continuous timer
counter = TQt::Timer.new( self )
connect( counter, TQ_SIGNAL("timeout()"),
self, TQ_SLOT("updateCaption()") )
counter.start( 1000 )
end
def updateCaption()
s = "Qt Example - Forever - " + @rectangles.to_s + " rectangles/second"
@rectangles = 0
self.caption = s
end
#
# Handles paint events for the Forever widget.
#
def paintEvent( e )
paint = TQt::Painter.new( self ) # painter object
w = width()
h = height()
if w <= 0 || h <= 0 then
return
end
paint.setPen( NoPen ) # do not draw outline
paint.setBrush( @colors[rand(NUM_COLORS)]) # set random brush color
p1 = TQt::Point.new( rand(w), rand(h)) # p1 = top left
p2 = TQt::Point.new( rand(w), rand(h)) # p2 = bottom right
r = TQt::Rect.new( p1, p2 )
paint.drawRect( r ) # draw filled rectangle
paint.end()
end
#
# Handles timer events for the Forever widget.
#
def timerEvent( e )
0.upto(99) do |i|
repaint( false ) # repaint, don't erase
end
@rectangles += 100
end
end
a = TQt::Application.new(ARGV)
always = Forever.new
always.resize( 400, 250 ) # start up with size 400x250
a.mainWidget = always # set as main widget
always.caption = "QtRuby Example - Forever"
always.show
a.exec