You've already forked lazarus-ccr
382 lines
13 KiB
ObjectPascal
382 lines
13 KiB
ObjectPascal
|
unit MCItemUnit;
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||
|
|
StdCtrls, ExtCtrls, ExtDlgs, outputunit;
|
||
|
|
|
||
|
|
type
|
||
|
|
|
||
|
|
{ TMCItemForm }
|
||
|
|
|
||
|
|
TMCItemForm = class(TForm)
|
||
|
|
AnswerEdit: TEdit;
|
||
|
|
AnswerLabel: TLabel;
|
||
|
|
ChoiceAEdit: TEdit;
|
||
|
|
ChoiceDEdit: TEdit;
|
||
|
|
ChoiceEEdit: TEdit;
|
||
|
|
ChoiceCEdit: TEdit;
|
||
|
|
ChoiceBEdit: TEdit;
|
||
|
|
CodeBrowseBtn: TButton;
|
||
|
|
NoChoicesEdit: TEdit;
|
||
|
|
Image1: TImage;
|
||
|
|
ItemCodeLabel: TLabel;
|
||
|
|
ItemSaveBtn: TButton;
|
||
|
|
ItemStemEdit: TEdit;
|
||
|
|
ItemStemLabel: TLabel;
|
||
|
|
jpegBrowseBtn: TButton;
|
||
|
|
jpeglabel: TLabel;
|
||
|
|
jpegnameEdit: TEdit;
|
||
|
|
Label1: TLabel;
|
||
|
|
Label2: TLabel;
|
||
|
|
Label3: TLabel;
|
||
|
|
Label4: TLabel;
|
||
|
|
Label5: TLabel;
|
||
|
|
Label6: TLabel;
|
||
|
|
Label7: TLabel;
|
||
|
|
MajorCodeEdit: TEdit;
|
||
|
|
Memo1: TMemo;
|
||
|
|
MinorCodeEdit: TEdit;
|
||
|
|
MinorCodeLabel: TLabel;
|
||
|
|
OpenPictureDialog1: TOpenPictureDialog;
|
||
|
|
PreviousBtn: TButton;
|
||
|
|
ReturnBtn: TButton;
|
||
|
|
SelectImageBtn: TButton;
|
||
|
|
ShowNextBtn: TButton;
|
||
|
|
StartNewBtn: TButton;
|
||
|
|
ItemNoEdit: TEdit;
|
||
|
|
TFItemNoLabel: TLabel;
|
||
|
|
procedure CodeBrowseBtnClick(Sender: TObject);
|
||
|
|
procedure FormShow(Sender: TObject);
|
||
|
|
procedure ItemSaveBtnClick(Sender: TObject);
|
||
|
|
procedure jpegBrowseBtnClick(Sender: TObject);
|
||
|
|
procedure NoChoicesEditChange(Sender: TObject);
|
||
|
|
procedure PreviousBtnClick(Sender: TObject);
|
||
|
|
procedure ReturnBtnClick(Sender: TObject);
|
||
|
|
procedure SelectImageBtnClick(Sender: TObject);
|
||
|
|
procedure ShowNextBtnClick(Sender: TObject);
|
||
|
|
procedure StartNewBtnClick(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ private declarations }
|
||
|
|
public
|
||
|
|
{ public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
MCItemForm: TMCItemForm;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
uses ItemBankingUnit;
|
||
|
|
|
||
|
|
{ TMCItemForm }
|
||
|
|
|
||
|
|
procedure TMCItemForm.jpegBrowseBtnClick(Sender: TObject);
|
||
|
|
VAR
|
||
|
|
JPEG : TJPEGImage;
|
||
|
|
begin
|
||
|
|
OpenPictureDialog1.Options := OpenPictureDialog1.Options+[ofFileMustExist];
|
||
|
|
if not OpenPictureDialog1.Execute then exit;
|
||
|
|
try
|
||
|
|
JPEG := TJPEGImage.Create;
|
||
|
|
try
|
||
|
|
JPEG.LoadFromFile(OpenPictureDialog1.FileName);
|
||
|
|
Image1.Picture.Assign(JPEG);
|
||
|
|
finally
|
||
|
|
JPEG.Free;
|
||
|
|
end;
|
||
|
|
except
|
||
|
|
on E: Exception do begin
|
||
|
|
MessageDlg('Error','Error: '+E.Message,mtError,[mbOk],0);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
Image1.Proportional := true;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TMCItemForm.NoChoicesEditChange(Sender: TObject);
|
||
|
|
var
|
||
|
|
nochoices : integer;
|
||
|
|
begin
|
||
|
|
nochoices := StrToInt(NoChoicesEdit.Text);
|
||
|
|
if nochoices > 0 then ChoiceAEdit.Visible := true else ChoiceAEdit.Visible := false;
|
||
|
|
if nochoices > 1 then ChoiceBEdit.Visible := true else ChoiceBEdit.Visible := false;
|
||
|
|
if nochoices > 2 then ChoiceCEdit.Visible := true else ChoiceCEdit.Visible := false;
|
||
|
|
if nochoices > 3 then ChoiceDEdit.Visible := true else ChoiceDEdit.Visible := false;
|
||
|
|
if nochoices > 4 then ChoiceEEdit.Visible := true else ChoiceEEdit.Visible := false;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TMCItemForm.PreviousBtnClick(Sender: TObject);
|
||
|
|
Var
|
||
|
|
response : string;
|
||
|
|
itemno : integer;
|
||
|
|
JPEG : TJPEGImage;
|
||
|
|
nochoices : integer;
|
||
|
|
begin
|
||
|
|
response := InputBox('Save current item?','Save','Y');
|
||
|
|
if response = 'Y' then ItemSaveBtnClick(self);
|
||
|
|
Image1.Canvas.Clear;
|
||
|
|
ChoiceAEdit.Text := '';
|
||
|
|
ChoiceBEdit.Text := '';
|
||
|
|
ChoiceCEdit.Text := '';
|
||
|
|
ChoiceDEdit.Text := '';
|
||
|
|
ChoiceEEdit.Text := '';
|
||
|
|
response := InputBox('Code Number:','Number:','1');
|
||
|
|
itemno := StrToInt(response);
|
||
|
|
if itemno <= ItemBankFrm.BankInfo.NMCItems then
|
||
|
|
begin
|
||
|
|
nochoices := ItemBankFrm.MCItemInfo[itemno].NoChoices;
|
||
|
|
ItemNoEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].ItemNumber);
|
||
|
|
MajorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].majorcode);
|
||
|
|
MinorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].minorcode);
|
||
|
|
NoChoicesEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].NoChoices);
|
||
|
|
ItemStemEdit.Text := ItemBankFrm.MCItemInfo[itemno].ItemStem ;
|
||
|
|
if nochoices > 0 then ChoiceAEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceOne;
|
||
|
|
if nochoices > 1 then ChoiceBEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceTwo;
|
||
|
|
if nochoices > 2 then ChoiceCEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceThree;
|
||
|
|
if nochoices > 3 then ChoiceDEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceFour;
|
||
|
|
if nochoices > 4 then ChoiceEEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceFive;
|
||
|
|
AnswerEdit.Text := ItemBankFrm.MCItemInfo[itemno].CorrectChoice;
|
||
|
|
jpegnameEdit.Text := ItemBankFrm.MCItemInfo[itemno].PicName;
|
||
|
|
if jpegnameEdit.Text <> 'none' then
|
||
|
|
begin
|
||
|
|
JPEG := TJPEGImage.Create;
|
||
|
|
try
|
||
|
|
JPEG.LoadFromFile(jpegnameEdit.Text);
|
||
|
|
Image1.Picture.Assign(JPEG);
|
||
|
|
finally
|
||
|
|
JPEG.Free;
|
||
|
|
Image1.Proportional := true;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TMCItemForm.ReturnBtnClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
MCItemForm.Hide;
|
||
|
|
Close;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TMCItemForm.ItemSaveBtnClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
currentno : integer;
|
||
|
|
count : integer;
|
||
|
|
nochoices : integer;
|
||
|
|
begin
|
||
|
|
count := ItemBankFrm.BankInfo.NMCItems;
|
||
|
|
currentno := StrToInt(ItemNoEdit.Text);
|
||
|
|
if currentno > count then
|
||
|
|
begin
|
||
|
|
ItemBankFrm.BankInfo.NMCItems := currentno;
|
||
|
|
ItemBankFrm.NMCItemsText.Text := IntToStr(currentno);
|
||
|
|
end;
|
||
|
|
nochoices := StrToInt(NoChoicesEdit.Text);
|
||
|
|
ItemBankFrm.MCItemInfo[currentno].ItemNumber := currentno;
|
||
|
|
ItemBankFrm.MCItemInfo[currentno].majorcode := StrToInt(MajorCodeEdit.Text);
|
||
|
|
ItemBankFrm.MCItemInfo[currentno].minorcode := StrToInt(MinorCodeEdit.Text);
|
||
|
|
ItemBankFrm.MCItemInfo[currentno].NoChoices := nochoices;
|
||
|
|
ItemBankFrm.MCItemInfo[currentno].ItemStem := ItemStemEdit.Text;
|
||
|
|
if nochoices > 0 then ItemBankFrm.MCItemInfo[currentno].ChoiceOne := ChoiceAEdit.Text;
|
||
|
|
if nochoices > 1 then ItemBankFrm.MCItemInfo[currentno].ChoiceTwo := ChoiceBEdit.Text;
|
||
|
|
if nochoices > 2 then ItemBankFrm.MCItemInfo[currentno].ChoiceThree := ChoiceCEdit.Text;
|
||
|
|
if nochoices > 3 then ItemBankFrm.MCItemInfo[currentno].ChoiceFour := ChoiceDEdit.Text;
|
||
|
|
if nochoices > 4 then ItemBankFrm.MCItemInfo[currentno].ChoiceFive := ChoiceEEdit.Text;
|
||
|
|
ItemBankFrm.MCItemInfo[currentno].CorrectChoice := AnswerEdit.Text[1];
|
||
|
|
ItemBankFrm.MCItemInfo[currentno].PicName := jpegnameEdit.Text;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TMCItemForm.FormShow(Sender: TObject);
|
||
|
|
Var
|
||
|
|
JPEG : TJPEGImage;
|
||
|
|
nochoices : integer;
|
||
|
|
begin
|
||
|
|
ChoiceAEdit.Text := '';
|
||
|
|
ChoiceBEdit.Text := '';
|
||
|
|
ChoiceCEdit.Text := '';
|
||
|
|
ChoiceDEdit.Text := '';
|
||
|
|
ChoiceEEdit.Text := '';
|
||
|
|
Image1.Canvas.Clear;
|
||
|
|
if ItemBankFrm.BankInfo.NMCItems > 0 then
|
||
|
|
begin
|
||
|
|
ItemNoEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[1].ItemNumber);
|
||
|
|
MajorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[1].majorcode) ;
|
||
|
|
MinorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[1].minorcode);
|
||
|
|
nochoices := ItemBankFrm.MCItemInfo[1].NoChoices;
|
||
|
|
NoChoicesEdit.Text := IntToStr(nochoices);
|
||
|
|
ItemStemEdit.Text := ItemBankFrm.MCItemInfo[1].ItemStem;
|
||
|
|
AnswerEdit.Text := ItemBankFrm.MCItemInfo[1].CorrectChoice;
|
||
|
|
if nochoices > 0 then ChoiceAEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceOne;
|
||
|
|
if nochoices > 1 then ChoiceBEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceTwo;
|
||
|
|
if nochoices > 2 then ChoiceCEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceThree;
|
||
|
|
if nochoices > 3 then ChoiceDEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceFour;
|
||
|
|
if nochoices > 4 then ChoiceEEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceFive;
|
||
|
|
jpegnameEdit.Text := ItemBankFrm.MCItemInfo[1].PicName;
|
||
|
|
if jpegnameEdit.Text <> 'none' then
|
||
|
|
begin
|
||
|
|
JPEG := TJPEGImage.Create;
|
||
|
|
try
|
||
|
|
JPEG.LoadFromFile(jpegnameEdit.Text);
|
||
|
|
Image1.Picture.Assign(JPEG);
|
||
|
|
finally
|
||
|
|
JPEG.Free;
|
||
|
|
Image1.Proportional := true;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end else
|
||
|
|
begin
|
||
|
|
ItemNoEdit.Text := '1';
|
||
|
|
MajorCodeEdit.Text := '1';
|
||
|
|
MinorCodeEdit.Text := '0';
|
||
|
|
ItemStemEdit.Text := '';
|
||
|
|
AnswerEdit.Text := '';
|
||
|
|
jpegnameEdit.Text := 'none';
|
||
|
|
Image1.Canvas.Clear;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TMCItemForm.CodeBrowseBtnClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
count : integer;
|
||
|
|
i : integer;
|
||
|
|
outline : string;
|
||
|
|
nochoices : integer;
|
||
|
|
begin
|
||
|
|
OutPutFrm.RichEdit.Clear;
|
||
|
|
count := ItemBankFrm.BankInfo.NMCItems;
|
||
|
|
OutPutFrm.RichEdit.Lines.Add('Current Items');
|
||
|
|
OutPutFrm.RichEdit.Lines.Add('');
|
||
|
|
|
||
|
|
for i := 1 to count do
|
||
|
|
begin
|
||
|
|
ChoiceAEdit.Text := '';
|
||
|
|
ChoiceBEdit.Text := '';
|
||
|
|
ChoiceCEdit.Text := '';
|
||
|
|
ChoiceDEdit.Text := '';
|
||
|
|
ChoiceEEdit.Text := '';
|
||
|
|
nochoices := ItemBankFrm.MCItemInfo[i].NoChoices;
|
||
|
|
outline := format('Item number %3d',[ItemBankFrm.MCItemInfo[i].itemnumber]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
outline := format('Major Code %3d',[ItemBankFrm.MCItemInfo[i].majorcode]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
outline := format('Minor Code %3d',[ItemBankFrm.MCItemInfo[i].minorcode]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
outline := format('No. of Choices %3d',[ItemBankFrm.MCItemInfo[i].NoChoices]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
outline := format('Item Stem %s',[ItemBankFrm.MCItemInfo[i].ItemStem]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
if nochoices > 0 then
|
||
|
|
begin
|
||
|
|
outline := format('Choice A %s',[ItemBankFrm.MCItemInfo[i].ChoiceOne]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
end;
|
||
|
|
if nochoices > 1 then
|
||
|
|
begin
|
||
|
|
outline := format('Choice B %s',[ItemBankFrm.MCItemInfo[i].ChoiceTwo]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
end;
|
||
|
|
if nochoices > 2 then
|
||
|
|
begin
|
||
|
|
outline := format('Choice C %s',[ItemBankFrm.MCItemInfo[i].ChoiceThree]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
end;
|
||
|
|
if nochoices > 3 then
|
||
|
|
begin
|
||
|
|
outline := format('Choice D %s',[ItemBankFrm.MCItemInfo[i].ChoiceFour]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
end;
|
||
|
|
if nochoices > 4 then
|
||
|
|
begin
|
||
|
|
outline := format('Choice E %s',[ItemBankFrm.MCItemInfo[i].ChoiceFive]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
end;
|
||
|
|
outline := format('Correct Choice %s',[ItemBankFrm.MCItemInfo[i].CorrectChoice]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
outline := format('Graphic Image %s',[ItemBankFrm.MCItemInfo[i].PicName]);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||
|
|
OutPutFrm.RichEdit.Lines.Add('');
|
||
|
|
end;
|
||
|
|
OutPutFrm.ShowModal;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TMCItemForm.SelectImageBtnClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
jpegnameEdit.Text := OpenPictureDialog1.FileName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TMCItemForm.ShowNextBtnClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
count : integer;
|
||
|
|
itemno : integer;
|
||
|
|
JPEG : TJPEGImage;
|
||
|
|
nochoices : integer;
|
||
|
|
response : string;
|
||
|
|
begin
|
||
|
|
response := InputBox('Save current item?','Save','Y');
|
||
|
|
if response = 'Y' then ItemSaveBtnClick(self);
|
||
|
|
Image1.Canvas.Clear;
|
||
|
|
itemno := StrToInt(ItemNoEdit.Text) + 1;
|
||
|
|
count := ItemBankFrm.BankInfo.NMCItems;
|
||
|
|
if count <= itemno then
|
||
|
|
begin
|
||
|
|
ChoiceAEdit.Text := '';
|
||
|
|
ChoiceBEdit.Text := '';
|
||
|
|
ChoiceCEdit.Text := '';
|
||
|
|
ChoiceDEdit.Text := '';
|
||
|
|
ChoiceEEdit.Text := '';
|
||
|
|
nochoices := ItemBankFrm.MCItemInfo[itemno].NoChoices;
|
||
|
|
ItemNoEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].ItemNumber);
|
||
|
|
MajorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].majorcode) ;
|
||
|
|
MinorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].minorcode);
|
||
|
|
ItemStemEdit.Text := ItemBankFrm.MCItemInfo[itemno].ItemStem;
|
||
|
|
if nochoices > 0 then ChoiceAEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceOne;
|
||
|
|
if nochoices > 1 then ChoiceBEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceTwo;
|
||
|
|
if nochoices > 2 then ChoiceCEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceThree;
|
||
|
|
if nochoices > 3 then ChoiceDEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceFour;
|
||
|
|
if nochoices > 4 then ChoiceEEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceFive;
|
||
|
|
AnswerEdit.Text := ItemBankFrm.MCItemInfo[itemno].CorrectChoice;
|
||
|
|
jpegnameEdit.Text := ItemBankFrm.MCItemInfo[itemno].PicName;
|
||
|
|
if jpegnameEdit.Text <> 'none' then
|
||
|
|
begin
|
||
|
|
JPEG := TJPEGImage.Create;
|
||
|
|
try
|
||
|
|
JPEG.LoadFromFile(jpegnameEdit.Text);
|
||
|
|
Image1.Picture.Assign(JPEG);
|
||
|
|
finally
|
||
|
|
JPEG.Free;
|
||
|
|
Image1.Proportional := true;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TMCItemForm.StartNewBtnClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
currentno : integer;
|
||
|
|
response : string;
|
||
|
|
begin
|
||
|
|
response := InputBox('Save current item?','Save','Y');
|
||
|
|
if response = 'Y' then ItemSaveBtnClick(self);
|
||
|
|
currentno := ItemBankFrm.BankInfo.NMCItems + 1;
|
||
|
|
ItemNoEdit.Text := IntToStr(currentno);
|
||
|
|
currentno := StrToInt(MinorCodeEdit.Text);
|
||
|
|
MinorCodeEdit.Text := IntToStr(currentno + 1);
|
||
|
|
NoChoicesEdit.Text := '0';
|
||
|
|
ItemStemEdit.Text := '';
|
||
|
|
ChoiceAEdit.Text := '';
|
||
|
|
ChoiceBEdit.Text := '';
|
||
|
|
ChoiceCEdit.Text := '';
|
||
|
|
ChoiceDEdit.Text := '';
|
||
|
|
ChoiceEEdit.Text := '';
|
||
|
|
AnswerEdit.Text := '';
|
||
|
|
jpegnameEdit.Text := 'none';
|
||
|
|
Image1.Canvas.Clear;
|
||
|
|
end;
|
||
|
|
|
||
|
|
initialization
|
||
|
|
{$I mcitemunit.lrs}
|
||
|
|
|
||
|
|
end.
|
||
|
|
|