Difference between revisions of "MSEide MSEgui Howto"

From Lazarus wiki
Jump to navigationJump to search
(+ Win32 Application Icon and Properties)
 
Line 1: Line 1:
 
=Win32 Application Icon and Properties=
 
=Win32 Application Icon and Properties=
 +
 +
1) Prepare the resource source files in the directory of your program:
 +
 +
File ”version_data.rc”:
 +
 +
<code>
 +
1 VERSIONINFO
 +
FILEVERSION 4,0,3,17
 +
PRODUCTVERSION 3,0,0,0
 +
FILEFLAGSMASK 0
 +
FILEOS 0x40000
 +
FILETYPE 1
 +
{
 +
BLOCK &rdquo;StringFileInfo&rdquo;
 +
{
 +
  BLOCK &rdquo;040904E4&rdquo;
 +
  {
 +
  VALUE &rdquo;CompanyName&rdquo;,&rdquo;JSC TashkentP&rdquo;
 +
  VALUE &rdquo;FileDescription&rdquo;,&rdquo;The main program file&rdquo;
 +
  VALUE &rdquo;FileVersion&rdquo;,&rdquo;0.9a&rdquo;
 +
  VALUE &rdquo;InternalName&rdquo;,&rdquo;ARM Podpiska&rdquo;
 +
  VALUE &rdquo;LegalCopyright&rdquo;,&rdquo;JSC TashkentP&rsquo;s property&rdquo;
 +
  VALUE &rdquo;OriginalFilename&rdquo;,&rdquo;podpiska.pas&rdquo;
 +
  VALUE &rdquo;ProductName&rdquo;,&rdquo;The program for ARM Podpiska&rdquo;
 +
  VALUE &rdquo;ProductVersion&rdquo;,&rdquo;0.9a&rdquo;
 +
  }
 +
}
 +
}
 +
</code>
 +
 +
File &rdquo;icon_data.rc&rdquo;:
 +
 +
<code>
 +
AppIcon ICON &rdquo;app_icon.ico&rdquo;
 +
</code>
 +
 +
where &rdquo;app_icon.ico&rdquo; is 128x128 24bit ICO image. You may use any size at your favour ( usually depends on preferrable destop resilution/size ) commonly greater or equal to 24x24 pixels.
 +
 +
My favorite editor to prepare such ( and any kind of image ) files is &rdquo;Embellish&rdquo;.
 +
 +
 +
2) From within Win-32 command shell, complile the prepared files with the supplied
 +
FPC resource compiler :
 +
 +
<code>
 +
# windres -O res -i version_data.rc -o version_data.res
 +
# windres -O res -i icon_data.rc -o icon_data.res
 +
</code>
 +
 +
 +
3) use the compiled resources in your application :
 +
 +
<code>
 +
program super_puper;
 +
 +
{$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif}
 +
{$ifdef FPC}
 +
{$ifdef mswindows}
 +
  {$apptype console}
 +
{$endif}
 +
{$endif}
 +
uses
 +
{$ifdef FPC}{$ifdef linux}cthreads,{$endif}{$endif}msegui,mseforms,
 +
main,dmmain,dmprint, dmacnt1, dmf18,dmrefs,
 +
connsetupform,mseconsts,mseconsts_ru,mseconsts_uzcyr;
 +
 +
// importing the compiled resources
 +
 +
{$ifdef mswindows}
 +
{$R version_data.res}
 +
{$R icon_data.res}
 +
{$endif}
 +
 +
begin
 +
setlangconsts(&rsquo;ru&rsquo;);
 +
application.createdatamodule(tdmmainmo,dmmainmo);
 +
application.createdatamodule(tdmprintmo, dmprintmo);
 +
application.createdatamodule(tdmacnt1mo, dmacnt1mo);
 +
application.createdatamodule(tdmf18mo, dmf18mo);
 +
application.createdatamodule(tdmrefsmo, dmrefsmo);
 +
application.createform(tmainfo,mainfo);
 +
application.run;
 +
end.
 +
</code>
 +
 +
That&rsquo;s all at the moment.

Revision as of 22:46, 7 January 2008

Win32 Application Icon and Properties

1) Prepare the resource source files in the directory of your program:

File ”version_data.rc”:

1 VERSIONINFO FILEVERSION 4,0,3,17 PRODUCTVERSION 3,0,0,0 FILEFLAGSMASK 0 FILEOS 0x40000 FILETYPE 1 { 

BLOCK ”StringFileInfo”
{
 BLOCK ”040904E4”
 {
 VALUE ”CompanyName”,”JSC TashkentP”
 VALUE ”FileDescription”,”The main program file”
 VALUE ”FileVersion”,”0.9a”
 VALUE ”InternalName”,”ARM Podpiska”
 VALUE ”LegalCopyright”,”JSC TashkentP’s property”
 VALUE ”OriginalFilename”,”podpiska.pas”
 VALUE ”ProductName”,”The program for ARM Podpiska”
 VALUE ”ProductVersion”,”0.9a”
 }
}

}

File ”icon_data.rc”:

AppIcon ICON ”app_icon.ico”

where ”app_icon.ico” is 128x128 24bit ICO image. You may use any size at your favour ( usually depends on preferrable destop resilution/size ) commonly greater or equal to 24x24 pixels.

My favorite editor to prepare such ( and any kind of image ) files is ”Embellish”.


2) From within Win-32 command shell, complile the prepared files with the supplied FPC resource compiler :

  1. windres -O res -i version_data.rc -o version_data.res
  2. windres -O res -i icon_data.rc -o icon_data.res


3) use the compiled resources in your application :

program super_puper;

{$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif} {$ifdef FPC} 

{$ifdef mswindows}
 {$apptype console}
{$endif}

{$endif} uses 

{$ifdef FPC}{$ifdef linux}cthreads,{$endif}{$endif}msegui,mseforms,
main,dmmain,dmprint, dmacnt1, dmf18,dmrefs,
connsetupform,mseconsts,mseconsts_ru,mseconsts_uzcyr;

// importing the compiled resources

{$ifdef mswindows} 

{$R version_data.res}
{$R icon_data.res}

{$endif}

begin 

setlangconsts(’ru’);
application.createdatamodule(tdmmainmo,dmmainmo);
application.createdatamodule(tdmprintmo, dmprintmo);
application.createdatamodule(tdmacnt1mo, dmacnt1mo);
application.createdatamodule(tdmf18mo, dmf18mo);
application.createdatamodule(tdmrefsmo, dmrefsmo);
application.createform(tmainfo,mainfo);
application.run;

end.

That’s all at the moment.

Retrieved from "http://wiki.freepascal.org/index.php?title=MSEide_MSEgui_Howto&oldid=26200"