Skip to content

Commit

Permalink
Screen Capture Transparent Bitmap (#16)
Browse files Browse the repository at this point in the history
  • Loading branch information
@neurolabusc
neurolabusc committed Apr 24, 2020
1 parent d151da0 commit ae12e51
Show file tree
Hide file tree
Showing 5 changed files with 84 additions and 76 deletions.
140 changes: 70 additions & 70 deletions MRIcroGL.lps
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,8 +19,8 @@
<ComponentName Value="GLForm1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<TopLine Value="17"/>
<CursorPos X="24" Y="37"/>
<TopLine Value="37"/>
<CursorPos X="41" Y="37"/>
<UsageCount Value="204"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
Expand Down Expand Up @@ -158,18 +158,18 @@
</Unit16>
<Unit17>
<Filename Value="nifti.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="4"/>
<TopLine Value="5587"/>
<CursorPos X="4" Y="5622"/>
<TopLine Value="167"/>
<CursorPos X="90" Y="181"/>
<UsageCount Value="100"/>
<Loaded Value="True"/>
</Unit17>
<Unit18>
<Filename Value="prefs.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/>
<TopLine Value="94"/>
<CursorPos X="25" Y="98"/>
<TopLine Value="252"/>
<CursorPos X="62" Y="275"/>
<UsageCount Value="138"/>
<Loaded Value="True"/>
</Unit18>
Expand Down Expand Up @@ -268,15 +268,15 @@
<EditorIndex Value="5"/>
<TopLine Value="860"/>
<CursorPos X="15" Y="872"/>
<UsageCount Value="80"/>
<UsageCount Value="81"/>
<Loaded Value="True"/>
</Unit32>
<Unit33>
<Filename Value="/usr/local/share/fpcsrc/packages/paszlib/src/zstream.pp"/>
<EditorIndex Value="7"/>
<TopLine Value="99"/>
<CursorPos X="22" Y="112"/>
<UsageCount Value="35"/>
<UsageCount Value="36"/>
<Loaded Value="True"/>
</Unit33>
<Unit34>
Expand Down Expand Up @@ -378,23 +378,23 @@
<EditorIndex Value="6"/>
<TopLine Value="169"/>
<CursorPos X="21" Y="171"/>
<UsageCount Value="35"/>
<UsageCount Value="36"/>
<Loaded Value="True"/>
</Unit48>
<Unit49>
<Filename Value="/usr/local/share/fpcsrc/packages/paszlib/src/zdeflate.pas"/>
<EditorIndex Value="9"/>
<TopLine Value="432"/>
<CursorPos X="19" Y="444"/>
<UsageCount Value="35"/>
<UsageCount Value="36"/>
<Loaded Value="True"/>
</Unit49>
<Unit50>
<Filename Value="/usr/local/share/fpcsrc/packages/paszlib/src/zinflate.pas"/>
<EditorIndex Value="8"/>
<TopLine Value="356"/>
<CursorPos Y="356"/>
<UsageCount Value="35"/>
<UsageCount Value="36"/>
<Loaded Value="True"/>
</Unit50>
<Unit51>
Expand All @@ -409,124 +409,124 @@
</Build>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="nifti.pas"/>
<Caret Line="37" Column="90" TopLine="15"/>
<Filename Value="mainunit.pas"/>
<Caret Line="449" Column="23" TopLine="434"/>
</Position1>
<Position2>
<Filename Value="nifti.pas"/>
<Caret Line="2216" Column="10" TopLine="2193"/>
<Filename Value="mainunit.pas"/>
<Caret Line="2080" Column="23" TopLine="2054"/>
</Position2>
<Position3>
<Filename Value="nifti.pas"/>
<Caret Line="2298" Column="48" TopLine="2285"/>
<Filename Value="mainunit.pas"/>
<Caret Line="7211" Column="22" TopLine="7189"/>
</Position3>
<Position4>
<Filename Value="nifti.pas"/>
<Caret Line="2305" Column="10" TopLine="2285"/>
<Filename Value="mainunit.pas"/>
<Caret Line="6622" Column="46" TopLine="6604"/>
</Position4>
<Position5>
<Filename Value="nifti.pas"/>
<Caret Line="2447" Column="41" TopLine="2436"/>
<Filename Value="prefs.pas"/>
<Caret Line="9" Column="50"/>
</Position5>
<Position6>
<Filename Value="nifti.pas"/>
<Caret Line="3414" Column="36" TopLine="3411"/>
<Filename Value="prefs.pas"/>
<Caret Line="16" Column="44"/>
</Position6>
<Position7>
<Filename Value="nifti.pas"/>
<Caret Line="3418" Column="51" TopLine="3411"/>
<Filename Value="prefs.pas"/>
<Caret Line="107" Column="47" TopLine="82"/>
</Position7>
<Position8>
<Filename Value="nifti.pas"/>
<Caret Line="3419" Column="59" TopLine="3411"/>
<Filename Value="prefs.pas"/>
<Caret Line="128" Column="42" TopLine="103"/>
</Position8>
<Position9>
<Filename Value="nifti.pas"/>
<Caret Line="3421" Column="23" TopLine="3411"/>
<Filename Value="prefs.pas"/>
<Caret Line="16" Column="44"/>
</Position9>
<Position10>
<Filename Value="nifti.pas"/>
<Caret Line="3415" Column="48" TopLine="3413"/>
<Filename Value="prefs.pas"/>
<Caret Line="107" Column="47" TopLine="252"/>
</Position10>
<Position11>
<Filename Value="nifti.pas"/>
<Caret Line="3418" Column="64" TopLine="3413"/>
<Filename Value="prefs.pas"/>
<Caret Line="128" Column="42" TopLine="113"/>
</Position11>
<Position12>
<Filename Value="nifti.pas"/>
<Caret Line="3424" Column="35" TopLine="3413"/>
<Filename Value="prefs.pas"/>
<Caret Line="16" Column="44"/>
</Position12>
<Position13>
<Filename Value="nifti.pas"/>
<Caret Line="3426" Column="17" TopLine="3413"/>
<Filename Value="prefs.pas"/>
<Caret Line="107" Column="47" TopLine="82"/>
</Position13>
<Position14>
<Filename Value="nifti.pas"/>
<Caret Line="3371" Column="6" TopLine="3361"/>
<Filename Value="mainunit.pas"/>
<Caret Line="6613" Column="47" TopLine="6604"/>
</Position14>
<Position15>
<Filename Value="nifti.pas"/>
<Caret Line="4" Column="120"/>
<Filename Value="mainunit.pas"/>
<Caret Line="6622" Column="46" TopLine="6604"/>
</Position15>
<Position16>
<Filename Value="nifti.pas"/>
<Caret Line="129" Column="30" TopLine="107"/>
<Filename Value="mainunit.pas"/>
<Caret Line="4403" Column="72" TopLine="4388"/>
</Position16>
<Position17>
<Filename Value="nifti.pas"/>
<Caret Line="5" Column="107"/>
<Filename Value="mainunit.pas"/>
<Caret Line="4536" Column="48" TopLine="4511"/>
</Position17>
<Position18>
<Filename Value="nifti.pas"/>
<Caret Line="24" Column="54" TopLine="10"/>
<Filename Value="mainunit.pas"/>
<Caret Line="4537" Column="47" TopLine="4512"/>
</Position18>
<Position19>
<Filename Value="nifti.pas"/>
<Caret Line="77" Column="23" TopLine="54"/>
<Filename Value="mainunit.pas"/>
<Caret Line="4538" Column="50" TopLine="4513"/>
</Position19>
<Position20>
<Filename Value="nifti.pas"/>
<Caret Line="70" Column="39" TopLine="54"/>
<Filename Value="mainunit.pas"/>
<Caret Line="6376" Column="47" TopLine="6350"/>
</Position20>
<Position21>
<Filename Value="nifti.pas"/>
<Caret Line="251" Column="48" TopLine="227"/>
<Filename Value="mainunit.pas"/>
<Caret Line="6487" Column="74" TopLine="6461"/>
</Position21>
<Position22>
<Filename Value="mainunit.pas"/>
<Caret Line="8195" Column="25" TopLine="8181"/>
<Caret Line="6503" Column="46" TopLine="6477"/>
</Position22>
<Position23>
<Filename Value="../Metal-Demos/common/SimdUtils.pas"/>
<Caret Line="69" Column="17" TopLine="52"/>
<Filename Value="mainunit.pas"/>
<Caret Line="6601" Column="74" TopLine="6575"/>
</Position23>
<Position24>
<Filename Value="../Metal-Demos/common/SimdUtils.pas"/>
<Caret Line="71" Column="23" TopLine="52"/>
<Filename Value="mainunit.pas"/>
<Caret Line="6622" Column="46" TopLine="6597"/>
</Position24>
<Position25>
<Filename Value="../Metal-Demos/common/SimdUtils.pas"/>
<Caret Line="93" Column="21" TopLine="82"/>
<Filename Value="mainunit.pas"/>
<Caret Line="4391" Column="48" TopLine="4388"/>
</Position25>
<Position26>
<Filename Value="mainunit.pas"/>
<Caret Line="8182" Column="31" TopLine="8181"/>
<Caret Line="2483" Column="41" TopLine="2508"/>
</Position26>
<Position27>
<Filename Value="dcm2nii.pas"/>
<Caret Line="418" Column="21" TopLine="404"/>
<Filename Value="mainunit.pas"/>
<Caret Line="2335" TopLine="2326"/>
</Position27>
<Position28>
<Filename Value="dcm2nii.pas"/>
<Caret Line="68" Column="44" TopLine="54"/>
<Filename Value="mainunit.pas"/>
<Caret Line="2084" Column="26" TopLine="2070"/>
</Position28>
<Position29>
<Filename Value="dcm2nii.pas"/>
<Caret Line="11" Column="87"/>
<Filename Value="mainunit.pas"/>
<Caret Line="2480" Column="31" TopLine="2479"/>
</Position29>
<Position30>
<Filename Value="nifti.pas"/>
<Caret Line="3198" Column="13" TopLine="3194"/>
<Filename Value="mainunit.pas"/>
<Caret Line="7375" Column="37" TopLine="7350"/>
</Position30>
</JumpHistory>
<RunParams>
Expand Down
Binary file modified MRIcroGL.res
View file
Binary file not shown.
1 change: 0 additions & 1 deletion mainunit.lfm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1709,7 +1709,6 @@ object GLForm1: TGLForm1
Align = alClient
ParentFont = False
TabOrder = 4
OnClick = CenterPanelClick
end
end
object TBSplitter: TSplitter
Expand Down
18 changes: 13 additions & 5 deletions mainunit.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@ interface
nifti_hdr_view, fsl_calls, math, nifti, niftis, prefs, dcm2nii, strutils, drawVolume, autoroi, VectorMath;

const
kVers = '1.2.20200331'; //++ fixes remove small clusters
kVers = '1.2.20200331+'; //+ fixes remove small clusters
type

{ TGLForm1 }
Expand Down Expand Up @@ -346,7 +346,6 @@ TGLForm1 = class(TForm)
procedure AfniDetailsMenuClick(Sender: TObject);
procedure AfniDirMenuClick(Sender: TObject);
procedure BetterRenderTimerTimer(Sender: TObject);
procedure CenterPanelClick(Sender: TObject);
procedure ClusterByMenuClick(Sender: TObject);
procedure ClusterViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Expand Down Expand Up @@ -2082,6 +2081,17 @@ function PySAVEBMP(Self, Args : PPyObject): PPyObject; cdecl;
end;
end;

function pyBMPTRANSPARENT(Self, Args : PPyObject): PPyObject; cdecl;
var
transparent: integer;
begin
Result:= GetPythonEngine.PyBool_FromLong(Ord(True));
with GetPythonEngine do
if Boolean(PyArg_ParseTuple(Args, 'i:transparent', @transparent)) then begin
gPrefs.ScreenCaptureTransparentBackground := (transparent = 1);
end;
end;

function PyCONTRASTMINMAX(Self, Args : PPyObject): PPyObject; cdecl;
var
MN,MX: single;
Expand Down Expand Up @@ -2491,6 +2501,7 @@ procedure TGLForm1.PyModInitialization(Sender: TObject);
AddMethod('azimuthelevation', @PyAZIMUTHELEVATION, ' azimuthelevation(azi, elev) -> Sets the camera location.');
AddMethod('backcolor', @PyBACKCOLOR, ' backcolor(r, g, b) -> changes the background color, for example backcolor(255, 0, 0) will set a bright red background');
AddMethod('bmpzoom', @PyBMPZOOM, ' bmpzoom(z) -> changes resolution of savebmp(), for example bmpzoom(2) will save bitmaps at twice screen resolution');
AddMethod('bmptransparent', @pyBMPTRANSPARENT, ' bmptransparent(v) -> set if bitmaps use transparent (1) or opaque (0) background');
AddMethod('cameradistance', @PyCAMERADISTANCE, ' cameradistance(z) -> Sets the viewing distance from the object.');
AddMethod('colorbarposition', @PyCOLORBARPOSITION, ' colorbarposition(p) -> Set colorbar position (0=off, 1=top, 2=right).');
AddMethod('colorbarsize', @PyCOLORBARSIZE, ' colorbarsize(p) -> Change width of color bar f is a value 0.01..0.5 that specifies the fraction of the screen used by the colorbar.');
Expand Down Expand Up @@ -5314,10 +5325,7 @@ procedure TGLForm1.AfniDirMenuClick(Sender: TObject);
CreateStandardMenus(OpenAFNIMenu);
end;

procedure TGLForm1.CenterPanelClick(Sender: TObject);
begin

end;

procedure TGLForm1.ClusterByMenuClick(Sender: TObject);
var
Expand Down
1 change: 1 addition & 0 deletions prefs.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -272,6 +272,7 @@ function IniFile(lRead: boolean; var lPrefs: TPrefs): boolean;
{$endif}
IniBool(lRead,lIniFile, 'LabelOrient',lPrefs.LabelOrient);
//LabelOrientCube
IniBool(lRead,lIniFile, 'ScreenCaptureTransparentBackground',lPrefs.ScreenCaptureTransparentBackground);
IniBool(lRead,lIniFile, 'LoadFewVolumes',lPrefs.LoadFewVolumes);
IniBool(lRead,lIniFile, 'LandmarkPanel',lPrefs.LandmarkPanel);
IniBool(lRead,lIniFile, 'FlipYZ',lPrefs.FlipYZ);
Expand Down

0 comments on commit ae12e51

Please sign in to comment.