static pascal void ListBoxDrawProc( ControlRef browser , DataBrowserItemID item , DataBrowserPropertyID property ,
DataBrowserItemState itemState , const Rect *itemRect , SInt16 depth , Boolean isColorDevice )
{
CFStringRef cfString;
long systemVersion;
cfString = CFStringCreateWithFormat( NULL, NULL, CFSTR("Row %d"), item );
ThemeDrawingState themeState ;
GetThemeDrawingState( &themeState ) ;
if ( itemState == kDataBrowserItemIsSelected ) // In this sample we handle the "selected" state, all others fall through to our "active" state
{
Gestalt( gestaltSystemVersion, &systemVersion );
if ( (systemVersion >= 0x00001030) && (IsControlActive( browser ) == false) ) // Panther DB starts using kThemeBrushSecondaryHighlightColor for inactive browser hilighting
SetThemePen( kThemeBrushSecondaryHighlightColor, 32, true );
else
SetThemePen( kThemeBrushPrimaryHighlightColor, 32, true );
PaintRect( itemRect ); // First paint the hilite rect, then the text on top
SetThemeDrawingState( themeState , false ) ;
}
DrawThemeTextBox( cfString, kThemeApplicationFont, kThemeStateActive, true, itemRect, teFlushDefault, NULL );
if ( cfString != NULL )
CFRelease( cfString );
SetThemeDrawingState( themeState , true ) ;
}
void SaveQDDrawingState( QDDrawingState *ioDrawingState, const Boolean inSaveTextState )
{ GWorldPtr tempWorld;
GDHandle tempDevice;
Assert( ioDrawingState != nil );
// Get the current GWorld, so I can access it's fields.
GetGWorld( &tempWorld, &tempDevice );
// Get the background state.
GetBackColor( &ioDrawingState->backColor );
/*#if !( defined( TARGET_API_MAC_CARBON ) && ( TARGET_API_MAC_CARBON == 1 ) )
if ( tempWorld->bkPixPat == nil )
ioDrawingState->backPixPatH = nil;
else
#endif
ioDrawingState->backPixPatH = NewPixPat( );
if ( ioDrawingState->backPixPatH != nil )
GetPortBackPixPat( tempWorld, ioDrawingState->backPixPatH );
*/
// Get the pen/foreground state.
GetForeColor( &ioDrawingState->foreColor );
/*#if !( defined( TARGET_API_MAC_CARBON ) && ( TARGET_API_MAC_CARBON == 1 ) )
if ( tempWorld->pnPixPat == nil )
ioDrawingState->penPixPatH = nil;
else
#endif
ioDrawingState->penPixPatH = NewPixPat( );
if ( ioDrawingState->penPixPatH != nil )
GetPortPenPixPat( tempWorld, ioDrawingState->penPixPatH );
*/
GetPenState( &ioDrawingState->penState );
// Optionally save the text font, face, size and mode.
ioDrawingState->haveTextState = inSaveTextState;
if ( inSaveTextState ) {
ioDrawingState->textStyle.tsFont = GetPortTextFont( tempWorld );
ioDrawingState->textStyle.tsFace = GetPortTextFace( tempWorld );
ioDrawingState->textStyle.tsSize = GetPortTextSize( tempWorld );
ioDrawingState->textMode = GetPortTextMode( tempWorld );
}
#if ALIST_USEAPPEARANCEMGR && TARGET_RT_MAC_CFM
// If we're running under CFM and have Appearance Mgr 1.1 or later, use the ThemeDrawingState routines.
if ( local_AppearanceMgrVersion( ) > 0x0110 )
ioDrawingState->haveThemeState = ( GetThemeDrawingState( &ioDrawingState->themeState ) == noErr );
else {
ioDrawingState->haveThemeState = false;
ioDrawingState->themeState = nil;
}
#endif
}
// --------------------------------------------------------------------------------------
pascal void DrawIconDataBrowserItem86CB(ControlRef browser, DataBrowserItemID item,
DataBrowserPropertyID property,
DataBrowserItemState itemState, const Rect *theRect,
SInt16 gdDepth, Boolean colorDevice)
{
#pragma unused (theRect)
Rect enclosingRect, iconRect, textRect;
Boolean active;
IconDBItemDataRec *itemData;
/* The data browser currently gives us the content part bounds in the theRect
parameter but we want the enclosing part bounds to draw in so that we can
draw a fill style highlight. */
GetDataBrowserItemPartBounds(browser, item, property, kDataBrowserPropertyEnclosingPart,
&enclosingRect);
active = IsControlActive(browser);
if ((itemState & kDataBrowserItemIsSelected) != 0)
{
ThemeDrawingState savedState;
GetThemeDrawingState(&savedState);
SetThemePen(active ? kThemeBrushPrimaryHighlightColor : kThemeBrushSecondaryHighlightColor,
gdDepth, colorDevice);
PaintRect(&enclosingRect);
SetThemeDrawingState(savedState, true);
}
calculateDrawingBounds(&enclosingRect, &iconRect, &textRect);
itemData = (IconDBItemDataRec *)item;
PlotIconRef(&iconRect, kAlignNone, active ? kTransformNone : kTransformDisabled,
kIconServicesNormalUsageFlag, itemData->icon);
DrawThemeTextBox(itemData->name, kThemeViewsFont,
active ? kThemeStateActive : kThemeStateInactive, true,
&textRect, teCenter, NULL);
}
static pascal void ListBoxDrawProc(
ControlRef browser, DataBrowserItemID item, DataBrowserPropertyID property,
DataBrowserItemState itemState, const Rect *itemRect, SInt16 depth, Boolean isColorDevice )
{
CFStringRef cfString;
ThemeDrawingState themeState;
long systemVersion;
GetThemeDrawingState( &themeState );
cfString = CFStringCreateWithFormat( NULL, NULL, CFSTR("Row %d"), item );
// In this sample we handle the "selected" state; all others fall through to our "active" state
if ( itemState == kDataBrowserItemIsSelected )
{
ThemeBrush colorBrushID;
// TODO: switch over to wxSystemSettingsNative::GetColour() when kThemeBrushSecondaryHighlightColor
// is incorporated Panther DB starts using kThemeBrushSecondaryHighlightColor
// for inactive browser highlighting
if ( !IsControlActive( browser ) )
colorBrushID = kThemeBrushSecondaryHighlightColor;
else
colorBrushID = kThemeBrushPrimaryHighlightColor;
// First paint the hilite rect, then the text on top
SetThemePen( colorBrushID, 32, true );
PaintRect( itemRect );
SetThemeDrawingState( themeState, false );
}
DrawThemeTextBox( cfString, kThemeApplicationFont, kThemeStateActive, true, itemRect, teFlushDefault, NULL );
SetThemeDrawingState( themeState, true );
if ( cfString != NULL )
CFRelease( cfString );
}
pascal OSStatus
gensetup_update_clicked (EventHandlerCallRef inHandlerRef,
EventRef inEvent, void *inUserData)
{
TGENSETUP *gensetup_t = (TGENSETUP *) inUserData;
DataBrowserItemID item = DBITEM_ID + 1, first, last;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[2] = { 150, 250 };
SInt16 outBaseline;
Point ioBound;
CFStringRef data[2];
Size len;
int i = 0, j;
if (gensetup_t)
{
GetThemeDrawingState (&outState);
GetControlData (gensetup_t->key_entry, 0, kControlEditTextCFStringTag,
sizeof (CFStringRef), &data[0], &len);
if (CFStringGetLength(data[0]))
{
GetControlData (gensetup_t->value_entry, 0, kControlEditTextCFStringTag,
sizeof (CFStringRef), &data[1], &len);
if(GetDataBrowserSelectionAnchor (gensetup_t->key_list, &first, &last) == noErr)
{
i = first - DBITEM_ID - 1;
item += i;
}
else i = 0;
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (dsnsetup_notification_item);
/* On Mac OS X 10.0.x : this is clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (dsnsetup_getset_item);
SetDataBrowserCallbacks (gensetup_t->key_list, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (gensetup_t->key_list, DBITEM_ID);
/* An update operation */
if(i<DSNSETUP_nrows)
{
CFRelease (DSNSETUP_array[0][i]);
CFRelease (DSNSETUP_array[1][i]);
DSNSETUP_array[0][i] = data[0];
DSNSETUP_array[1][i] = data[1];
UpdateDataBrowserItems (gensetup_t->key_list, DBITEM_ID, 1,
&item, GSKEYWORD_ID, kDataBrowserItemNoProperty);
}
for(j = 0 ; j < DSNSETUP_nrows ; j++)
{
for(i = 0 ; i < 2 ; i++)
{
GetThemeTextDimensions (DSNSETUP_array[i][j], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[i] < ioBound.h) colSize[i] = ioBound.h;
}
}
ActivateControl (gensetup_t->key_list);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (gensetup_t->key_list, GSKEYWORD_ID, colSize[0] + 20);
SetDataBrowserTableViewNamedColumnWidth (gensetup_t->key_list, GSVALUE_ID, colSize[1] + 20);
DrawOneControl (gensetup_t->key_list);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
}
SetControlData (gensetup_t->key_entry, 0, kControlEditTextTextTag, 0,
"");
DrawOneControl (gensetup_t->key_entry);
SetControlData (gensetup_t->value_entry, 0, kControlEditTextTextTag, 0,
"");
DrawOneControl (gensetup_t->value_entry);
DeactivateControl (DSNSETUP->bupdate);
DrawOneControl (DSNSETUP->bupdate);
}
return noErr;
}
static void
addkeywords_to_list (ControlRef widget,
LPCSTR attrs,
TGENSETUP * gensetup_t)
{
DataBrowserItemID item = DBITEM_ID + 1;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[2] = { 150, 250 };
SInt16 outBaseline;
Point ioBound;
char *curr, *cour;
int i;
if (!widget)
return;
GetThemeDrawingState (&outState);
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (dsnsetup_notification_item);
/* On Mac OS X 10.0.x : this is clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (dsnsetup_getset_item);
SetDataBrowserCallbacks (widget, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (widget, DBITEM_ID);
/* Make the clean up */
for (i = 0; i < DSNSETUP_nrows; i++)
{
CFRelease (DSNSETUP_array[0][i]);
DSNSETUP_array[0][i] = NULL;
CFRelease (DSNSETUP_array[1][i]);
DSNSETUP_array[1][i] = NULL;
}
/* Global Initialization */
DSNSETUP_nrows = 0;
item = DBITEM_ID + 1;
for (curr = (LPSTR) attrs; *curr; curr += (STRLEN (curr) + 1))
{
if (!strncasecmp (curr, "DSN=", STRLEN ("DSN=")) ||
!strncasecmp (curr, "Driver=", STRLEN ("Driver=")) ||
!strncasecmp (curr, "Description=", STRLEN ("Description=")))
continue;
if ((cour = strchr ((char*)curr, '=')))
{
*cour = '\0';
DSNSETUP_array[0][DSNSETUP_nrows] =
CFStringCreateWithCString (NULL, curr, kCFStringEncodingUTF8);
*cour = '=';
DSNSETUP_array[1][DSNSETUP_nrows] =
CFStringCreateWithCString (NULL, ((char*)cour) + 1, kCFStringEncodingUTF8);
}
else
DSNSETUP_array[0][DSNSETUP_nrows] =
CFStringCreateWithCString (NULL, "", kCFStringEncodingUTF8);
for(i = 0 ; i < 2 ; i++)
{
GetThemeTextDimensions (DSNSETUP_array[i][DSNSETUP_nrows], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[i] < ioBound.h) colSize[i] = ioBound.h;
}
AddDataBrowserItems (widget, DBITEM_ID, 1, &item, GSKEYWORD_ID);
item++;
DSNSETUP_nrows++;
}
ActivateControl (widget);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (widget, GSKEYWORD_ID, colSize[0] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, GSVALUE_ID, colSize[1] + 20);
DrawOneControl (widget);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
}
// --------------------------------------------------------------------------------------
static void drawIconListCell(ListHandle theList, const Rect *cellRect,
IconListCellDataRec *theCellData, Boolean selected)
{
GrafPtr savedPort;
CGrafPtr listPort;
ThemeDrawingState savedState;
Boolean active;
Rect iconRect, textRect;
short savedFont, savedSize;
Style savedFace;
CFStringRef cellName;
GetPort(&savedPort);
listPort = GetListPort(theList);
SetPort((GrafPtr)listPort);
GetThemeDrawingState(&savedState);
if (selected) // we don't need to change the background
{ // color if this Cell isn't highlighted
Pattern whitePattern;
RGBColor highlightColor;
GetQDGlobalsWhite(&whitePattern); // set the background pattern so that
BackPat(&whitePattern); // the color is properly set as a solid color
LMGetHiliteRGB(&highlightColor);
RGBBackColor(&highlightColor); // set the background to the highlight color
}
EraseRect(cellRect);
calculateDrawingBounds(cellRect, &iconRect, &textRect); // get the drawing Rects
active = GetListActive(theList);
// draw the IconRef using Icon Services
PlotIconRef(&iconRect, kAlignNone, active ? kTransformNone : kTransformDisabled,
kIconServicesNormalUsageFlag, theCellData->icon);
#if TARGET_API_MAC_OS8 // draw TextEdit text in Classic
#pragma unused (cellName)
savedFont = GetPortTextFont(listPort); // Get/SetThemeDrawingState doesn't save or
savedFace = GetPortTextFace(listPort); // restore these
savedSize = GetPortTextSize(listPort);
UseThemeFont(kThemeViewsFont, smCurrentScript);
TETextBox(&theCellData->name[1], theCellData->name[0], &textRect, teCenter);
TextFont(savedFont);
TextFace(savedFace);
TextSize(savedSize);
#else // draw Appearance text in Carbon
#pragma unused (savedFont, savedSize, savedFace)
cellName = CFStringCreateWithPascalString(kCFAllocatorDefault, theCellData->name,
GetApplicationTextEncoding());
DrawThemeTextBox(cellName, kThemeViewsFont,
active ? kThemeStateActive : kThemeStateInactive, true,
&textRect, teCenter, NULL);
CFRelease(cellName);
#endif
SetThemeDrawingState(savedState, true);
SetPort(savedPort);
} // drawIconListCell
pascal OSStatus
keyval_add_clicked (EventHandlerCallRef inHandlerRef,
EventRef inEvent, void *inUserData)
{
TKEYVAL *keyval_t = (TKEYVAL *) inUserData;
DataBrowserItemID item = DBITEM_ID + 1;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[2] = { 150, 250 };
SInt16 outBaseline;
Point ioBound;
CFStringRef data[2];
Size len;
int i = 0, j;
if (keyval_t)
{
GetThemeDrawingState (&outState);
GetControlData (keyval_t->key_entry, 0, kControlEditTextCFStringTag,
sizeof (CFStringRef), &data[0], &len);
if (CFStringGetLength(data[0]))
{
GetControlData (keyval_t->value_entry, 0, kControlEditTextCFStringTag,
sizeof (CFStringRef), &data[1], &len);
/* Try to see if the keyword already exists */
for (i = 0; i < KEYVAL_nrows; i++, item++)
if (CFStringCompare (data[0], KEYVAL_array[0][i],
0) == kCFCompareEqualTo)
goto done;
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (keyval_notification_item);
/* On Mac OS X 10.0.x : this is clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (keyval_getset_item);
SetDataBrowserCallbacks (keyval_t->key_list, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (keyval_t->key_list, DBITEM_ID);
/* An update operation */
if(i<KEYVAL_nrows)
{
CFRelease (KEYVAL_array[1][i]);
KEYVAL_array[1][i] = data[1];
UpdateDataBrowserItems (keyval_t->key_list, DBITEM_ID, 1, &item,
GSKEYWORD_ID, kDataBrowserItemNoProperty);
}
else if(len)
{
KEYVAL_array[0][i] = data[0];
KEYVAL_array[1][i] = data[1];
AddDataBrowserItems (keyval_t->key_list, DBITEM_ID, 1, &item,
GSKEYWORD_ID);
KEYVAL_nrows++;
}
for(j = 0 ; j < KEYVAL_nrows ; j++)
{
for(i = 0 ; i < 2 ; i++)
{
GetThemeTextDimensions (KEYVAL_array[i][j], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[i] < ioBound.h) colSize[i] = ioBound.h;
}
}
ActivateControl (keyval_t->key_list);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (keyval_t->key_list, GSKEYWORD_ID, colSize[0] + 20);
SetDataBrowserTableViewNamedColumnWidth (keyval_t->key_list, GSVALUE_ID, colSize[1] + 20);
DrawOneControl (keyval_t->key_list);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
}
done:
SetControlData (keyval_t->key_entry, 0, kControlEditTextTextTag, 0,
"");
DrawOneControl (keyval_t->key_entry);
SetControlData (keyval_t->value_entry, 0, kControlEditTextTextTag, 0,
"");
DrawOneControl (keyval_t->value_entry);
DeactivateControl (KEYVAL->bupdate);
DrawOneControl (KEYVAL->bupdate);
}
return noErr;
}
/* Changed ... Have to implement the same for translators */
void
adddrivers_to_list (ControlRef widget, WindowRef dlg, BOOL addNotify)
{
wchar_t drvdesc[1024], drvattrs[1024], driver[1024];
DataBrowserItemID item = DBITEM_ID + 1;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[5] = { 150, 150, 100, 50 , 50};
void *handle;
SInt16 outBaseline;
Point ioBound;
struct stat _stat;
SQLSMALLINT len, len1;
SQLRETURN ret;
HENV henv, drv_henv;
HDBC drv_hdbc;
pSQLGetInfoFunc funcHdl;
pSQLAllocHandle allocHdl;
pSQLAllocEnv allocEnvHdl = NULL;
pSQLAllocConnect allocConnectHdl = NULL;
pSQLFreeHandle freeHdl;
pSQLFreeEnv freeEnvHdl;
pSQLFreeConnect freeConnectHdl;
char *_drv_u8 = NULL;
int i;
if (!widget)
return;
GetThemeDrawingState (&outState);
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
if (addNotify)
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (drivers_notification_item);
/* On Mac OS X 10.0.x : clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (drivers_getset_item);
SetDataBrowserCallbacks (widget, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (widget, DBITEM_ID);
/* Make the clean up */
for (i = 0; i < Drivers_nrows; i++, item++)
{
CFRelease (Drivers_array[0][i]);
Drivers_array[0][i] = NULL;
CFRelease (Drivers_array[1][i]);
Drivers_array[1][i] = NULL;
CFRelease (Drivers_array[2][i]);
Drivers_array[2][i] = NULL;
CFRelease (Drivers_array[3][i]);
Drivers_array[3][i] = NULL;
CFRelease (Drivers_array[4][i]);
Drivers_array[4][i] = NULL;
RemoveDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
}
/* Global Initialization */
Drivers_nrows = 0;
item = DBITEM_ID + 1;
/* Create a HENV to get the list of drivers then */
ret = SQLAllocHandle (SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE, SQL_NULL_HANDLE);
goto end;
}
/* Set the version ODBC API to use */
SQLSetEnvAttr (henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER) SQL_OV_ODBC3,
SQL_IS_UINTEGER);
/* Get the list of drivers */
ret =
SQLDriversW (henv, SQL_FETCH_FIRST, drvdesc, sizeof (drvdesc)/sizeof(wchar_t),
&len, drvattrs, sizeof (drvattrs)/sizeof(wchar_t), &len1);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO && ret != SQL_NO_DATA)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE, SQL_NULL_HANDLE);
goto error;
}
while (ret != SQL_NO_DATA)
{
Drivers_array[0][Drivers_nrows] = convert_wchar_to_CFString(drvdesc);
/* Get the driver library name */
SQLSetConfigMode (ODBC_BOTH_DSN);
SQLGetPrivateProfileStringW (drvdesc, L"Driver", L"", driver,
sizeof (driver)/sizeof(wchar_t), L"odbcinst.ini");
if (driver[0] == L'\0')
SQLGetPrivateProfileStringW (L"Default", L"Driver", L"", driver,
sizeof (driver)/sizeof(wchar_t), L"odbcinst.ini");
if (driver[0] == L'\0')
{
if (Drivers_array[0][Drivers_nrows])
{
CFRelease (Drivers_array[0][Drivers_nrows]);
Drivers_array[0][Drivers_nrows] = NULL;
}
goto skip;
}
Drivers_array[1][Drivers_nrows] = convert_wchar_to_CFString(driver);
/* Alloc a connection handle */
drv_hdbc = NULL;
drv_henv = NULL;
_drv_u8 = (char *) dm_SQL_WtoU8((SQLWCHAR*)driver, SQL_NTS);
if (_drv_u8 == NULL)
goto skip;
if ((handle = DLL_OPEN(_drv_u8)) != NULL)
{
if ((allocHdl = (pSQLAllocHandle)DLL_PROC(handle, "SQLAllocHandle")) != NULL)
{
ret = allocHdl(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &drv_henv);
if (ret == SQL_ERROR) goto nodriverver;
ret = allocHdl(SQL_HANDLE_DBC, drv_henv, &drv_hdbc);
if (ret == SQL_ERROR) goto nodriverver;
}
else
{
if ((allocEnvHdl = (pSQLAllocEnv)DLL_PROC(handle, "SQLAllocEnv")) != NULL)
{
ret = allocEnvHdl(&drv_henv);
if (ret == SQL_ERROR) goto nodriverver;
}
else goto nodriverver;
if ((allocConnectHdl = (pSQLAllocConnect)DLL_PROC(handle, "SQLAllocConnect")) != NULL)
{
ret = allocConnectHdl(drv_henv, &drv_hdbc);
if (ret == SQL_ERROR) goto nodriverver;
}
else goto nodriverver;
}
/*
* Use SQLGetInfoA for Unicode drivers
* and SQLGetInfo for ANSI drivers
*/
funcHdl = (pSQLGetInfoFunc)DLL_PROC(handle, "SQLGetInfoA");
if (!funcHdl)
funcHdl = (pSQLGetInfoFunc)DLL_PROC(handle, "SQLGetInfo");
if (funcHdl)
{
/* Retrieve some informations */
ret = funcHdl (drv_hdbc, SQL_DRIVER_VER, drvattrs, sizeof(drvattrs), &len);
if (ret == SQL_SUCCESS || ret == SQL_SUCCESS_WITH_INFO)
{
char *p = drvattrs;
/* Find the description if one provided */
for (; *p ; p++)
{
if (*p == ' ')
{
*p++ = '\0';
break;
}
}
/*
* Store Version
*/
Drivers_array[2][Drivers_nrows] = CFStringCreateWithCString(NULL, (char *)drvattrs, kCFStringEncodingUTF8);
}
else goto nodriverver;
}
else if ((funcHdl = (pSQLGetInfoFunc)DLL_PROC(handle, "SQLGetInfoW")) != NULL)
{
/* Retrieve some informations */
ret = funcHdl (drv_hdbc, SQL_DRIVER_VER, drvattrs, sizeof(drvattrs), &len);
if (ret == SQL_SUCCESS || ret == SQL_SUCCESS_WITH_INFO)
{
wchar_t *p = drvattrs;
/* Find the description if one provided */
for (; *p ; p++)
{
if (*p == L' ')
{
*p++ = L'\0';
break;
}
}
/*
* Store Version
*/
Drivers_array[2][Drivers_nrows] = convert_wchar_to_CFString(drvattrs);
}
else goto nodriverver;
}
else goto nodriverver;
}
else
{
nodriverver:
Drivers_array[2][Drivers_nrows] = CFStringCreateWithCString(NULL,
"##.##", kCFStringEncodingUTF8);
}
if(drv_hdbc || drv_henv)
{
if(allocConnectHdl &&
(freeConnectHdl = (pSQLFreeConnect)DLL_PROC(handle, "SQLFreeConnect")) != NULL)
{ freeConnectHdl(drv_hdbc); drv_hdbc = NULL; }
if(allocEnvHdl &&
(freeEnvHdl = (pSQLFreeEnv)DLL_PROC(handle, "SQLFreeEnv")) != NULL)
{ freeEnvHdl(drv_henv); drv_henv = NULL; }
}
if ((drv_hdbc || drv_henv) &&
(freeHdl = (pSQLFreeHandle)DLL_PROC(handle, "SQLFreeHandle")) != NULL)
{
if(drv_hdbc) freeHdl(SQL_HANDLE_DBC, drv_hdbc);
if(drv_henv) freeHdl(SQL_HANDLE_ENV, drv_henv);
}
DLL_CLOSE(handle);
/* Get the size and date of the driver */
if (!stat (_drv_u8, &_stat))
{
CFStringRef strRef;
struct tm drivertime;
char buf[100];
Drivers_array[3][Drivers_nrows] =
CFStringCreateWithFormat(NULL, NULL,
strRef = CFStringCreateWithCString(NULL, "%d Kb", kCFStringEncodingUTF8),
(int) (_stat.st_size / 1024));
CFRelease(strRef);
localtime_r (&_stat.st_mtime, &drivertime);
strftime (buf, sizeof (buf), "%c", &drivertime);
Drivers_array[4][Drivers_nrows] = CFStringCreateWithCString(NULL,
buf, kCFStringEncodingUTF8);
}
else
{
Drivers_array[3][Drivers_nrows] = CFStringCreateWithCString(NULL,
"-", kCFStringEncodingUTF8);
Drivers_array[4][Drivers_nrows] = CFStringCreateWithCString(NULL,
"-", kCFStringEncodingUTF8);
}
for(i = 0 ; i < 5 ; i++)
{
GetThemeTextDimensions (Drivers_array[i][Drivers_nrows], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[i] < ioBound.h) colSize[i] = ioBound.h;
}
AddDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
item++;
Drivers_nrows++;
/* Process next one */
skip:
MEM_FREE (_drv_u8);
_drv_u8 = NULL;
ret = SQLDriversW (henv, SQL_FETCH_NEXT, drvdesc,
sizeof (drvdesc)/sizeof(wchar_t), &len, drvattrs,
sizeof (drvattrs)/sizeof(wchar_t), &len1);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO && ret != SQL_NO_DATA)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE,
SQL_NULL_HANDLE);
goto error;
}
}
error:
/* Clean all that */
SQLFreeHandle (SQL_HANDLE_ENV, henv);
end:
ActivateControl (widget);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (widget, DBNAME_ID, colSize[0] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBFILE_ID, colSize[1] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBVERSION_ID, colSize[2] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBSIZE_ID, colSize[3] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBDATE_ID, colSize[4] + 20);
DrawOneControl (widget);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
if(outState) DisposeThemeDrawingState (outState);
}
void
addfdsns_to_list (TDSNCHOOSER *dsnchoose_t, char *path, Boolean b_reset)
{
DataBrowserItemID item = DBITEM_ID + 1;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[3] = { 400, 100, 150 };
SInt16 outBaseline;
Point ioBound;
int i;
DIR *dir;
char *path_buf;
struct dirent *dir_entry;
struct stat fstat;
int b_added;
ControlRef widget;
WindowRef dlg;
if (!dsnchoose_t || !path)
return;
widget = dsnchoose_t->fdsnlist;
dlg = dsnchoose_t->mainwnd;
GetThemeDrawingState (&outState);
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (fdsn_notification_item);
/* On Mac OS X 10.0.x : clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (fdsn_getset_item);
SetDataBrowserCallbacks (widget, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (widget, DBITEM_ID);
/* Make the clean up */
for (i = 0; i < FDSN_nrows; i++, item++)
{
CFRelease (FDSN_array[i]);
FDSN_array[i] = NULL;
FDSN_type[i] = 0;
RemoveDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
}
ActivateControl (widget);
DrawOneControl (widget);
/* Global Initialization */
FDSN_nrows = 0;
item = DBITEM_ID + 1;
if ((dir = opendir (path)))
{
while ((dir_entry = readdir (dir)) && FDSN_nrows < MAX_ROWS)
{
asprintf (&path_buf, "%s/%s", path, dir_entry->d_name);
b_added = 0;
if (stat ((LPCSTR) path_buf, &fstat) >= 0 && S_ISDIR (fstat.st_mode))
{
if (dir_entry->d_name && dir_entry->d_name[0] != '.')
{
FDSN_array[FDSN_nrows] = CFStringCreateWithCString(NULL, dir_entry->d_name, kCFStringEncodingUTF8);
FDSN_type[FDSN_nrows] = 0;
b_added = 1;
}
}
else if (stat ((LPCSTR) path_buf, &fstat) >= 0 && !S_ISDIR (fstat.st_mode)
&& strstr (dir_entry->d_name, ".dsn"))
{
FDSN_array[FDSN_nrows] = CFStringCreateWithCString(NULL, dir_entry->d_name, kCFStringEncodingUTF8);
FDSN_type[FDSN_nrows] = 1;
b_added = 1;
}
if (path_buf)
free (path_buf);
if (b_added)
{
GetThemeTextDimensions (FDSN_array[FDSN_nrows], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[0] < ioBound.h) colSize[0] = ioBound.h;
AddDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
item++;
FDSN_nrows++;
}
}
/* Close the directory entry */
closedir (dir);
}
else
create_error (NULL, NULL, "Error during accessing directory information",
strerror (errno));
ActivateControl (widget);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (widget, DBNAME_ID, colSize[0] + 20);
DrawOneControl (widget);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
if(outState) DisposeThemeDrawingState (outState);
if (b_reset)
SetDataBrowserScrollPosition(widget, 0, 0);
fill_dir_menu(dsnchoose_t, path);
}
// --------------------------------------------------------------------------------------
pascal void DrawIconDataBrowserItem103CB(ControlRef browser, DataBrowserItemID item,
DataBrowserPropertyID property,
DataBrowserItemState itemState,
const Rect *theRect, SInt16 gdDepth,
Boolean colorDevice)
{
#pragma unused (theRect)
Rect enclosingRect, portBounds;
GrafPtr port;
CGRect enclosingCGRect, iconCGRect, textCGRect;
Boolean active;
ThemeDrawingState savedState = NULL;
CGContextRef context;
IconDBItemDataRec *itemData;
RGBColor labelColor;
HIThemeTextInfo textInfo;
/* The data browser currently gives us the content part bounds in the theRect
parameter but we want the enclosing part bounds to draw in so that we can
draw a fill style highlight. */
GetDataBrowserItemPartBounds(browser, item, property, kDataBrowserPropertyEnclosingPart,
&enclosingRect);
/* In Mac OS X we're going to use Quartz 2D/Core Graphics for the drawing, so we
need to convert the enclosing part bounds to a CGRect */
GetPort(&port); // the data browser sets the port up for us so we just need to get it
GetPortBounds(port, &portBounds);
enclosingCGRect = CGRectMake(enclosingRect.left,
portBounds.bottom - portBounds.top -
enclosingRect.bottom,
enclosingRect.right - enclosingRect.left,
enclosingRect.bottom - enclosingRect.top);
calculateCGDrawingBounds(enclosingCGRect, &iconCGRect, &textCGRect);
active = IsControlActive(browser);
if ((itemState & kDataBrowserItemIsSelected) != 0)
{
CGRect clipRect;
RGBColor foregroundColor;
GetThemeDrawingState(&savedState);
SetThemePen(active ? kThemeBrushPrimaryHighlightColor : kThemeBrushSecondaryHighlightColor,
gdDepth, colorDevice);
clipRect = getClipCGRect(&portBounds); // call these before beginning the context
GetForeColor(&foregroundColor);
QDBeginCGContext(port, &context);
CGContextClipToRect(context, clipRect);
CGContextSaveGState(context);
CGContextSetRGBFillColor(context, (float)foregroundColor.red / (float)USHRT_MAX,
(float)foregroundColor.green / (float)USHRT_MAX,
(float)foregroundColor.blue / (float)USHRT_MAX, 1.0);
CGContextFillRect(context, enclosingCGRect);
CGContextRestoreGState(context);
}
else
{
/* The data browser will redraw items on the edge of its content view.
Because HIThemeDrawTextBox does not erase the drawing rectangle before
it draws, the text becomes thicker with every draw due to anti-aliasing.
As a workaround, this section erases the text rectangle (if the item was
selected then the enclosing rectangle was erased above). */
CGRect clipRect;
RGBColor backgroundColor;
clipRect = getClipCGRect(&portBounds); // call these before beginning the context
GetBackColor(&backgroundColor);
QDBeginCGContext(port, &context);
CGContextClipToRect(context, clipRect);
CGContextSaveGState(context);
CGContextSetRGBFillColor(context, (float)backgroundColor.red / (float)USHRT_MAX,
(float)backgroundColor.green / (float)USHRT_MAX,
(float)backgroundColor.blue / (float)USHRT_MAX, 1.0);
CGContextFillRect(context, textCGRect);
CGContextRestoreGState(context);
}
itemData = (IconDBItemDataRec *)item;
labelColor.red = 0;
labelColor.green = 0;
labelColor.blue = 0;
PlotIconRefInContext(context, &iconCGRect, kAlignNone,
active ? kTransformNone : kTransformDisabled, &labelColor,
kPlotIconRefNormalFlags, itemData->icon);
textInfo.version = kHIThemeTextInfoVersionZero;
textInfo.state = active ? kThemeStateActive : kThemeStateInactive;
textInfo.fontID = kThemeViewsFont;
textInfo.horizontalFlushness = kHIThemeTextHorizontalFlushCenter;
textInfo.verticalFlushness = kHIThemeTextVerticalFlushTop;
textInfo.options = kHIThemeTextBoxOptionNone;
textInfo.truncationPosition = kHIThemeTextTruncationNone;
HIThemeDrawTextBox(itemData->name, &textCGRect, &textInfo, context,
kHIThemeOrientationInverted);
QDEndCGContext(port, &context);
if (savedState != NULL)
SetThemeDrawingState(savedState, true);
} // DrawIconDataBrowserItem103CB
// --------------------------------------------------------------------------------------
pascal void DrawIconDataBrowserItem101CB(ControlRef browser, DataBrowserItemID item,
DataBrowserPropertyID property,
DataBrowserItemState itemState,
const Rect *theRect, SInt16 gdDepth,
Boolean colorDevice)
{
#pragma unused (theRect)
Rect enclosingRect, portBounds, iconRect, textRect;
GrafPtr port;
CGRect enclosingCGRect, iconCGRect, textCGRect;
Boolean active;
ThemeDrawingState savedState = NULL;
CGContextRef context;
IconDBItemDataRec *itemData;
RGBColor labelColor;
/* The data browser currently gives us the content part bounds in the theRect
parameter but we want the enclosing part bounds to draw in so that we can
draw a fill style highlight. */
GetDataBrowserItemPartBounds(browser, item, property, kDataBrowserPropertyEnclosingPart,
&enclosingRect);
/* In Mac OS X we're going to use Quartz 2D/Core Graphics for the drawing, so we
need to convert the enclosing part bounds to a CGRect */
GetPort(&port); // the data browser sets the port up for us so we just need to get it
GetPortBounds(port, &portBounds);
enclosingCGRect = CGRectMake(enclosingRect.left,
portBounds.bottom - portBounds.top -
enclosingRect.bottom,
enclosingRect.right - enclosingRect.left,
enclosingRect.bottom - enclosingRect.top);
active = IsControlActive(browser);
if ((itemState & kDataBrowserItemIsSelected) != 0)
{
CGRect clipRect;
RGBColor foregroundColor;
GetThemeDrawingState(&savedState);
SetThemePen(active ? kThemeBrushPrimaryHighlightColor : kThemeBrushSecondaryHighlightColor,
gdDepth, colorDevice);
clipRect = getClipCGRect(&portBounds); // call these before beginning the context
GetForeColor(&foregroundColor);
QDBeginCGContext(port, &context);
CGContextClipToRect(context, clipRect);
CGContextSaveGState(context);
CGContextSetRGBFillColor(context, (float)foregroundColor.red / (float)USHRT_MAX,
(float)foregroundColor.green / (float)USHRT_MAX,
(float)foregroundColor.blue / (float)USHRT_MAX, 1.0);
CGContextFillRect(context, enclosingCGRect);
CGContextRestoreGState(context);
}
else
{
CGRect clipRect;
clipRect = getClipCGRect(&portBounds); // call this before beginning the context
QDBeginCGContext(port, &context);
CGContextClipToRect(context, clipRect);
}
calculateCGDrawingBounds(enclosingCGRect, &iconCGRect, &textCGRect);
/* DrawThemeTextBox wants the bounding rectangle to be QuickDraw coordinates
relative to the current port, not Core Graphics coordinates relative to the
passed context. */
calculateDrawingBounds(&enclosingRect, &iconRect, &textRect);
itemData = (IconDBItemDataRec *)item;
labelColor.red = 0;
labelColor.green = 0;
labelColor.blue = 0;
PlotIconRefInContext(context, &iconCGRect, kAlignNone,
active ? kTransformNone : kTransformDisabled, &labelColor,
kPlotIconRefNormalFlags, itemData->icon);
DrawThemeTextBox(itemData->name, kThemeViewsFont,
active ? kThemeStateActive : kThemeStateInactive, true,
&textRect, teCenter, context);
QDEndCGContext(port, &context);
if (savedState != NULL)
SetThemeDrawingState(savedState, true);
} // DrawIconDataBrowserItem101CB