Flat to Window Mode vice versa?

Aquí puedes preguntar o compartir tus dudas y conocimientos acerca del programa
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



Imagen


hi Telco
here your example :pc:



MEGA.NZ
HIDE: ON
Hidebb Message Hidden Description



thank you
sendai escribió:
28 Ene 2021 03:31
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 :friends:

Exampe
HIDE: ON
Hidebb Message Hidden Description


Image
Imagen
great example by Dripo.. good start in 2021...
Thank you my friend.. cheers..
usamakey escribió:
28 Ene 2021 15:32



Imagen


hi Telco
here your example :pc:



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...
Imagen
@Dripo is there a way to stay the shadow while in a flat mode? Thanks
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..

Imagen

Imagen


is there anyway to fixed that? Thanks dripo for your help..
sendai escribió:
29 Ene 2021 03:23
hi usamakey thanks but your share file is not helping anyone here.
Thanks anyway...
glad I wasn't helpful

sendai escribió:
29 Ene 2021 03:23
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
thanks usamakey i know you are knowledgeble programmer. Take care always..
is there anyway to fixed that? Thanks dripo for your help..



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

Imagen
dripo i already send you a private message.. please check thanks..
sendai escribió:
30 Ene 2021 02:37
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())
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
thanks