MainUnit.lfm 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859
  1. object FormRotateExample: TFormRotateExample
  2. Left = 192
  3. Height = 252
  4. Top = 107
  5. Width = 443
  6. HorzScrollBar.Page = 448
  7. VertScrollBar.Page = 278
  8. BorderIcons = [biSystemMenu, biMinimize]
  9. BorderStyle = bsSingle
  10. Caption = 'Rotate Example'
  11. ClientHeight = 252
  12. ClientWidth = 443
  13. Font.Height = -11
  14. Font.Name = 'MS Sans Serif'
  15. OnCreate = FormCreate
  16. LCLVersion = '0.9.29'
  17. object Src: TImage32
  18. Left = 16
  19. Height = 192
  20. Top = 16
  21. Width = 192
  22. Bitmap.DrawMode = dmBlend
  23. Bitmap.ResamplerClassName = 'TLinearResampler'
  24. BitmapAlign = baCenter
  25. Color = clBlack
  26. ParentColor = False
  27. Scale = 1
  28. ScaleMode = smNormal
  29. TabOrder = 0
  30. end
  31. object Dst: TImage32
  32. Left = 232
  33. Height = 192
  34. Top = 16
  35. Width = 192
  36. Bitmap.DrawMode = dmBlend
  37. Bitmap.ResamplerClassName = 'TNearestResampler'
  38. BitmapAlign = baCenter
  39. Color = clBlack
  40. ParentColor = False
  41. Scale = 1
  42. ScaleMode = smNormal
  43. TabOrder = 1
  44. end
  45. object Angle: TGaugeBar
  46. Left = 16
  47. Height = 18
  48. Top = 220
  49. Width = 408
  50. Color = clScrollBar
  51. Backgnd = bgPattern
  52. Max = 180
  53. Min = -180
  54. ShowHandleGrip = True
  55. Style = rbsMac
  56. Position = 0
  57. OnChange = AngleChange
  58. end
  59. end