sailreportediter.pas

ceshixitongzhuceshifouwanshan

     5:sailreport.ColsTitle.Frame.Shape:=FbottomLine;
   end;
end;

procedure Tsailreportediterfrm.Image5DblClick(Sender: TObject);
begin
  sailsetpenfrm:=tsailsetpenfrm.Create(self);
  sailsetpenfrm.img:=image5;
  sailsetpenfrm.line:=1;
  sailsetpenfrm.ShowModal;
     sailreport.Detail.ColsLine.Assign(image5.Canvas.Pen);

end;

procedure Tsailreportediterfrm.Image6DblClick(Sender: TObject);
begin
  sailsetpenfrm:=tsailsetpenfrm.Create(self);
  sailsetpenfrm.img:=image6;
  sailsetpenfrm.line:=2;
  sailsetpenfrm.ShowModal;
  sailreport.Detail.rowsLine.Assign(image6.Canvas.Pen);

end;

procedure Tsailreportediterfrm.Image7DblClick(Sender: TObject);
begin
  sailsetpenfrm:=tsailsetpenfrm.Create(self);
  sailsetpenfrm.img:=image7;
  sailsetpenfrm.line:=3;
  sailsetpenfrm.ComboBox2.ItemIndex:=image7.Tag-1;
  sailsetpenfrm.ShowModal;
  sailreport.Detail.Frame.pen.Assign(image7.Canvas.Pen);
   case image7.Tag of
     1:sailreport.Detail.Frame.Shape:=fbox;
     2:sailreport.Detail.Frame.Shape:=FLeftLine;
     3:sailreport.Detail.Frame.Shape:=FTopLine;
     4:sailreport.Detail.Frame.Shape:=FRightLine;
     5:sailreport.Detail.Frame.Shape:=FbottomLine;
   end;
end;

procedure Tsailreportediterfrm.N2Click(Sender: TObject);
begin
  sailsettitlefrm:=tsailsettitlefrm.Create(self);
  sailsettitlefrm.tag:=-1;
  sailsettitlefrm.ShowModal;
end;

procedure Tsailreportediterfrm.N3Click(Sender: TObject);
var i:integer;
begin
  if ListView1.Selected=nil then exit;
  self.sailreport.Bands.Delete(ListView1.Selected.Index);
  ListView1.Selected.Delete;
end;

procedure Tsailreportediterfrm.N1Click(Sender: TObject);
begin
  if ListView1.Selected=nil then exit;
  sailsettitlefrm:=tsailsettitlefrm.Create(self);
  sailsettitlefrm.tag:=ListView1.Selected.Index;
  sailsettitlefrm.ShowModal;
end;

procedure Tsailreportediterfrm.Button3Click(Sender: TObject);
begin
 self.close;
end;

procedure Tsailreportediterfrm.CheckBox3Click(Sender: TObject);
begin
   sailreport.ColsTitle.Print:=CheckBox3.Checked;  
end;

procedure Tsailreportediterfrm.CheckBox1Click(Sender: TObject);
begin
   sailreport.ColsTitle.EveryPage:=CheckBox1.Checked;

end;

procedure Tsailreportediterfrm.CheckBox2Click(Sender: TObject);
begin
   sailreport.ColsTitle.EveryRow:=CheckBox2.Checked;

end;

procedure Tsailreportediterfrm.Memo1Change(Sender: TObject);
begin
   sailreport.ColsTitle.TitleArray.Assign(Memo1.Lines);
end;

procedure Tsailreportediterfrm.ListBox1Click(Sender: TObject);
begin
   if (ListBox1.ItemIndex=-1) or (ListBox1.SelCount>1) then exit;
   if sailreport.Columns.Items[ListBox1.ItemIndex].Alignment=taLeftJustify then ComboBox4.ItemIndex:=0
   else if sailreport.Columns.Items[ListBox1.ItemIndex].Alignment=taRightJustify then ComboBox4.ItemIndex:=1
   else ComboBox4.ItemIndex:=2;
   ColorBox1.Selected:=sailreport.Columns.Items[ListBox1.ItemIndex].Color;
   ComboBox5.ItemIndex:=ComboBox5.Items.IndexOf(ListBox1.Items[ListBox1.ItemIndex]);
   Edit10.Text:=sailreport.Columns.Items[ListBox1.ItemIndex].Format;
   CheckBox4.Checked:=sailreport.Columns.Items[ListBox1.ItemIndex].Autoreturn.Enabled;
   CheckBox5.Checked:=sailreport.Columns.Items[ListBox1.ItemIndex].Autoreturn.Pagination;
   CheckBox6.Checked:=sailreport.Columns.Items[ListBox1.ItemIndex].MasterOption.Master;
   CheckBox7.Checked:=sailreport.Columns.Items[ListBox1.ItemIndex].MasterOption.SingleRow;
   Edit11.Text:=sailreport.Columns.Items[ListBox1.ItemIndex].MasterOption.Expression;
   Edit12.Text:=inttostr(sailreport.Columns.Items[ListBox1.ItemIndex].Width);
   image9.Canvas.FillRect(rect(0,0,image9.Width,image9.Height));
   Image9.Canvas.Font.Assign(sailreport.Columns.Items[ListBox1.ItemIndex].Font);
   Image9.Canvas.TextOut((Image9.Width-Image9.Canvas.TextWidth('例')) div 2,(Image9.Height-Image9.Canvas.TextHeight('例')) div 2,'例');
   if sailreport.Columns.Items[ListBox1.ItemIndex].Title.Alignment=taLeftJustify then ComboBox6.ItemIndex:=0
   else if sailreport.Columns.Items[ListBox1.ItemIndex].Title.Alignment=taRightJustify then ComboBox6.ItemIndex:=1
   else ComboBox6.ItemIndex:=2;
   ColorBox2.Selected:=sailreport.Columns.Items[ListBox1.ItemIndex].Title.Color;
   memo2.Lines.Text:=sailreport.Columns.Items[ListBox1.ItemIndex].Title.Text.Text;
   Image10.Canvas.Font.Assign(sailreport.Columns.Items[ListBox1.ItemIndex].Title.Font);
   image10.Canvas.FillRect(rect(0,0,image10.Width,image10.Height));
   Image10.Canvas.TextOut((Image10.Width-Image10.Canvas.TextWidth(memo2.Lines.Text)) div 2,(Image10.Height-Image10.Canvas.TextHeight(memo2.Lines.Text)) div 2,memo2.Lines.Text);

