Rotate4_Image

Синтаксис

Function Rotate4_Image(ByVal soursehBmp As HBITMAP, ByVal angleflag As Integer) As HBITMAP

Описание

Позволяет поворачивать изображения на 90,180,270,360 градусов. Функция возвращает новый битмап с повернутой картинкой

Параметры

soursehBmp - хендл изображения

angleflag - флаг , от которого зависит поворот (от 1 до 4 , соответственно 90-180-270-360 )

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HBITMAP hbmp=Create_Image(100,100),hbmp1
Dim As long event
ImageStartDraw(hbmp)
  FillRectDraw(10,10,&hf0f0f0)
  LineDraw( 10,10,60,60,3,255)
StopDraw
OpenWindow("",10,10,300,190)
ImageGadget(1,30,30,100,100,hbmp)
ButtonGadget(2,180,40,60,60,"Flip")
Do
  event=WaitEvent()
  Select Case event
     Case EventClose
        Exit Do
     Case EventGadget
        If EventNumber=2 Then
           hbmp1=hbmp
           hbmp=Rotate4_Image(hbmp1,1)
           SetImageGadget(1,hbmp)
           Free_Image(hbmp1)
        EndIf
  End Select
Loop
Free_Image(hbmp)

Результат

Created with the Personal Edition of HelpNDoc: Easily create HTML Help documents