diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-23 09:28:01 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-23 09:28:01 +0000 |
commit | 6bda2054c8dda9b98f9958c54fce9f27927642c5 (patch) | |
tree | e304f50ba1211542ba885a3787f3b03d6c05b796 /images/updatestdimgs.pas | |
parent | 1e00430227e56fd2691f8374418f352c171039b1 (diff) | |
download | fpGUI-6bda2054c8dda9b98f9958c54fce9f27927642c5.tar.xz |
Part 2 of the restructure.
* Moved all the images from the prototype directory.
* Removed all the obsolete examples
Diffstat (limited to 'images/updatestdimgs.pas')
-rw-r--r-- | images/updatestdimgs.pas | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/images/updatestdimgs.pas b/images/updatestdimgs.pas new file mode 100644 index 00000000..e476539f --- /dev/null +++ b/images/updatestdimgs.pas @@ -0,0 +1,28 @@ +program updatestdimgs; + +{$IFDEF FPC} + {$mode delphi} + {$H+} +{$ELSE} +{$APPTYPE CONSOLE} +{$ENDIF} + +uses SysUtils, {$ifdef Win32}Windows{$else}linux{$endif}; + +var + sr : TSearchRec; + i,p : integer; + s : string; + cmdline : string; +begin + i := FindFirst('*.bmp',faAnyFile,sr); + while i=0 do + begin + s := sr.Name; + p := pos('.bmp',s); + if p > 0 then s := copy(s,1,p-1); + cmdline := 'bin2obj -c stdimg_'+s+' '+sr.Name; + WinExec(PChar(cmdline),0); + i := FindNext(sr); + end; +end. |