end;

procedure Tsailreportediterfrm.CheckBox4Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
 sailreport.Columns.Items[i].Autoreturn.Enabled:=CheckBox4.Checked;
end;

procedure Tsailreportediterfrm.CheckBox5Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
 sailreport.Columns.Items[i].Autoreturn.Pagination:=CheckBox5.Checked;
 
end;

procedure Tsailreportediterfrm.CheckBox6Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
 sailreport.Columns.Items[i].MasterOption.Master:=CheckBox6.Checked;
end;

procedure Tsailreportediterfrm.CheckBox7Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
 sailreport.Columns.Items[i].MasterOption.SingleRow:=CheckBox7.Checked;
end;

procedure Tsailreportediterfrm.Image9DblClick(Sender: TObject);
var i:integer;
begin
  FontDialog1.Font:=image9.Canvas.Font;
  if FontDialog1.Execute then
  begin
     image9.Canvas.Font.Assign(FontDialog1.font);
     image9.Canvas.FillRect(rect(0,0,image9.Width,image9.Height));
     image9.Canvas.TextOut(3,(image9.Height-image9.Canvas.TextHeight('例')) div 2,'例');
  end;
   for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
  sailreport.Columns.Items[i].Font.Assign(image9.Canvas.Font);
end;

procedure Tsailreportediterfrm.Image10DblClick(Sender: TObject);
var i:integer;
begin
  FontDialog1.Font:=image10.Canvas.Font;
  if FontDialog1.Execute then
  begin
     image10.Canvas.Font.Assign(FontDialog1.font);
     image10.Canvas.FillRect(rect(0,0,image10.Width,image10.Height));
     Image10.Canvas.TextOut((Image10.Width-Image10.Canvas.TextWidth(memo2.Lines.Text)) div 2,(Image10.Height-Image10.Canvas.TextHeight(memo2.Lines.Text)) div 2,memo2.Lines.Text);
  end;
  for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
  sailreport.Columns.Items[i].Title.Font.Assign(image10.Canvas.Font);
end;

procedure Tsailreportediterfrm.N4Click(Sender: TObject);
begin
with sailreport.Columns.Add  do
begin
  Title.Font.Assign(sailreport.ColsTitle.Font);
  font.Assign(sailreport.Detail.Font);
end;
ListBox1.Items.Append('');
ListBox1.Selected[ListBox1.Items.Count-1]:=true;
ListBox1Click(self) ;
end;

procedure Tsailreportediterfrm.N6Click(Sender: TObject);
begin
   if (ListBox1.Items.Count=0) or  (ListBox1.ItemIndex=-1) then exit;
   sailreport.Columns.Delete(ListBox1.ItemIndex);
   ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure Tsailreportediterfrm.SpeedButton3Click(Sender: TObject);
begin
  sailreport.Preview;
end;

procedure Tsailreportediterfrm.SpeedButton1Click(Sender: TObject);
begin
self.Close;
end;

procedure Tsailreportediterfrm.SpeedButton4Click(Sender: TObject);
begin
  sailreport.print;
end;

procedure Tsailreportediterfrm.ToolButton3Click(Sender: TObject);

begin
if ListBox1.ItemIndex<=0 then exit;
sailreport.Columns.Items[ListBox1.ItemIndex].Index:=ListBox1.ItemIndex-1;
ListBox1.Items.Exchange(ListBox1.ItemIndex-1,ListBox1.ItemIndex);

end;

procedure Tsailreportediterfrm.ToolButton4Click(Sender: TObject);
begin
if ListBox1.ItemIndex>=ListBox1.Items.Count-1 then exit;
sailreport.Columns.Items[ListBox1.ItemIndex].Index:=ListBox1.ItemIndex+1;
ListBox1.Items.Exchange(ListBox1.ItemIndex,ListBox1.ItemIndex+1);
end;

