Delphi. Kilka pytań

0

Witam.
Mam kilka pytań związanych z Delphi:
1.Dlaczego gdy kliknę PPM na jakiś plik HTML wezmę Otwórz za pomocą i wybiorę mój program, to zawartość nie pokazuje się, a gdy w programie wezmę: Plik -> Otwórz to wszystko jest OK.
Oto mój kod do "Otwórz":

   if OpenDialog1.Execute then

 (PageControl1.ActivePage.Controls[0] as TSynMemo).Lines.LoadFromFile(OpenDialog1.FileName); 

2.Dlaczego, gdy wybiorę "Zapisz" lub "Zapisz jako..." po czym kliknę "Anuluj" to wywala mi błąd ?
Oto mój kod do zapisz jako:

  If SaveDialog1.Execute Then

Nazwa_pliku:=SaveDialog1.FileName;
 (PageControl1.ActivePage.Controls[0] as TSynMemo).Lines.SaveToFile(SaveDialog1.FileName);
 

3.Jak zrobić, aby: gdy plik jest modyfikowany to obok tytułu zakładki pojawiał się pewien obrazek, a gdy nie jest modyfikowany pojawiał się inny obrazek.
Próbował coś takiego, jeednak nie wiem co wstawić jako ImageIndex

   if
  (PageControl1.ActivePage.Controls[0] as TSynMemo).Modified then
  PageControl1.ActivePage.ImageIndex := ;
  else
  PageControl1.ActivePage.ImageInde := ; 

oraz gdzie to wstawić ? ( Do "Zapisz", "zapisz jako..." czy do nowego eventu ?

  1. I ostatnie najmniej ważne, jak zrobić na zakładce przycisk do jej zamykania ?
0

Otwórz za pomocą:
W OnCreate:
if ParamCount>1 then (PageControl1.ActivePage.Controls[0] as TSynMemo).Lines.LoadFromFile(ParamStr(1));

błąd:
If SaveDialog1.Execute Then
begin
Nazwa_pliku:=SaveDialog1.FileName;
(PageControl1.ActivePage.Controls[0] as TSynMemo).Lines.SaveToFile(SaveDialog1.FileName);
end;

Obrazek:
PageControl1.ActivePage.ImageIndex:=Ord((PageControl1.ActivePage.Controls[0] as TSynMemo).Modified);
dodać na formatkę Images;
załadować w nie dwa obrazki;
podpiąć pod PageControl1.

Krzyżyk:
Użyć specjalnej kontrolki (poszukać w internecie).
lub własne rysowanie przez OnPaint
oraz obsługę OnMouseDown.

0

Chodzi o ImagesList.
OnCreate to zdarzenie formatki.

0

A skąd będzie wiadomo, o który imagelist chodzi ? jak np. mam kilka ?
Dzięki za pomoc, sorki za takie pytania, jestem początkujący i jeszcze wszystkiego nie ogarniam :D
Tylko mam problem, bo dalej nie działa mi Otwórz ;c

0

"podpiąć pod PageControl1" oznacza:
właściwość:
PageControl1.Images
zmienić na:
ImagesList1
w inspektorze.

1 użytkowników online, w tym zalogowanych: 0, gości: 1