Changeset 35 for trunk/Forms
- Timestamp:
- May 4, 2018, 12:56:52 PM (7 years ago)
- Location:
- trunk/Forms
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r33 r35 1 1 object FormMain: TFormMain 2 Left = 6 642 Left = 648 3 3 Height = 640 4 Top = 3 824 Top = 323 5 5 Width = 920 6 6 Caption = 'LibrePaint' 7 ClientHeight = 6 087 ClientHeight = 615 8 8 ClientWidth = 920 9 DesignTimePPI = 120 9 10 Menu = MainMenu1 10 11 OnActivate = FormActivate … … 13 14 OnDestroy = FormDestroy 14 15 OnShow = FormShow 15 LCLVersion = '1. 6.0.4'16 LCLVersion = '1.8.2.0' 16 17 object PaintBox1: TPaintBox 17 18 Left = 0 18 Height = 5 5419 Height = 561 19 20 Top = 26 20 21 Width = 920 … … 32 33 Left = 0 33 34 Height = 28 34 Top = 58 035 Top = 587 35 36 Width = 920 36 37 Panels = < 37 38 item 38 Width = 20039 Width = 300 39 40 end 40 41 item -
trunk/Forms/UFormMain.pas
r33 r35 135 135 StatusBar1.Panels[0].Text := '[' + IntToStr(Pos.X) + ', ' + IntToStr(Pos.Y) + '] Zoom:' + 136 136 FloatToStr(Core.Project.View.Zoom); 137 StatusBar1.Panels[1].Text := 'Src: ' + IntToStr(View.SrcRect.Right - View.SrcRect.Left) + ', ' + 137 StatusBar1.Panels[1].Text := 'Src: ' + IntToStr(View.SrcRect.Left) + ', ' + 138 IntToStr(View.SrcRect.Top) + ', ' + 139 IntToStr(View.SrcRect.Right - View.SrcRect.Left) + ', ' + 138 140 IntToStr(View.SrcRect.Bottom - View.SrcRect.Top); 139 StatusBar1.Panels[2].Text := 'Dst: ' + IntToStr(View.DestRect.Right - View.DestRect.Left) + ', ' + 141 StatusBar1.Panels[2].Text := 'Dst: ' + IntToStr(View.DestRect.Left) + ', ' + 142 IntToStr(View.DestRect.Top) + ', ' + 143 IntToStr(View.DestRect.Right - View.DestRect.Left) + ', ' + 140 144 IntToStr(View.DestRect.Bottom - View.DestRect.Top); 141 145 end; … … 150 154 begin 151 155 with Core.Project do begin 152 TempBitmap.SetSize(View.SrcRect.Right - View.SrcRect.Left, 153 View.SrcRect.Bottom - View.SrcRect.Top); 156 //TempBitmap.SetSize(View.SrcRect.Right - View.SrcRect.Left, 157 // View.SrcRect.Bottom - View.SrcRect.Top); 158 TempBitmap.SetSize(PaintBox1.Width, PaintBox1.Height); 154 159 //TempBitmap.BeginUpdate(True); 155 160 TempBitmap.Canvas.Brush.Color := clBlack; … … 158 163 // Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect); 159 164 // if EnableDraw then 160 Bitmap.PaintToBitmap(TempBitmap, View.SrcRect); 165 Bitmap.PaintToBitmap(TempBitmap, View.SrcRect); 166 //StatusBar1.Panels[0].Text := IntToStr(TempBitmap.Width) + ', ' + IntToStr(TempBitmap.Height); 161 167 //TempBitmap.EndUpdate(False); 162 PaintBox1.Canvas. StretchDraw(View.DestRect, TempBitmap);168 PaintBox1.Canvas.Draw(0, 0, TempBitmap); 163 169 //PaintBox1.Canvas.Draw(0, 0, TempBitmap); 164 170 end;
Note:
See TracChangeset
for help on using the changeset viewer.