2,8 → 2,10 |
|
interface |
|
// TODO: Dialog sizeable |
|
uses |
Forms, StdCtrls, ExtCtrls, Controls, Graphics, Classes, Dialogs; |
Forms, StdCtrls, ExtCtrls, Controls, Graphics, Classes; |
|
type |
TErrorForm = class(TForm) |
11,10 → 13,6 |
ErrorImg: TImage; |
ErrorLabel: TLabel; |
OKBtn: TButton; |
SaveBtn: TButton; |
SaveDialog: TSaveDialog; |
procedure FormResize(Sender: TObject); |
procedure SaveBtnClick(Sender: TObject); |
public |
function ErrorsAvailable: boolean; |
procedure NewError(Filename: string); |
32,15 → 30,6 |
result := ErrorList.Items.Count > 0; |
end; |
|
procedure TErrorForm.FormResize(Sender: TObject); |
begin |
ErrorList.Width := ClientWidth - ErrorList.Left - ErrorImg.Left; |
ErrorList.Height := ClientHeight - ErrorList.Top - (2 * ErrorImg.Left + OkBtn.Height); |
OkBtn.Top := ErrorList.Top + ErrorList.Height + ErrorImg.Left; |
OkBtn.Left := ErrorList.Left + ErrorList.Width - OkBtn.Width; |
SaveBtn.Top := OkBtn.Top; |
end; |
|
procedure TErrorForm.NewError(Filename: string); |
begin |
// In future: Also add reason into list? |
47,12 → 36,4 |
ErrorList.Items.Add(Filename); |
end; |
|
procedure TErrorForm.SaveBtnClick(Sender: TObject); |
begin |
if SaveDialog.Execute then |
begin |
ErrorList.Items.SaveToFile(SaveDialog.FileName); |
end; |
end; |
|
end. |