Flat to Window Mode vice versa?

[sendai]

Hello everyone.. is there any ways how make any AMS aps change the window style from flat to window vice versa? i am talking about a script to do it not in the AMS Project settings which there is a option to make it flat or window mode..

Thanks

[usamakey]

hi Telco
here your example



MEGA.NZ

HIDE: ON

Hidebb Message Hidden Description

[lazkopat]

thank you

[dripro]

Hello everyone.. is there any ways how make any AMS aps change the window style from flat to window vice versa? i am talking about a script to do it not in the AMS Project settings which there is a option to make it flat or window mode..



See this example of mine friend if it serves you

Exampe

HIDE: ON

Hidebb Message Hidden Description

Image

[sendai]

great example by Dripo.. good start in 2021...
Thank you my friend.. cheers..

[sendai]

hi Telco
here your example



MEGA.NZ

HIDE: ON

Hidebb Message Hidden Description

hi usamakey thanks but your share file is not helping anyone here.. aside from compressed with Enigma it doesnt help at all.. and also files are missing and damage or corrupted due to the used of crack version of enigma..

Thanks anyway...

[sendai]

[sendai]

@Dripo is there a way to stay the shadow while in a flat mode? Thanks

[sendai]

anyway i have tried this Const WS_THICKFRAME = &H40000

DLL.CallFunction("User32.dll", "SetWindowLongA", Application.GetWndHandle()..",-16,".."0x10000000" + "0x00040000", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);

it works but the window have a atleat 10pixel height white color in the top and it makes the windows resizeable..






is there anyway to fixed that? Thanks dripo for your help..

[usamakey]

hi usamakey thanks but your share file is not helping anyone here.
Thanks anyway...

glad I wasn't helpful

side from compressed with Enigma it doesnt help at all.. and also files are missing and damage or corrupted due to the used of crack version of enigma..

science fiction ... this makes us understand the weight of your preparation on the subject



see you next time

[sendai]

thanks usamakey i know you are knowledgeble programmer. Take care always..

[dripro]

is there anyway to fixed that? Thanks dripo for your help..




Hello friend, I have an example see the image, if it helps you send your email to send me to you

[sendai]

dripo i already send you a private message.. please check thanks..

[dripro]

dripo i already send you a private message.. please check thanks..

-------- ########## WindowShadow #################-------

Use OnPreload

function WindowShadow(tHandle)
function BitOr(nX, nY) 
	local function ValidDec(nDec) 
		local lValid = true;															
		if (nDec) then																	
			for n = 1, String.Length(nDec) do											
				if (String.Mid(nDec, n, 1) < "0" or String.Mid(nDec, n, 1) > "9") then	
					lValid = false;														
					break;																
				end
			end
		else																			
			lValid = false;																
		end
		return lValid																	
	end
	local function ValidBin(cBin)
		local lValid = true;															
		if (cBin) then																
			for n = 1, String.Length(cBin) do											
				if (String.Mid(cBin, n, 1) < "0" or String.Mid(cBin, n, 1) > "1") then
					lValid = false;												
					break;																
				end
			end
		else																			
			lValid = false;																
		end
		return lValid																	
	end 
	local function DecToBin(nDec) 
		cBin = "";																		
		if (ValidDec(nDec)) then														
			if (type(nDec) == "string") then nDec = String.ToNumber(nDec) end			
			while nDec ~= 0 do															
				cBin = Math.Mod(nDec, 2)..cBin;											
				nDec = Math.Floor(nDec / 2);											
			end
		end
		return cBin																		
	end
	local function BinToDec(cBin) 
		nDec = 0;																		
		local lValid = true;															
		if (ValidBin(cBin)) then														
			for n = 1, String.Length(cBin) do											
				nDec = nDec + String.ToNumber(String.Mid(cBin, n, 1)) * 2^(String.Length(cBin)-n);
			end
		end
		return nDec																		
	end
	nResult = 0;																	
	local cBin = "";																
	if (ValidDec(nX) and ValidDec(nX)) then											
		if (type(nX) == "string") then nX = String.ToNumber(nX) end				
		if (type(nY) == "string") then nY = String.ToNumber(nY) end				
		local cBinX = DecToBin(nX);											
		local cBinY = DecToBin(nY);												
		if (String.Length(cBinX) > String.Length(cBinY)) then					
			cBinY = String.Repeat("0", String.Length(cBinX) - String.Length(cBinY))..cBinY;	
		elseif (String.Length(cBinY) > String.Length(cBinX)) then							
			cBinX = String.Repeat("0", String.Length(cBinY) - String.Length(cBinX))..cBinX;
		end
		for n = 1, String.Length(cBinX) do
			if (String.Mid(cBinX, n, 1) == String.Mid(cBinY, n, 1) and String.Mid(cBinX, n, 1) == "0") then
				cBin = cBin.."0";
			else
				cBin = cBin.."1";
			end
		end
		nResult = BinToDec(cBin);
	end
	return nResult																
end
	GCL_STYLE = -26;
	CS_DROPSHADOW = 131072;
	SPI_SETDROPSHADOW = 4133;
	res = DLL.CallFunction("user32.dll", "SystemParametersInfoA", SPI_SETDROPSHADOW..",0,1,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
	CurrentStyle = DLL.CallFunction("user32.dll", "GetClassLongA", tHandle..","..GCL_STYLE, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
	res = DLL.CallFunction("user32.dll", "SetClassLongA", tHandle..","..GCL_STYLE..","..BitOr(CurrentStyle, CS_DROPSHADOW), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end
WindowShadow(Application.GetWndHandle())

[sendai]

Thanks dripo.. this is cool hu.. you are really great, thanks for your help.
because i create a simple music player but flat window is tool nul to see..

Sendai/Telco

[pexabosh]

thanks