Beispiel für Programmierung von Delphi Bild (1)

Beachten Sie, dass dieses Beispiel in Delphi7.0 debuggiert wurde

////////////////////////////////////////////////// ///////////////////////////////////////////////

(I) ein Projekt festlegen

Neue Elemente-> Projekte-> MDI-Anwendung

.

Entfernen Sie die ursprüngliche Memo1 -Steuerung in der Childwin Child -Form und fügen Sie die Bildsteuerung im Bild1.Align = Alclient hinzu.

Image1.Autosize = ture bedeutet, dass die ursprüngliche Größe angezeigt wird, und Stech = False bedeutet, dass sie nicht gemäß dem Objektbox angezeigt wird.

(Iii) Hauptschnittstellenmodifikation

1) Entfernen Sie Elemente zum Einfügen und neu im Menü, in der Symbolleiste, der ActionList

2) Druckersetupdialog1 und Savedialog -Kontrolle in Mainform hinzufügen.

Menüelementdatei/Druck hinzufügen, der Attributname ist FileprintItem.

Menüelementdatei/Druckeinstellungen hinzufügen, Eigenschaft aktiviert = false, Name ist FilePintset.

Menüelement hinzufügen Bearbeiten/Zeichnen, seine Eigenschaft aktiviert = false;

Fügen Sie Menüelement Bearbeiten/Einstellungen hinzu und setzen Sie es so ein, dass das Untermenü erstellt wird.

Menüelemente hinzufügen Bearbeiten/Einstellungen/Konfiguration;

Menüelement hinzufügen Bearbeiten/Einstellungen/Symbolleiste, es checked = true, name = symbolbaritem;

Menübild hinzufügen;

Menüelement Image/Capture Desktop hinzufügen;

Menüelement Bild/Erfassungsbereich hinzufügen;

Fügen Sie Menüelemente Bild/Erfassungsfenster oder Steuerelemente hinzu.

Menüelement Bild/Erfassungssymbol hinzufügen

Fügen Sie der Symbolleiste vier Schaltflächen für die Symbolleiste hinzu, die den vier Menüelementen im Bildmenü entsprechen.

Fügen Sie vier Aktionen zur ActionList hinzu: CPTDESTOP, CPTAREA, CPTWINDOWS, CPTICON;

Die Aktionsattribute der vier Menüelemente im Bildmenü entsprechen den oben genannten vier Aktionen.

Die Aktionsattribute der vier neu hinzugefügten Symbolleistenschaltflächen entsprechen den oben genannten vier Aktionen.

3) Umschieben -Implementierung verwendet Childwin in die Schnittstelle in der Haupteinheit.

Fügen Sie SCRNCPT in die Verwendung der Schnittstelle hinzu.

Fügen Sie Definition in der Öffentlichkeit von Tmainform hinzu:

Kind: tmdichild;

Capturenum: Ganzzahl;

Dateiname: String;

DefaultDirectory: String;

4) Fügen Sie die private Funktion in TMainForm hinzu: Verfahrensverzögerung (MSECs: Ganzzahl)

procedure tmainForm.delay (mscs: Integer);

var firstTickcount: longint;

Beginnen

FirstTickCount: = GettickCount;

wiederholen

Beginnen

Application.ProcessMessages;

Ende;

bis ((GettickCount-firsttickCount)> = Longint (mscs));

Ende;

5) Ändern Sie den Prozess [tmainForm.CreateMdichild]:

Entfernen Sie die variable VAR -Unterschrift: tmdichild, fügen Sie Parameter -Neufile hinzu

Verfahren tmainForm.CreatemDichild (const Name: String; Newfile: Boolean);

Beginnen

Kind: = tmdichild.create (Anwendung);

Kind.Caption: = Name;

Wenn (nicht Newfile) und (Name <> '') dann beginnen

Child.image1.picture.bitmap.loadfromFile (Name);

Child.HorzScrollBar.Range: = child.image1.picture.width;

Child.vertScrollBar.Range: = Child.image1.Picture.Height;

Ende;

Ende;