Alex

hi, you can turn an icon without letting it disappear?
commandbar().Components (). visible = false wipes away
but I do not want to make it disappear but turn it off so that you see the icon but does not start the function

Alex, I wrote you in private - what actions I carried out and attached file, please answer!!

Greetings Alex!
I have bought from you program Securi Design 14 for Corel Draw X4
But she gives out an error at designers Unexpected Error occured: #-2147024809 (Invalid offset value) - they will soon kill me - help me in my problem - I can send a file to you that you could understand it.
We appreciate your work.

hi Alex,
pls i'll need help importing or opening Pdf files in coreldraw, cause when i do, almost everything changes even when i import as curve, for ex. fills change, transparency changes and some other things, and there is pending job on desk which needs to be done sooner. thanks for your quick reponse

Hi Alex,

I was wondering if there is a way to protect a macro from being viewed besides password protect it with project property dialog. I was told that you wrote the CalendarWizard that is unviewable without asking for password. IF I may ask how can I protect a macro that I created using the method you used in CalendarWizard?

Thank you in advance.

Luis

Hi.
I just wanted to say hello and a thank you for all the effort and help you've invested in your site. I enjoy being a member of your forum and helping others.
-John

Porn spammer ARMiguel. Really a shame. 34 posts!

Hi Alex,
I need to draw about 100000 bezier's in a form including 3D rotation. I've tried to do this with yours Extension Library but it works too slow. I've done a DLL in C++ which rotating the points and draw everything as one using GDI PolyDraw function, data struture is done in VBA ones and after that the pointer and rotation values are passed to DLL. The speed is very good vhen I'm testing this just to draw in new created window in C++ but when I'm trying to save this as BMP file to put back in VBA form, the save operation works very slow. I can see that your library doing this very well. I've start lerning c++ two months ago just to sort this one drawing DLL. I've tried to do this using 'CreateFile' and 'fopen' but both of them works slow. I'm a beginner in c++ and this could be maybe some silly thing with a flag or something. Could you please tell what is wrong in this code and how to do this faster? I will be very appreciative.


BOOL SaveBitmap(HDC hDC,HBITMAP hBitmap)
{
FILE * fp= NULL;
fp = fopen("l:/Sample.bmp","wb");
if(fp == NULL)
return false;
BITMAP Bm;
BITMAPINFO BitInfo;
ZeroMemory(&BitInfo, sizeof(BITMAPINFO));
BitInfo.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
BitInfo.bmiHeader.biBitCount = 0;
if(!GetDIBits(hDC, hBitmap, 0, 0, NULL, &BitInfo, DIB_RGB_COLORS))
return (false);
Bm.bmHeight = BitInfo.bmiHeader.biHeight;
Bm.bmWidth = BitInfo.bmiHeader.biWidth;
BITMAPFILEHEADER BmHdr;
BmHdr.bfType = 0x4d42; // 'BM' WINDOWS_BITMAP_SIGNATURE
BmHdr.bfSize = (((3 * Bm.bmWidth + 3) & ~3) * Bm.bmHeight) + sizeof(BITMAPFILEHEADER) + sizeof(BITMAPINFOHEADER);
BmHdr.bfReserved1 = BmHdr.bfReserved2 = 0;
BmHdr.bfOffBits = (DWORD) sizeof(BITMAPFILEHEADER) + sizeof(BITMAPINFOHEADER);
BitInfo.bmiHeader.biCompression = 0;
fwrite(&BmHdr,sizeof(BITMAPFILEHEADER),1,fp); // Writing Bitmap File Header ////
fwrite(&BitInfo.bmiHeader,sizeof(BITMAPINFOHEADER),1,fp);
BYTE *pData = new BYTE [BitInfo.bmiHeader.biSizeImage];
if(!GetDIBits(hDC, hBitmap, 0, Bm.bmHeight, pData, &BitInfo, DIB_RGB_COLORS))
return (false);
if(pData != NULL)
fwrite(pData,1,BitInfo.bmiHeader.biSizeImage,fp);
fclose(fp);
delete (pData);
return (true);
}


int _tmain(int argc, _TCHAR* argv[])
{
HDC pulpit = GetDC(NULL);
HDC kontPam = CreateCompatibleDC(pulpit);
HBITMAP hBitmap = CreateCompatibleBitmap(pulpit, 160, 132);
HBITMAP hbmpStara = (HBITMAP) SelectObject(kontPam, hBitmap);
DeleteObject (hBitmap);

HBRUSH FillBrush = CreateSolidBrush(0xf0f0f0);
RECT FillArea = {0, 0, 120, 90};
FillRect(kontPam, &FillArea, FillBrush);
DeleteObject(FillBrush);

SaveBitmap(kontPam, hBitmap);
return 0;
}

thanks
Pav

Hi Alex,

I don;t normally private message anyone but I'm prettu desperate at the moment.

what I am trying to achieve is to make three differently named GIF files out of my Corel artwork. While the files are created, two of them show up as 0KB.

Would appreciate any help.

Regards
Norbert



<CODE>Dim expfltGIF1 As ExportFilter
Dim expfltGIF2 As ExportFilter
Dim expfltGIF3 As ExportFilter
If sx > sy Then
height = sy * 216 / sx
Set expfltGIF1 = ActiveDocument.ExportBitmap(FilePth + "Magazine-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, 216, height, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
Set expfltGIF2 = ActiveDocument.ExportBitmap(FilePth + "Newspaper-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, 216, height, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
Set expfltGIF3 = ActiveDocument.ExportBitmap(FilePth + "WebSite-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, 216, height, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
Else
width = sx * 216 / sy
Set expfltGIF1 = ActiveDocument.ExportBitmap(FilePth + "Magazine-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, width, 216, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
Set expfltGIF2 = ActiveDocument.ExportBitmap(FilePth + "Newspaper-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, width, 216, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
Set expfltGIF3 = ActiveDocument.ExportBitmap(FilePth + "WebSite-" + clientID + "_" + Street + " " + Suburb + "_000_" + RightDigit + ".gif", cdrGIF, cdrAllPages, cdrRGBColorImage, width, 216, 72, 72, cdrNormalAntiAliasing, False, False, False, False, cdrCompressionNone, palGIF)
End If

With expfltGIF1
.Interlaced = True
.Transparency = 0
.InvertMask = False
.ColorIndex = 1
.Finish
End With

With expfltGIF2
.Interlaced = True
.Transparency = 0
.InvertMask = False
.ColorIndex = 1
.Finish
End With

With expfltGIF3
.Interlaced = True
.Transparency = 0
.InvertMask = False
.ColorIndex = 1
.Finish
End With</CODE>

Look I found a new way to bug you! Just kidding, just wanted to see how this new feature works.