Thread: Watermarks
View Single Post
  #7  
Old 08-10-2012, 15:45
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Post Info

Thank you John for your reply.

I meant more for advice on how to show some information and after 2 seconds to automatically be removed.
Something just like this:
Code:
Sub Info()
ActiveDocument.Unit = cdrMillimeter
ActiveDocument.ReferencePoint = cdrCenter
On Error Resume Next
Dim si As Shape, x As Double, y As Double, txt As Shape, x1 As Double, y1 As Double

'How display this object in center screen not page?

x = ActivePage.SizeWidth / 2 - 50
y = ActivePage.SizeHeight / 2 - 30
Set si = ActiveLayer.CreateRectangle2(x, y, 100, 60)
si.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)
si.Outline.SetProperties 0#
si.Transparency.ApplyUniformTransparency (30)
    With si.Next.Transparency
    .AppliedTo = cdrApplyToFillAndOutline
    .MergeMode = cdrMergeMultiply
    End With
x1 = si.SizeWidth / 2
y1 = si.SizeHeight / 2
Set txt = ActivePage.ActiveLayer.CreateArtisticText(x, y, "This is" & vbCr & "very important" & vbCr & "information" & vbCr & "for user.", , , "Arial", 24)
txt.Text.Story.Alignment = cdrCenterAlignment
txt.AlignToPageCenter (cdrAlignHCenter)
txt.AlignToPageCenter (cdrAlignVCenter)
txt.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 0)
txt.Transparency.ApplyUniformTransparency (30)
    With txt.Next.Transparency
    .AppliedTo = cdrApplyToFillAndOutline
    .MergeMode = cdrMergeMultiply
    End With

'How using Timer function in Corel 12 for countdown ex. 2 seconds?
'After this 2 seconds info be deleted.

    'txt.Delete
    'si.Delete
End Sub
Regards.

~GrzJanik
Reply With Quote