diff options
Diffstat (limited to 'unit1.lfm')
-rw-r--r-- | unit1.lfm | 165 |
1 files changed, 165 insertions, 0 deletions
diff --git a/unit1.lfm b/unit1.lfm new file mode 100644 index 0000000..a5e7184 --- /dev/null +++ b/unit1.lfm @@ -0,0 +1,165 @@ +object Form1: TForm1 + Left = 93 + Height = 551 + Top = 315 + Width = 1225 + Caption = 'Form1' + ClientHeight = 551 + ClientWidth = 1225 + Color = clBtnFace + DesignTimePPI = 107 + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + OnActivate = FormActivate + OnCreate = FormCreate + OnDestroy = FormDestroy + OnResize = FormResize + LCLVersion = '2.0.12.0' + object Image1: TImage + Left = 276 + Height = 438 + Top = 45 + Width = 465 + end + object Image2: TImage + Left = 740 + Height = 438 + Top = 45 + Width = 465 + end + object Label1: TLabel + Left = 9 + Height = 13 + Top = 7 + Width = 48 + Caption = 'Drehen:' + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + ParentColor = False + ParentFont = False + end + object Image3: TImage + Tag = -1 + Left = 0 + Height = 331 + Top = 152 + Width = 278 + OnMouseDown = Image3MouseDown + OnMouseMove = Image3MouseMove + OnMouseUp = Image3MouseUp + end + object RadioGroup1: TRadioGroup + Left = 0 + Height = 55 + Top = 36 + Width = 206 + AutoFill = True + Caption = 'Körper' + ChildSizing.LeftRightSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 1 + ClientHeight = 38 + ClientWidth = 202 + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + ItemIndex = 0 + Items.Strings = ( + 'Deltoidalhexakontaederstern' + 'Pentagonhexakontaederstern' + ) + OnClick = RadioGroup1Click + ParentFont = False + TabOrder = 0 + end + object CheckBox1: TCheckBox + Left = 62 + Height = 21 + Top = 6 + Width = 98 + Caption = 'automatisch' + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + OnClick = CheckBox1Click + ParentFont = False + TabOrder = 1 + end + object Button1: TButton + Left = 9 + Height = 28 + Top = 107 + Width = 84 + Caption = 'Spitze' + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + OnClick = Button1Click + ParentFont = False + TabOrder = 2 + end + object Button2: TButton + Left = 98 + Height = 28 + Top = 107 + Width = 99 + Caption = 'Determinante' + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + OnClick = Button2Click + ParentFont = False + TabOrder = 3 + end + object Button3: TButton + Left = 169 + Height = 28 + Top = 0 + Width = 126 + Caption = 'Spitzen entfernen' + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + OnClick = Button3Click + ParentFont = False + TabOrder = 4 + end + object ProgressBar1: TProgressBar + Left = 303 + Height = 18 + Top = 4 + Width = 233 + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + ParentFont = False + Smooth = True + TabOrder = 5 + Visible = False + end + object Button4: TButton + Left = 205 + Height = 28 + Top = 107 + Width = 64 + Caption = 'Test' + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'MS Sans Serif' + OnClick = Button4Click + ParentFont = False + TabOrder = 6 + end + object ZeichenTimer: TTimer + Enabled = False + Interval = 50 + OnTimer = ZeichenTimerTimer + Top = 27 + end +end |