Changeset 16 for trunk/UMainForm.pas

Timestamp:

Mar 24, 2011, 7:05:53 AM (14 years ago)

Author:

george

Message:

• Added: Menu action to view RawImage description.

File:

• trunk/UMainForm.pas (modified) (5 diffs)

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils;
+  ComCtrls, Menus, ActnList, UCore, UPlatform, Math, DateUtils, GraphType;
 
 type
@@ -14 +14 @@
 
   TMainForm = class(TForm)
+    AAbout: TAction;
+    AShowRawImageDesc: TAction;
     AShowMap: TAction;
     ANewGame: TAction;
@@ -27 +29 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
     StatusBar1: TStatusBar;
     TimerDraw: TTimer;
@@ -34 +38 @@
     procedure ANewGameExecute(Sender: TObject);
     procedure AShowMapExecute(Sender: TObject);
+    procedure AShowRawImageDescExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDeactivate(Sender: TObject);
@@ -172 +177 @@
 end;
 
+procedure TMainForm.AShowRawImageDescExecute(Sender: TObject);
+var
+  List: TStringList;
+begin
+  with Image1.Picture.Bitmap.RawImage, Description do
+  try
+    List := TStringList.Create;
+    with List do begin
+      Add('Format: ' + RawImageColorFormatNames[Format]);
+      Add('Width: ' + IntToStr(Width));
+      Add('Height: ' + IntToStr(Height));
+      Add('Depth: ' + IntToStr(Depth));
+      Add('BitOrder: ' + RawImageBitOrderNames[BitOrder]);
+      Add('ByteOrder: ' + RawImageByteOrderNames[ByteOrder]);
+      Add('LineOrder: ' + RawImageLineOrderNames[LineOrder]);
+      Add('LineEnd: ' + RawImageLineEndNames[LineEnd]);
+      Add('BitsPerPixel: ' + IntToStr(BitsPerPixel));
+      Add('RedPrec: ' + IntToStr(RedPrec));
+      Add('RedShift: ' + IntToStr(RedShift));
+      Add('GreenPrec: ' + IntToStr(GreenPrec));
+      Add('GreenShift: ' + IntToStr(GreenShift));
+      Add('BluePrec: ' + IntToStr(BluePrec));
+      Add('BlueShift: ' + IntToStr(BlueShift));
+      Add('AlphaPrec: ' + IntToStr(AlphaPrec));
+      Add('AlphaShift: ' + IntToStr(AlphaShift));
+    end;
+    ShowMessage(List.Text);
+  finally
+    List.Free;
+  end;
+end;
+
 procedure TMainForm.AExitExecute(Sender: TObject);
 begin