pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Define initial control size by GetControlClassDefaultSize. New icons in PrintPreview dialog. Consistent 3D look of TVpPrintPreview.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8469 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-10 20:38:31 +00:00
parent 770f452ecf
commit d2fe2df1e7
58 changed files with 247 additions and 454 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
components/tvplanit/source/vpedfmtlst.pas
View File

@ -73,10 +73,10 @@ type
LblElements: TLabel;
lbElements: TListBox;
lbFormats: TListBox;
OpenDialog1: TOpenDialog;
OpenDialog: TOpenDialog;
ButtonPanel: TPanel;
PrintPreview: TVpPrintPreview;
SaveDialog1: TSaveDialog;
SaveDialog: TSaveDialog;
btnOk: TButton;
LblPrintOrder: TLabel;
procedure btnDeleteElementClick(Sender: TObject);
@ -158,10 +158,14 @@ uses
{$ENDIF}
{TfrmPrnFormat}
procedure TfrmPrnFormat.FormCreate(Sender: TObject);
begin
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName);
LoadGlyphFromRCDATA(btnMoveElementUp.Glyph, 'VpUpArrow', -1, 150, 200);
LoadGlyphFromRCDATA(btnMoveElementDn.Glyph, 'VpDownArrow', -1, 150, 200);
OpenDialog.InitialDir := ExtractFilePath(Application.ExeName);
SaveDialog.InitialDir := ExtractFilePath(Application.ExeName);
IsDirty := False;
FormatFileName := UnnamedFile;
@ -170,13 +174,13 @@ begin
SetCaptions;
end;
{=====}
procedure TfrmPrnFormat.EnableMoveButtons;
begin
btnMoveElementUp.Enabled := lbElements.ItemIndex > 0;
btnMoveElementDn.Enabled := (lbElements.ItemIndex > -1) and (lbElements.ItemIndex < lbElements.Items.Count - 1);
end;
{=====}
procedure TfrmPrnFormat.FormShow(Sender: TObject);
begin
PositionControls;
@ -193,7 +197,7 @@ begin
btnNewFormat.Enabled := True;
lbFormats.SetFocus;
end;
{=====}
procedure TfrmPrnFormat.btnDeleteElementClick(Sender: TObject);
var
Format: TVpPrintFormatItem;
@ -216,7 +220,7 @@ begin
end;
end;
end;
{=====}
procedure TfrmPrnFormat.btnDeleteFormatClick(Sender: TObject);
var
Prn: TVpPrinter;
@ -231,17 +235,17 @@ begin
IsDirty := True;
UpdatePreview;
end;
{=====}
procedure TfrmPrnFormat.btnEditElementClick(Sender: TObject);
begin
DoEditElement;
end;
{=====}
procedure TfrmPrnFormat.btnEditFormatClick(Sender: TObject);
begin
DoEditFormat;
end;
{=====}
procedure TfrmPrnFormat.btnLoadFileClick(Sender: TObject);
var
Prn: TVpPrinter;
@ -256,8 +260,8 @@ begin
end;
end;
if OpenDialog1.Execute then begin
FormatFileName := OpenDialog1.FileName;
if OpenDialog.Execute then begin
FormatFileName := OpenDialog.FileName;
lbFormats.Items.Clear;
Prn := ControlLink.Printer;
Prn.LoadFromFile(FormatFileName, False);
@ -265,7 +269,7 @@ begin
UpdateCaption;
end;
end;
{=====}
procedure TfrmPrnFormat.btnMoveElementDnClick(Sender: TObject);
var
E: TVpPrintFormatElementItem;
@ -276,7 +280,7 @@ begin
lbElements.Items.Move(lbElements.ItemIndex, lbElements.ItemIndex + 1);
end;
end;
{=====}
procedure TfrmPrnFormat.btnMoveElementUpClick(Sender: TObject);
var
E : TVpPrintFormatElementItem;
@ -287,12 +291,12 @@ begin
lbElements.Items.Move(lbElements.ItemIndex, lbElements.ItemIndex - 1);
end;
end;
{=====}
procedure TfrmPrnFormat.btnNewElementClick(Sender: TObject);
begin
DoNewElement;
end;
{=====}
procedure TfrmPrnFormat.btnNewFormatClick(Sender: TObject);
var
NewFormatIdx: Integer;
@ -310,7 +314,7 @@ begin
Break;
end;
end;
{=====}
procedure TfrmPrnFormat.btnNewFileClick(Sender: TObject);
var
Rslt: Integer;
@ -332,17 +336,17 @@ begin
else
DoNewFile;
end;
{=====}
procedure TfrmPrnFormat.btnOkClick(Sender: TObject);
begin
ModalResult := mrOk;
end;
{=====}
procedure TfrmPrnFormat.btnSaveFileClick(Sender: TObject);
begin
DoSave;
end;
{=====}
function TfrmPrnFormat.DirtyPrompt: Integer;
var
msg: String;
@ -353,7 +357,7 @@ begin
msg := Format(RSSaveFormatChangesToFilename, [FormatFileName]);
Result := MessageDlg(msg, mtConfirmation, [mbYes, mbNo, mbCancel], 0);
end;
{=====}
procedure TfrmPrnFormat.DoEditElement;
var
E: TVpPrintFormatElementItem;
@ -375,7 +379,7 @@ begin
DoNewElement;
end;
end;
{=====}
procedure TfrmPrnFormat.DoEditFormat;
var
AFormat: TVpPrintFormatItem;
@ -395,7 +399,7 @@ begin
DoNewFormat;
end;
end;
{=====}
procedure TfrmPrnFormat.DoNewElement;
var
Format: TVpPrintFormatItem;
@ -438,7 +442,7 @@ begin
frmEditElement.Free;
end;
{=====}
procedure TfrmPrnFormat.DoNewFile;
var
Prn: TVpPrinter;
@ -454,7 +458,7 @@ begin
btnNewFormat.Enabled := True;
EnableElementButtons(False);
end;
{=====}
function TfrmPrnFormat.DoNewFormat: Integer;
var
AFormat: TVpPrintFormatItem;
@ -498,38 +502,36 @@ begin
frmEditFormat.Free;
end;
{=====}
procedure TfrmPrnFormat.DoSave;
begin
if FormatFileName <> UnnamedFile then
SaveDialog1.FileName := FormatFileName
SaveDialog.FileName := FormatFileName
else
SaveDialog1.FileName := 'Unnamed.xml';
if SaveDialog1.Execute then begin
FormatFileName := SaveDialog1.FileName;
SaveDialog.FileName := 'Unnamed.xml';
if SaveDialog.Execute then begin
FormatFileName := SaveDialog.FileName;
ControlLink.Printer.SaveToFile(FormatFileName);
IsDirty := False;
UpdateCaption;
end;
end;
{=====}
procedure TfrmPrnFormat.EnableElementButtons(Enable: Boolean);
begin
btnNewElement.Enabled := Enable;
btnEditElement.Enabled := Enable;
btnDeleteElement.Enabled := Enable;
// btnMoveElementUp.Enabled := Enable;
// btnMoveElementDn.Enabled := Enable;
EnableMoveButtons;
end;
{=====}
procedure TfrmPrnFormat.EnableFormatButtons(Enable: Boolean);
begin
btnNewFormat.Enabled := Enable;
btnEditFormat.Enabled := Enable;
btnDeleteFormat.Enabled := Enable;
end;
{=====}
function TfrmPrnFormat.Execute: Boolean;
begin
if not Assigned (ControlLink) then
@ -537,7 +539,7 @@ begin
Result := ShowModal = mrOk;
end;
{=====}
procedure TfrmPrnFormat.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
var
@ -562,12 +564,12 @@ begin
end else
CanClose := True;
end;
{=====}
function TfrmPrnFormat.GetControlLink: TVpControlLink;
begin
Result := FControlLink;
end;
{=====}
procedure TfrmPrnFormat.lbFormatsClick(Sender: TObject);
var
E: TVpPrintFormatElementItem;
@ -598,12 +600,12 @@ begin
EnableFormatButtons(True);
EnableMoveButtons;
end;
{=====}
procedure TfrmPrnFormat.lbElementsClick(Sender: TObject);
begin
EnableElementButtons(True);
end;
{=====}
procedure TfrmPrnFormat.lbElementsMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
@ -612,7 +614,7 @@ begin
LastY := Y;
DragItem := (Sender as TListBox).ItemAtPos(Point(LastX, LastY), True);
end;
{=====}
procedure TfrmPrnFormat.lbElementsDragDrop(Sender, Source: TObject; X, Y: Integer);
var
lb: TListBox;
@ -627,7 +629,7 @@ begin
lb.ItemIndex := Dest;
EnableMoveButtons;
end;
{=====}
procedure TfrmPrnFormat.lbElementsDragOver(Sender, Source: TObject; X,Y: Integer;
State: TDragState; var Accept: Boolean);
var
@ -693,19 +695,12 @@ begin
LblPrintOrder.Width
]);
btnNewFormat.AutoSize := false;
btnEditFormat.AutoSize := false;
btnDeleteFormat.AutoSize := false;
btnNewElement.AutoSize := false;
btnEditElement.AutoSize := false;
btnDeleteElement.AutoSize := false;
btnNewFormat.Width := w;
btnEditFormat.Width := w;
btnDeleteFormat.Width := w;
btnNewElement.Width := w;
btnEditElement.Width := w;
btnDeleteElement.Width := w;
btnNewFormat.Constraints.MinWidth := w;
btnEditFormat.Constraints.MinWidth := w;
btnDeleteFormat.Constraints.MinWidth := w;
btnNewElement.Constraints.MinWidth := w;
btnEditElement.Constraints.MinWidth := w;
btnDeleteElement.Constraints.MinWidth := w;
if LblPrintOrder.Top < BottomOf(btnDeleteElement) + 16 then
Height := Height + BottomOf(btnDeleteElement) + 16 - LblPrintOrder.Top;
@ -715,7 +710,8 @@ procedure TfrmPrnFormat.SetDrawingStyle(const v: TVpDrawingStyle);
begin
FDrawingStyle := v;
if FDrawingStyle = dsNoBorder then
PrintPreview.BorderStyle := bsNone else
PrintPreview.BorderStyle := bsNone
else
PrintPreview.BorderStyle := bsSingle;
PrintPreview.DrawingStyle := FDrawingStyle;
end;
@ -728,12 +724,12 @@ begin
FControlLink.Printer.DefaultXMLFileName := v;
end;
end;
{=====}
procedure TfrmPrnFormat.UpdateCaption;
begin
Caption := Format(FileCaption, [FormatFileName]);
end;
{=====}
procedure TfrmPrnFormat.UpdateFormats;
var
i: Integer;
@ -766,7 +762,7 @@ begin
EnableMoveButtons;
end;
{=====}
procedure TfrmPrnFormat.UpdatePreview;
var
Prn: TVpPrinter;
@ -783,8 +779,6 @@ begin
EnableMoveButtons;
RebuildPreview;
end;
{=====}
end.