Xojo Developer Conference
Join us from 25th to 27th April 2018 in Denver.

Platforms to show: All Mac Windows Linux Cross-Platform

FAQ.How to make small controls on Mac OS X?
Feedback.

Answer: You can try this code on Mac OS X:
Example:
'/*
'* Use the control's default drawing variant. This does not apply to
'* Scroll Bars, for which Normal is Large.
'*/
const kControlSizeNormal = 0

'/*
'* Use the control's small drawing variant. Currently supported by
'* the Check Box, Combo Box, Radio Button, Scroll Bar, Slider and Tab
'* controls.
'*/
const kControlSizeSmall = 1

'/*
'* Use the control's small drawing variant. Currently supported by
'* the Indeterminate Progress Bar, Progress Bar and Round Button
'* controls.
'*/
const kControlSizeLarge = 2

'/*
'* Control drawing variant determined by the control's bounds. This
'* ControlSize is only available with Scroll Bars to support their
'* legacy behavior of drawing differently within different bounds.
'*/
const kControlSizeAuto = &hFFFF

const kControlSizeTag = "size"

declare function SetControlData lib "Carbon" (controlhandle as Integer, part as short, tagname as OSType, size as Integer, data as ptr) as short

dim m as MemoryBlock

m=NewMemoryBlock(2)
m.UShort(0)=kControlSizeSmall

Title=str(SetControlData(CheckBox1.Handle, 0, kControlSizeTag, 2, m))




Links
MBS Xojo PDF Plugins