Tweet
Hallo Leute,
ich stehe wieder mal vor einem Problem und Komme nicht weiter.
Mein Vorhaben ist eine Art von Report Builder in Delphi7.
Ich habe ein TcxImage auf das Zeichne ich dan meine TextBox , TImage usw.
Um das Ganze für die Positionierung zu erleichtern erstelle ich ein TBitmap auf das ich einen Raster zeichne.
Das TBitmap füge ich dan beim TcxImage ein.
1. Nach dem Einfügen kann ich aber meine Kopf / Füßzeile nicht mehr Auswählen bzw. Verschieben... Sad
2. Ich habe das Ganze auch schon Versuch mit einem TPanel das dann Transparent wird und im Hintergrund
die Raster Grafik ist aber beim Verschieben verschwindet bzw. Flackert die Grafik extremst und das mit dem
DoubleBuffered := true hat auch nichts gebracht :autsch:
3. Dann habe ich es Versucht mit dieser Funktion aber ich habe keine ahnung wie ich damit die Kopf / Fußzeile nur nach link bzw. rechts verschieben kann bzw. kann ich damit auch ein TImage Objekt Verschieben Question
procedure TFormDocEditor.KomponenteMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TWinControl(Sender).Perform(WM_LBUTTONUP, 0, 0);
TWinControl(Sender).Perform(WM_SysCommand, SC_MOVE+2, 2);
end;
Oder gäbe es für mein Vorhaben auch eine Einfachere Möglichkeit Question
gruß
patrick
ich stehe wieder mal vor einem Problem und Komme nicht weiter.
Mein Vorhaben ist eine Art von Report Builder in Delphi7.
Ich habe ein TcxImage auf das Zeichne ich dan meine TextBox , TImage usw.
Um das Ganze für die Positionierung zu erleichtern erstelle ich ein TBitmap auf das ich einen Raster zeichne.
Das TBitmap füge ich dan beim TcxImage ein.
1. Nach dem Einfügen kann ich aber meine Kopf / Füßzeile nicht mehr Auswählen bzw. Verschieben... Sad
2. Ich habe das Ganze auch schon Versuch mit einem TPanel das dann Transparent wird und im Hintergrund
die Raster Grafik ist aber beim Verschieben verschwindet bzw. Flackert die Grafik extremst und das mit dem
DoubleBuffered := true hat auch nichts gebracht :autsch:
3. Dann habe ich es Versucht mit dieser Funktion aber ich habe keine ahnung wie ich damit die Kopf / Fußzeile nur nach link bzw. rechts verschieben kann bzw. kann ich damit auch ein TImage Objekt Verschieben Question
procedure TFormDocEditor.KomponenteMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TWinControl(Sender).Perform(WM_LBUTTONUP, 0, 0);
TWinControl(Sender).Perform(WM_SysCommand, SC_MOVE+2, 2);
end;
Oder gäbe es für mein Vorhaben auch eine Einfachere Möglichkeit Question
gruß
patrick