TheSwamp
CAD Forums => CAD General => Topic started by: CAB on November 09, 2004, 11:41:26 PM
-
Is there a way to increase the window box size on an image menu?
***IMAGE
**WALLI1
[Select Wall Type]
[opticadd(wal-side,Wall Edge)]^C^C$S=X $S=WALLS1
[opticadd(wal-cent,Wall Centered)]^C^C$S=X $S=WALLS2
[opticadd(wal-fnd,Foundation)]^C^C$S=X $S=FNDWALL
[opticadd(grade-bm,Grade Beam)]^C^C$S=X $S=FNDWALL
[ Exit]^C^C
PS here is some reference material - autocad book in PDF form
http://www.software.ufl.edu/autodesk/manuals/a2kcust/
-
Yes, you can increase the size...and add 4 more image boxes...but it involves changing the ACAD.DCL. There was a post on the AutoDesk usergroups...I changed mine at work just to see it...I'll post the code in the morning...
-
Thanks Dommy, looking forward to it.
-
CAB, in the ACAD.DCL, where D2H was speaking about, you can shange the size of the images themselves by either reducing the number of images in the dialog (comment out some of them) or by specifying the size of the image in the DCL file.
DCL CODE
acad_icon: dialog {
key = "label";
initial_focus = "listbox";
: row {
: list_box {
width = 20;
height = 21;
fixed_height = true;
key = "listbox";
allow_accept = true;
}
: column {
: row {
: icon_image {
//add width key here on each of the icon_image tiles
width = 20;
//I used 20 as an example, you can use what you need to make the size correct
key = "icon1";
}
: icon_image {
key = "icon2";
}
: icon_image {
key = "icon3";
}
: icon_image {
key = "icon4";
}
}
: row {
: icon_image {
key = "icon5";
}
: icon_image {
key = "icon6";
}
: icon_image {
key = "icon7";
}
: icon_image {
key = "icon8";
}
}
: row {
: icon_image {
key = "icon9";
}
: icon_image {
key = "icon10";
}
: icon_image {
key = "icon11";
}
: icon_image {
key = "icon12";
}
}
: row {
: icon_image {
key = "icon13";
}
: icon_image {
key = "icon14";
}
: icon_image {
key = "icon15";
}
: icon_image {
key = "icon16";
}
}
: row {
: icon_image {
key = "icon17";
}
: icon_image {
key = "icon18";
}
: icon_image {
key = "icon19";
}
: icon_image {
key = "icon20";
}
}
/*
* : row {
* : icon_image {
* key = "icon21";
* }
* : icon_image {
* key = "icon22";
* }
* : icon_image {
* key = "icon23";
* }
* : icon_image {
* key = "icon24";
* }
* }
*/
}
}
: row {
: row {
spacer_0;
: row {
fixed_width = true;
: button {
label = "&Previous";
key = "prev";
width = 8;
}
:spacer {
width = 2;
}
:button {
label = " &Next ";
key = "next";
width = 8;
}
}
spacer_0;
}
spacer;
ok_cancel;
}
}
Notice the last four images are commented out with a block comment, you can comment out more to make the images resize automatically. AutoCAD will page the extra icons automatically.
-
Here's how mine ended up after messing with it...
acad_icon: dialog {
key = "label";
initial_focus = "listbox";
: row {
: list_box {
width = 20;
height = 26;
fixed_height = true;
fixed_width = false;
key = "listbox";
allow_accept = true;
}
: column {
: row {
: icon_image {
width = 22;
height = 7;
key = "icon1";
}
: icon_image {
width = 22;
height = 7;
key = "icon2";
}
: icon_image {
width = 22;
height = 7;
key = "icon3";
}
: icon_image {
width = 22;
height = 7;
key = "icon4";
}
}
: row {
: icon_image {
width = 22;
height = 7;
key = "icon5";
}
: icon_image {
width = 22;
height = 7;
key = "icon6";
}
: icon_image {
width = 22;
height = 7;
key = "icon7";
}
: icon_image {
width = 22;
height = 7;
key = "icon8";
}
}
: row {
: icon_image {
width = 22;
height = 7;
key = "icon9";
}
: icon_image {
width = 22;
height = 7;
key = "icon10";
}
: icon_image {
width = 22;
height = 7;
key = "icon11";
}
: icon_image {
width = 22;
height = 7;
key = "icon12";
}
}
: row {
: icon_image {
width = 22;
height = 7;
key = "icon13";
}
: icon_image {
width = 22;
height = 7;
key = "icon14";
}
: icon_image {
width = 22;
height = 7;
key = "icon15";
}
: icon_image {
width = 22;
height = 7;
key = "icon16";
}
}
: row {
: icon_image {
width = 22;
height = 7;
key = "icon17";
}
: icon_image {
width = 22;
height = 7;
key = "icon18";
}
: icon_image {
width = 22;
height = 7;
key = "icon19";
}
: icon_image {
width = 22;
height = 7;
key = "icon20";
}
}
: row {
: icon_image {
width = 22;
height = 7;
key = "icon21";
}
: icon_image {
width = 22;
height = 7;
key = "icon22";
}
: icon_image {
width = 22;
height = 7;
key = "icon23";
}
: icon_image {
width = 22;
height = 7;
key = "icon24";
}
}
}
}
: row {
: row {
spacer_0;
: row {
fixed_width = true;
: button {
label = "&Previous";
key = "prev";
width = 8;
}
:spacer {
width = 2;
}
:button {
label = " &Next ";
key = "next";
width = 8;
}
}
spacer_0;
}
spacer;
ok_cancel;
}
}
-
Thanks Keith...
I there a way to make the image routine dynamic?
If I were designing it I would try to make it dynamic in two ways.
1. to get the display resolution and increase the size to fit the display area
with limits of course. My resolution is 1280x1024 and the text on the slides
is not readable.
2. vary the number of image frames with the number needed. So if you had only four
frames make it a 2x2 array.
I am guessing the lisp code that uses the DCL is in ACAD.LSP. Perhaps some minor
modification is possible.
-
Is the filter dialogue located in this same acad.dcl file? I've wanted to change the size of the properties list window for quite a while. Anyone know how to do this?
http://www.theswamp.org/screens/ronjonp/filter.png
Thanks,
Ron
Also....how do I get an image to show up in the message rather than a link??
-
Thanks Dommy..
Comparing your example with Keith's it looks like you only need to set the
Height & Width in the first Image and the rest will follow.
I'm going to give it a try.
-
Thanks Dommy..
Comparing your example with Keith's it looks like you only need to set the
Height & Width in the first Image and the rest will follow.
I'm going to give it a try.
No...they're seperate...unless I did something wrong...
-
CAB, you have to set the width on each tile, the height is not required if the aspect ratio is not overriden from the icon_button tile.
There was a routine I wrote some time ago, I am not sure if it was here or on the "other" site...that would create a dynamic DCL. The main thing is that you would have to use a lisp rather than the built in AutoCAD image_icon menu.
You could create the base DCL as code, calculate the resolution (using activex) write out the image sizes and counts using the info from the tile count and resolution of screen to a temp file thae load that DCL
-
Is the filter dialogue located in this same acad.dcl file? I've wanted to change the size of the properties list window for quite a while. Anyone know how to do this?
http://www.theswamp.org/screens/ronjonp/filter.bmp
Thanks,
Ron
Also....how do I get an image to show up in the message rather than a link??
The filter dialog is defined in filter.dcl you can change the width and height of the list, but you will need to make sure the rest of the dialog looks correct otherwise it might get real ugly.
Use the [img] tag to put a picture in line
-
There was a routine I wrote some time ago, I am not sure if it was here or on the "other" site...that would create a dynamic DCL. The main thing is that you would have to use a lisp rather than the built in AutoCAD image_icon menu.
You could create the base DCL as code, calculate the resolution (using activex) write out the image sizes and counts using the info from the tile count and resolution of screen to a temp file thae load that DCL
Looked for you routine both places. No luck.
Any chance you can find it?
-
I'll look
..........
No luck
Can't even find it on my computer ....
It would be as simple as creating a lisp with a loop to write out the required data to a temp dcl file.
-
In AutoCAD 2005 the filter dialogue is in C:\Program Files\AutoCAD 2005\acfilterres.dll.
Here is the original dialogue supplied with AutoCAD 2005:
(http://www.theswamp.org/screens/ronjonp/filter_small.png)
Here is the modified dialogue that doesn't cut off the properties:
(http://www.theswamp.org/screens/ronjonp/filter_large.png)
If you want the modified dll for AutoCAD 2005....here it is:
http://theswamp.org/lilly_pond/ronjonp/acfilterres.dll?nossi=1
Ron :D
-
Good job Ron, would you tell us how you did that exactly.
-
It would be as simple as creating a lisp with a loop to write out the required data to a temp dcl file.
Easy for you to say :D
I'll give it a try.
-
Cab,
I used ResHacker and edited the Dialogue 101 portion.
101 DIALOGEX 0, 0, 331, 233
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Object Selection Filters"
LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
FONT 8, "MS Sans Serif"
{
CONTROL "Select Filter", 1031, BUTTON, BS_GROUPBOX | WS_CHILD | WS_VISIBLE, 7, 113, 154, 109
CONTROL "", 1003, COMBOBOX, CBS_DROPDOWNLIST | CBS_SORT | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 12, 123, 95, 87
CONTROL "S&elect...", 1004, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 112, 122, 44, 14
CONTROL "&X:", 1023, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 14, 144, 8, 8
CONTROL "", 1005, EDIT, ES_LEFT | ES_AUTOHSCROLL | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 69, 143, 88, 12
CONTROL "", 1026, COMBOBOX, CBS_DROPDOWNLIST | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 27, 143, 35, 135
CONTROL "&Y:", 1024, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 14, 159, 8, 8
CONTROL "", 1006, EDIT, ES_LEFT | ES_AUTOHSCROLL | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 69, 156, 88, 12
CONTROL "", 1009, COMBOBOX, CBS_DROPDOWNLIST | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 27, 156, 35, 135
CONTROL "&Z:", 1025, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 14, 174, 8, 8
CONTROL "", 1007, EDIT, ES_LEFT | ES_AUTOHSCROLL | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 69, 170, 88, 12
CONTROL "", 1010, COMBOBOX, CBS_DROPDOWNLIST | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 27, 170, 35, 117
CONTROL "Add to &List:", 1012, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 27, 186, 44, 14
CONTROL "&Substitute", 1011, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 100, 186, 44, 14
CONTROL "Add Selected Object <", 1013, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 12, 203, 144, 14
CONTROL "Edit &Item", 1016, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 169, 116, 44, 14
CONTROL "&Delete", 1015, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 223, 116, 44, 14
CONTROL "&Clear List", 1014, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 277, 116, 44, 14
CONTROL "Named Filters", 1032, BUTTON, BS_GROUPBOX | WS_CHILD | WS_VISIBLE, 165, 135, 160, 64
CONTROL "C&urrent:", 1035, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 174, 149, 26, 8
CONTROL "", 1018, COMBOBOX, CBS_DROPDOWNLIST | CBS_SORT | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 214, 146, 104, 88
CONTROL "Sa&ve As:", 1019, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 174, 163, 44, 14
CONTROL "", 1020, EDIT, ES_LEFT | ES_AUTOHSCROLL | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 230, 163, 87, 12
CONTROL "Delete Current &Filter List", 1021, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 174, 180, 143, 14
CONTROL "&Apply", 1022, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 169, 206, 44, 14
CONTROL "Cancel", 2, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 223, 206, 44, 14
CONTROL "&Help", 9, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 277, 206, 44, 14
CONTROL "", 1027, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 7, 223, 309, 9
CONTROL "", 1017, "SysListView32", LVS_REPORT | LVS_SINGLESEL | LVS_SHOWSELALWAYS | LVS_NOLABELWRAP | LVS_ALIGNLEFT | LVS_NOCOLUMNHEADER | LVS_NOSORTHEADER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 7, 7, 317, 100 , 0x00000200
}
I added 50 to the red number in each line to drop it down:
CONTROL "Select Filter", 1031, BUTTON, BS_GROUPBOX | WS_CHILD | WS_VISIBLE, 7, 113, 154, 109
.........
.........
.........
Ron :D
-
Cool... 8)
Thanks Ron
-
I would assume since it's a dll file, he used resource4@ck3r.