Part 2 of the restructure.

* Moved all the images from the prototype directory.
* Removed all the obsolete examples

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.