Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.12 by yoffy, Fri Sep 26 10:57:00 2003 UTC revision 1.13 by h677, Fri Sep 26 17:30:31 2003 UTC
# Line 258  const Line 258  const
258    
259  procedure TOptionDialog.FormCreate(Sender: TObject);  procedure TOptionDialog.FormCreate(Sender: TObject);
260  begin  begin
261        CSSBrowser.Navigate('about:blank');
262          FClose := True;          FClose := True;
263    
264          OptionTab.ActivePage := ConnectSheet;          OptionTab.ActivePage := ConnectSheet;
# Line 276  begin Line 277  begin
277          CSSCheckBoxClick(Sender);          CSSCheckBoxClick(Sender);
278          PostTimeCheckBoxClick(Sender);          PostTimeCheckBoxClick(Sender);
279    
280          CSSBrowser.Navigate('about:blank');  
281  end;  end;
282    
283  procedure TOptionDialog.FormDestroy(Sender: TObject);  procedure TOptionDialog.FormDestroy(Sender: TObject);
# Line 1186  procedure TOptionDialog.CSSSetContent(Co Line 1187  procedure TOptionDialog.CSSSetContent(Co
1187  var  var
1188          doc : Variant;          doc : Variant;
1189  begin  begin
1190          doc := CSSBrowser.Document;          if CSSBrowser.Document <> nil then begin
1191          doc.Clear;                  doc := CSSBrowser.Document;
1192          doc.open;                  doc.open;
1193          doc.charset := 'Shift_JIS';          doc.Clear;
1194          doc.Write(Content);                  doc.charset := 'Shift_JIS';
1195          doc.Close;                  doc.Write(Content);
1196                    doc.Close;
1197        end;
1198  end;  end;
1199    
1200  procedure TOptionDialog.CSSPreview;  procedure TOptionDialog.CSSPreview;
# Line 1210  begin Line 1213  begin
1213          GikoSys.Setting.CSSFileName := 'default.css';          GikoSys.Setting.CSSFileName := 'default.css';
1214          if CSSListView.Items.Count > 0 then begin          if CSSListView.Items.Count > 0 then begin
1215                  try                  try
1216          if CSSListView.Items[CSSListView.ItemIndex].Data <> nil then                          if CSSListView.ItemIndex >= 0 then begin
1217                                  GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data )                                  if CSSListView.Items[CSSListView.ItemIndex].Data <> nil then
1218        else                                          GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data )
1219                                  GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css';                                  else
1220                                            GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css';
1221                end;
1222                  except                  except
1223                  end;                  end;
1224          end;          end;

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26