Am gasit pe http://www.universalthread.com un programel cu care se poate seta marginea ferestrelor (formurilor) (Sa nu arate neaparat dreptunghiulare). Nestiind unde sa-l pun, l-am pus aici deoarece este din categoria Windows API.

In the Init of a Form:

#DEFINE C_ALTERNATE 1
#DEFINE C_WINDING 2

declare integer CreatePolygonRgn in gdi32 ;
   string@ ppoints, integer npoints, integer nfillmode
declare integer SetWindowRgn in user32 ;
   integer hWnd, integer hRgn , integer bRedraw

cPoints = num2dword(0)+num2dword(0);
   +num2dword(THIS.Width+(sysmetric(13)*2));
   +num2dword(THIS.Height+sysmetric(9)+(sysmetric(12)*2));
   +num2dword(0)+num2dword(THIS.Height+sysmetric(9)+(sysmetric(12)*2))

set library to foxtools.fll

lnw = _WFindTitl(THIS.Caption)
lnh = _WhToHWnd(lnw)
lnr = CreatePolygonRgn(@cPoints, 3, C_WINDING)

SetWindowRgn(lnh, lnr, 1)
return

External function:
function Num2Dword
lparameter tnNum
local c0,c1,c2,c3
lcresult = chr(0)+chr(0)+chr(0)+chr(0)
if tnNum < (2^31 - 1) then
   c3 = chr(int(tnNum/(256^3)))
   tnNum = mod(tnNum,256^3)
   c2 = chr(int(tnNum/(256^2)))
   tnNum = mod(tnNum,256^2)
   c1 = chr(int(tnNum/256))
   c0 = chr(mod(tnNum,256))
   lcresult = c0+c1+c2+c3
else
   * not a valid number for a DWORD value
endif
return lcresult

Cred ca este frumos sa trec calea completa de unde l-am luat (http://www.universalthread.com/wconnect/wc.dll?LevelExtreme~2,84,18,12732).

Pai... in windows exista un singur user32.dll, si acolo unde e, acolo trebuie sa stea. Nu umbla la el ca-ti busesti windowsul. Pune-l la loc.

Cat despre functie, am verificat-o adineauri si merge perfect. Ia zi tu ce problema ai si ce intelegi prin "nu merge". Ce naiba, parca esti userii mei, care ma suna si zic "programul nu merge", de parca eu am un glob de cristal in care ma uit si stiu ce se intampla acolo. Credeam ca un programator stie sa dea un astfel de raport. Ce eroare e, unde apare, in ce circumstante, s.a.m.d.

Ca atare, mana pe condei si zi ce nu merge.

Grig iti descriu exact ce pasi am facut.

Am downloadat si copiat in windows\system biblioteca user32.dll apoi in directorul in care se afla form-ul am copiat foxtools.fll

am creat un prg ce contine:

External function:
function Num2Dword
lparameter tnNum
local c0,c1,c2,c3
lcresult = chr(0)+chr(0)+chr(0)+chr(0)
if tnNum < (2^31 - 1) then
   c3 = chr(int(tnNum/(256^3)))
   tnNum = mod(tnNum,256^3)
   c2 = chr(int(tnNum/(256^2)))
   tnNum = mod(tnNum,256^2)
   c1 = chr(int(tnNum/256))
   c0 = chr(mod(tnNum,256))
   lcresult = c0+c1+c2+c3
else
   * not a valid number for a DWORD value
endif
return lcresult

Si cred ca s-a dus XP-ul, sper ca nu fie asa ca imi e lena sa imi pun imaginea la ora asta.

Cand lansez in executie form-ul primesc eroarea:

The procedure estry point SMapLS_IP_EBP_12 could net be located in the dynamic link library KERNEL32.DLL (eroare de win) iar foxul imi spune:

Cannot load 32-bit DLL ...\user32.dll.

Sper sa fi inteles care e problema mea.

De fapt il poti muta, si il poti si inchide. In coltul din stanga sus se vede o bucata din control box-ul ferestrei.

Functia doar seteaza cat din fereastra sa se vada.

cPoints = num2dword(0)+num2dword(0);
   +num2dword(THIS.Width+(sysmetric(13)*2));
   +num2dword(THIS.Height+sysmetric(9)+(sysmetric(12)*2));
   +num2dword(0)+num2dword(THIS.Height+sysmetric(9)+(sysmetric(12)*2))

Dupa cum vezi, sunt 6 termeni in string-ul ala. Adica coordonatele a 3 puncte. Functia API asteapta un buffer in care sunt coordonatele poligonului. Poligonul se aplica pe fereastra, si ce e in interior se vede, ce nu, nu. Si coordonatele de-acolo sunt 0,0 (coltul din stanga sus), width+2*border,height+titlebar+2*border (coltul din dreapta jos), 0,height+titlebar+2*border (coltul din stanga jos). Poligonul e un triunghi ale carui colturi sunt in punctele specificate.

Ia fa cPoints = num2dword(0)+num2dword(0);
   +num2dword(THIS.Width+(sysmetric(13)*2));
   +num2dword(THIS.Height+sysmetric(9)+(sysmetric(12)*2));
   +num2dword(0)+num2dword(THIS.Height+sysmetric(9)+(sysmetric(12)*2));
   +num2dword(100) + num2dword(100)

sa vezi ce iese.