Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Image Problem???

    Delphi
    by TStringlist, 18. Nov 2005
  ...ist doch dann im Grunde genommen immer wieder nur das gleiche Prinzip. Anstatt zwei farbige Ausgangs-LEDs in einem Doppelbild hast du dann eben drei LEDs in einem Trippelbild gespeichert (in turboPASCALs Beispiel jetzt mal untereinander und nicht nebeneinander). Dementsprechend ist das aus dem QuellImage dann herauszulesende Rechteck also immer nur noch mehr "QuellImage.Height div 3" hoch...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Image Problem???

    Delphi
    by TStringlist, 16. Nov 2005
  So eine PaintBox ist eigentlich bloß mehr für den eigentlichen Screen-Output selbst gedacht, und eignet eher weniger für ein anfängliches nur Parken eines Bildes. So ein einfaches TBitmap ist dafür also besser geeignet. Das erzeugst und lädst du dann zuerst noch im Creater der Form:
  
  procedure TForm1.FormCreate(Sender: TObject);
  const AFileName = 'blablabla';
  begin
  FBitmap :=...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Image Problem???

    Delphi
    by TStringlist, 15. Nov 2005
  Also, wenn ich dich überhaupt richtig verstanden habe, dann hast du mittels irgendeines Grafikprogramms beide Zustands-Bilder des LED nebeneinanderer zu einem einzigen Bild zusammengebaut. Links das Bild für LED=OFF und rechts dasjenige für LED=ON. Mit dieser BitBlt-Funktion (deren Parameter du dir dann mal in der PSDK ansehen solltest; BitBlt) kannst du nun jeden beliebigen Ausschnitt (also z.B....
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Image Problem???

    Delphi
    by TStringlist, 15. Nov 2005
  Das einfachste ist, du lädst dieses Doppel-Bild zuerst in ein normales TBitmap, welches du im Creater der Form davor noch erzeugst. Und danach brauchst du nur noch mehr mittels der Api-Funktion "BitBlt" jeweils die erste Hälfte bzw. die zweite Hälfte dieses Bitmap auf das Image zu übertragen.
  
  also für Teil-Bild1 so:
  
  BitBlt(Image1.Canvas.Handle, 0, 0, FBitmap.Width div 2, FBitmap.Height,
  ...