Changeset 29 for trunk/Forms
- Timestamp:
- Dec 22, 2016, 9:46:17 PM (8 years ago)
- Location:
- trunk/Forms
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r28 r29 129 129 TempBitmap.SetSize(View.SrcRect.Right - View.SrcRect.Left, 130 130 View.SrcRect.Bottom - View.SrcRect.Top); 131 TempBitmap.BeginUpdate(True);131 //TempBitmap.BeginUpdate(True); 132 132 TempBitmap.Canvas.Brush.Color := clBlack; 133 133 TempBitmap.Canvas.FillRect(0, 0, TempBitmap.Width, TempBitmap.Height); 134 134 View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height); 135 Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);135 //Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect); 136 136 //Bitmap.PaintToBitmap(TempBitmap, View.SrcRect); 137 TempBitmap.EndUpdate(False);137 //TempBitmap.EndUpdate(False); 138 138 PaintBox1.Canvas.StretchDraw(View.DestRect, TempBitmap); 139 139 //PaintBox1.Canvas.Draw(0, 0, TempBitmap); -
trunk/Forms/UFormNew.pas
r28 r29 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin, 9 StdCtrls, ActnList, UFGraphics ;9 StdCtrls, ActnList, UFGraphics, URegistry; 10 10 11 11 type … … 32 32 { private declarations } 33 33 public 34 { public declarations }35 34 end; 36 35 … … 71 70 ComboBoxColorFormat.ItemIndex := 0; 72 71 72 if ComboBoxColorFormat.Items.IndexOf(Core.LastColorFormat) <> -1 then 73 ComboBoxColorFormat.ItemIndex := ComboBoxColorFormat.Items.IndexOf(Core.LastColorFormat); 74 73 75 // Default 74 76 SpinEditWidth.Value := 200; … … 79 81 procedure TFormNew.FormClose(Sender: TObject; var CloseAction: TCloseAction); 80 82 begin 83 Core.LastColorFormat := ComboBoxColorFormat.Items[ComboBoxColorFormat.ItemIndex]; 81 84 Core.PersistentForm1.Save(Self); 82 85 end;
Note:
See TracChangeset
for help on using the changeset viewer.