procedure Tsailreportediterfrm.ToolButton5Click(Sender: TObject);
begin
sailreport.Columns.Clear;
ListBox1.Items.Clear;
end;

procedure Tsailreportediterfrm.ComboBox1Click(Sender: TObject);
begin
 with sailreport.Page do
begin
  case combobox1.ItemIndex of
     0: PageSize:=A3;
     1: PageSize:=A4;
     2: PageSize:=A5;
     3: PageSize:=B4;
     4: PageSize:=B5;
     5: PageSize:=CSheet;
     6: PageSize:=Custom;
     7: PageSize:=Default;
     8: PageSize:=Executive;
     9: PageSize:=Letter;
  end;
  edit1.Text:=floattostr(width);
  edit2.Text:=floattostr(height);
end;
end;

procedure Tsailreportediterfrm.ComboBox2Click(Sender: TObject);
begin
if combobox2.ItemIndex=0   then sailreport.page.Orientation:=poPortrait else sailreport.page.Orientation:=poLandscape;
end;

procedure Tsailreportediterfrm.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  sailreport.page.width:=strtofloat(edit1.text);
end;

procedure Tsailreportediterfrm.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 sailreport.page.height:=strtofloat(edit2.text);
end;

procedure Tsailreportediterfrm.Edit3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  sailreport.Page.LeftMargin:=strtofloat(edit3.Text);
end;

procedure Tsailreportediterfrm.Edit4KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   sailreport.Page.RightMargin:=strtofloat(edit4.Text);
end;

procedure Tsailreportediterfrm.Edit5KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   sailreport.Page.TopMargin:=strtofloat(edit5.Text);  
end;

procedure Tsailreportediterfrm.Edit6KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   sailreport.Page.BottomMargin:=strtofloat(edit6.Text);
end;

procedure Tsailreportediterfrm.Edit7KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  sailreport.ColsTitle.rowspace:=strtofloat(Edit7.Text);
end;

procedure Tsailreportediterfrm.ComboBox3Click(Sender: TObject);
begin
   if ComboBox3.ItemIndex=0 then sailreport.Detail.Arrange:=Horizontal else sailreport.Detail.Arrange:=Vertical;

end;

procedure Tsailreportediterfrm.Edit8KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
sailreport.Detail.rowspace:=strtofloat(Edit8.Text);
end;

procedure Tsailreportediterfrm.Edit9KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
sailreport.Detail.top:=strtofloat(Edit9.Text);
end;

procedure Tsailreportediterfrm.ComboBox4Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
   case ComboBox4.ItemIndex of
     0: sailreport.Columns.Items[i].Alignment:=taLeftJustify;
     1: sailreport.Columns.Items[i].Alignment:=taRightJustify;
     2: sailreport.Columns.Items[i].Alignment:=taCenter;
   end;
end;

procedure Tsailreportediterfrm.ColorBox1Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
 sailreport.Columns.Items[i].Color:=ColorBox1.Selected;
end;

procedure Tsailreportediterfrm.ComboBox5Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
 begin
   sailreport.Columns.Items[i].FieldName:=ComboBox5.Text;
   ListBox1.Items[i]:=ComboBox5.Text;
 end;
end;

procedure Tsailreportediterfrm.Edit10KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
  sailreport.Columns.Items[i].Format:=Edit10.text;
end;

procedure Tsailreportediterfrm.Edit11KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
sailreport.Columns.Items[i].MasterOption.Expression:=Edit11.Text;

end;

procedure Tsailreportediterfrm.Edit12KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
sailreport.Columns.Items[i].Width:=strtoint(edit12.Text)
end;

procedure Tsailreportediterfrm.ComboBox6Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
   case ComboBox6.ItemIndex of
     0: sailreport.Columns.Items[i].Title.Alignment:=taLeftJustify;
     1: sailreport.Columns.Items[i].Title.Alignment:=taRightJustify;
     2: sailreport.Columns.Items[i].Title.Alignment:=taCenter;
   end;
end;

procedure Tsailreportediterfrm.ColorBox2Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
 sailreport.Columns.Items[i].Title.Color:=ColorBox2.Selected;  
end;

procedure Tsailreportediterfrm.Memo2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do  if ListBox1.Selected[i] then
  sailreport.Columns.Items[i].Title.Text.Assign(memo2.Lines);
  image10.Canvas.FillRect(rect(0,0,image10.Width,image10.Height));
  image10.Canvas.TextOut(3,(image10.Height-image10.Canvas.TextHeight(memo2.Lines.Text)) div 2,memo2.Lines.Text);
end;

procedure Tsailreportediterfrm.ToolButton6Click(Sender: TObject);
var i:integer;
begin
  listbox1.Items.Clear;
  sailreport.GetColTitles;
  for i:=0 to sailreport.Columns.Count-1 do ListBox1.Items.Append(sailreport.Columns.Items[i].FieldName);
end;

end.