يك مشكل پيش پا افتاده در تابع ReplaceImage

[Amit13]

سلام دوستان

چجوري ميتونم با دستور ReplaceImage يك عكس رو لود كنم ولي نسبت طول و عرضش بهم نخوره؟؟؟


اگه از RestoreImage استفاده كنم عكس از border ام بيرون ميزنه.عكس اوليم رو به نسبت خودش كوچيك كردم ولي نسبت عكس هايي كه لود ميشن با هم فرق داره.

عجيبه.هيچ وقت اين مسئله رو جدي نگرفته بودم!!!!!!!!!!
ممنون

 

[Amit13]

من اينو نوشتم ولي از بس اسكريپ هاي همروند داخل پروژم زياده اسلو موشن كار ميكنه.خوب به خاطر حلقه است ديگه. لطفا شما يه راه بگيد عكسه هم حسابي نا فرم كوچيك شده

Hide("Bitmap")
ReplaceImage("Bitmap","<Embedded>\alonewait_lcslsdho.jpg")
RestoreImage("Bitmap")
ImageWidth=ImageWidth(Bitmap)
ImageHeight=ImageHeight(Bitmap)
scaleS=0
For i=1 To Infinity
  scaleS=scaleS+i
  ImageWidth=ImageWidth/(2-(scaleS/100))
  ImageHeight=ImageHeight/(2-(scaleS/100))
  If (ImageWidth<210  & ImageHeight<165) Then
    ResizeImage("Bitmap","ImageWidth,ImageHeight")
    Break()
  End
Next i
Show("Bitmap")

 

[the_king]

سلام دوستان

چجوري ميتونم با دستور ReplaceImage يك عكس رو لود كنم ولي نسبت طول و عرضش بهم نخوره؟؟؟


اگه از RestoreImage استفاده كنم عكس از border ام بيرون ميزنه.عكس اوليم رو به نسبت خودش كوچيك كردم ولي نسبت عكس هايي كه لود ميشن با هم فرق داره.

عجيبه.هيچ وقت اين مسئله رو جدي نگرفته بودم!!!!!!!!!!
ممنون

ابعاد کادر تصویر (که قراره از اون بیرون نزنه) رو در w و h مشخص کنید.
مسیر فایل تصویر رو در filename مشخص کنید.
اسم شیء Bitmap مورد نظرتون رو در $target بنویسید.

w = 420
h = 370
filename$ = 'C:\MyFolder\My Image.jpg'
target$ = 'Bitmap'

و سپس کد زیر رو اجرا کنید :

obj$ = 'TempImage'
CreateHotSpot("obj$","obj$,0,0")
Hide("obj$")
ReplaceImage("obj$","filename$")
RestoreImage("obj$")
ww = ImageWidth(obj$)
hh = ImageHeight(obj$)
DeleteObject("obj$")
factorX = w / ww
factorY = h / hh
If (factorX < factorY) Then
  ww = ww * factorX
  hh = hh * factorX
Else
  ww = ww * factorY
  hh = hh * factorY
End
x = ObjectX(target$)
y = ObjectY(target$)
MoveObject("target$","x,y,ww,hh")
ReplaceImage("target$","filename$")