Comments on: Add a icon and use DockItem Class in REALbasic

By: emreaktrk

emreaktrk — Wed, 24 Mar 2010 14:43:14 +0000

I wonder if you can make a tutorial about how to add image to your Window.

Thanks for your helps.

By: Jakub Pawlak

Jakub Pawlak — Wed, 24 Mar 2010 08:32:26 +0000

You can use simple Canvas Control available in REALbasic. Then you change the backdrop to image file.

By: matt86

matt86 — Thu, 11 Feb 2010 16:54:54 +0000

Thanks Jakup,
I display a trasparent dragBadge and the dragBadge is smaller than mail application dragBadge. Here my code

Dim p, m As Picture

p = NewPicture (128,128,32) // (width, height, depth)

‘p.Graphics.ForeColor = RGB (202,38,10) // red color
‘p.graphics.FillOval (75,3,40,40) // create a oval in right top corner of our icon
p.Graphics.drawpicture (dragBadge,75,3)

p.Graphics.ForeColor = RGB (255,255,255) // white color
p.Graphics.TextFont = “Arial” // use font Arial
p.Graphics.TextSize = 12 // text size
p.Graphics.Bold = True // make the text bold
p.Graphics.DrawString (count,85,20) // draw 5 in right top corner of our icon

m = NewPicture (128,128,32)

‘m.Graphics.ForeColor = RGB (0,0,0)
‘m.graphics.FillOval (75,3,26,26)
m.Graphics.drawpicture (dragBadge,75,3)

p.Graphics.ForeColor = RGB(255,255,255) // delete white color
m.Graphics.TextFont = “Arial”
m.Graphics.TextSize = 12
m.Graphics.Bold = True
m.Graphics.DrawString (count,85,20)

p.Mask.Graphics.DrawPicture (m,0,0) //add the Mask to our picture

App.DockItem.Graphics.DrawPicture (p,0,0) //draw the picture to the Dock
App.DockItem.UpdateNow // update the Dock picture

By: Jakub Pawlak

Jakub Pawlak — Thu, 11 Feb 2010 15:52:37 +0000

Simple add the image (dragBadge1-2.tif) to project tab and then use the image name to display: p.graphics.drawpicture (dragBadge1-2,75,3)

By: matt86

matt86 — Thu, 11 Feb 2010 15:50:04 +0000

Mail application on Mac, not use the FillOval method for display the number of emails received, but an image called “dragBadge1-2.tiff”. If I wanted to also make the picture as I do?

dim f as folderItem
dim img,p,m as picture

f = GetFolderItem(“dragBadge1-2.tiff”)

if f.Exists then
img = f.OpenAsPicture
p = NewPicture (26,26,32)
p.graphics.drawpicture img,75,3

…..

else

msgbox “The image dragBadge1-2.tiff not exist!”

end if

I receive a error msgbox, where is the “dragBadge1-2.tiff” image in my app? If i check into my App Resources i found the dragBadge1-2.tiff image

By: matt86

matt86 — Thu, 11 Feb 2010 15:15:54 +0000

How do I take the image in the Resources folder of my application?

By: Jakub Pawlak

Jakub Pawlak — Thu, 11 Feb 2010 15:12:46 +0000

I don’t understand the question.

By: matt86

matt86 — Thu, 11 Feb 2010 15:08:22 +0000

OK, but how do I take the image from my application?

By: Jakub Pawlak

Jakub Pawlak — Thu, 11 Feb 2010 15:06:28 +0000

Hi,

simple use Graphics.DrawPicture method.

By: matt86

matt86 — Thu, 11 Feb 2010 15:02:32 +0000

Hi Jakub, if I wanted to put an image instead of filloval how do I do?