/
stud_22-365
/
GLXEngine
Обзор
Документация
Войти
/
stud_22-365
/
GLXEngine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
external/Graphics32/Examples/General/Rotate/MainUnit.lfm
59 строк
1 KB
glscene
fixed external
22 янв 2026, 10:40
22 янв 2026, 10:40
9308f18
Код
Авторство
О чём код?
object FormRotateExample: TFormRotateExample Left = 192 Height = 252 Top = 107 Width = 443 HorzScrollBar.Page = 448 VertScrollBar.Page = 278 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Rotate Example' ClientHeight = 252 ClientWidth = 443 Font.Height = -11 Font.Name = 'MS Sans Serif' OnCreate = FormCreate LCLVersion = '0.9.29' object Src: TImage32 Left = 16 Height = 192 Top = 16 Width = 192 Bitmap.DrawMode = dmBlend Bitmap.ResamplerClassName = 'TLinearResampler' BitmapAlign = baCenter Color = clBlack ParentColor = False Scale = 1 ScaleMode = smNormal TabOrder = 0 end object Dst: TImage32 Left = 232 Height = 192 Top = 16 Width = 192 Bitmap.DrawMode = dmBlend Bitmap.ResamplerClassName = 'TNearestResampler' BitmapAlign = baCenter Color = clBlack ParentColor = False Scale = 1 ScaleMode = smNormal TabOrder = 1 end object Angle: TGaugeBar Left = 16 Height = 18 Top = 220 Width = 408 Color = clScrollBar Backgnd = bgPattern Max = 180 Min = -180 ShowHandleGrip = True Style = rbsMac Position = 0 OnChange = AngleChange end end