There is one thing makes me interested in Dashboard form of LS Retail. I found out special font that showing interesting pictures :). It is Wingdings font. It makes me curious to find out more and it may be very useful in my future development.
I create small application to see the list of characters of this font. This listing will make me easier to choose what picture I need in my future development.
Source:
OBJECT Form 50003 Wingdings and Webdings List
{
OBJECT-PROPERTIES
{
Date=11/11/14;
Time=11:05:43 AM;
Modified=Yes;
Version List=MY;
}
PROPERTIES
{
Width=9790;
Height=6710;
Editable=No;
TableBoxID=1000000000;
SourceTable=Table2000000026;
OnOpenForm=BEGIN
SETRANGE(Number,0,255);
END;
OnAfterGetRecord=BEGIN
gChar := Number;
gWingdings := Number;
gWingdings2 := Number;
gWingdings3 := Number;
gWebdings := Number;
END;
}
CONTROLS
{
{ 1000000000;TableBox;220 ;220 ;9350 ;6270 ;HorzGlue=Both;
VertGlue=Both;
RowHeight=1320;
HeadingHeight=990 }
{ 1000000001;TextBox;291 ;770 ;2200 ;440 ;ParentControl=1000000000;
InColumn=Yes;
FontSize=10;
FontBold=Yes;
SourceExpr=Number }
{ 1000000002;Label ;0 ;0 ;0 ;0 ;ParentControl=1000000001;
InColumnHeading=Yes;
FontSize=10;
FontBold=Yes;
CaptionML=ENU=Decimal }
{ 1000000022;TextBox;1693 ;660 ;2200 ;440 ;ParentControl=1000000000;
InColumn=Yes;
FontSize=10;
FontBold=Yes;
CaptionML=ENU=Character;
SourceExpr=gChar }
{ 1000000023;Label ;0 ;0 ;0 ;0 ;ParentControl=1000000022;
InColumnHeading=Yes;
FontSize=10;
FontBold=Yes }
{ 1000000006;TextBox;1693 ;550 ;2200 ;440 ;Name=Wingdings;
ParentControl=1000000000;
InColumn=Yes;
ForeColor=16711680;
BackColor=16777215;
FontName=Wingdings;
FontSize=35;
CaptionML=ENU=Wingdings;
SourceExpr=gWingdings }
{ 1000000007;Label ;0 ;0 ;0 ;0 ;ParentControl=1000000006;
InColumnHeading=Yes;
FontSize=10;
FontBold=Yes }
{ 1000000010;TextBox;6377 ;550 ;2200 ;440 ;ParentControl=1000000000;
InColumn=Yes;
ForeColor=128;
FontName=Wingdings 2;
FontSize=35;
CaptionML=ENU=Wingdings 2;
SourceExpr=gWingdings2 }
{ 1000000011;Label ;0 ;0 ;0 ;0 ;ParentControl=1000000010;
InColumnHeading=Yes;
FontSize=10;
FontBold=Yes }
{ 1000000014;TextBox;9340 ;1540 ;2200 ;440 ;ParentControl=1000000000;
InColumn=Yes;
ForeColor=32896;
FontName=Wingdings 3;
FontSize=35;
CaptionML=ENU=Wingdings 3;
SourceExpr=gWingdings3 }
{ 1000000015;Label ;0 ;0 ;0 ;0 ;ParentControl=1000000014;
InColumnHeading=Yes;
FontSize=10;
FontBold=Yes }
{ 1000000018;TextBox;13679;440 ;2200 ;440 ;ParentControl=1000000000;
InColumn=Yes;
ForeColor=8388736;
FontName=Webdings;
FontSize=35;
CaptionML=ENU=Webdings;
SourceExpr=gWebdings }
{ 1000000019;Label ;0 ;0 ;0 ;0 ;ParentControl=1000000018;
InColumnHeading=Yes;
FontSize=10;
FontBold=Yes }
}
CODE
{
VAR
gWingdings@1000000001 : Char;
gWingdings2@1000000002 : Char;
gWingdings3@1000000005 : Char;
gWebdings@1000000006 : Char;
gChar@1000000008 : Char;
BEGIN
END.
}
}
No comments:
Post a Comment