Delphi Äquivalent zu "AfxFrameOrView100u" gesucht

[Horst0815]

Das gute ist ich brauch nix per Canvas selbst zeichnen das macht alles die DLL ( Funktionen leider nicht im SDK veröffentlicht musste ich mir selbst mit IDA suchen)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  rc.Height := PaintBox1.Height;
  rc.Width := PaintBox1.Width;
  PaintBox1.canvas.Brush.Color := clBlack;
  PaintBox1.canvas.FillRect(rc);
  FillChar(m_nCH1Data, sizeOf(m_nCH1Data), #0);
  FillChar(m_nCH2Data, sizeOf(m_nCH2Data), #0);
  StatusBar1.Panels[0].Text := 'Disconnected';
  m_nDevIndex := rgDevice.ItemIndex;
  m_nCH1VoltDIV := 5 { DIV1V }; // 1V/DIV
  m_nCH2VoltDIV := 5 { DIV1V }; // 1V/DIV
  m_nTimeDIV := 14 { t1MSa }; // 1MSa/s
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  PaintBox1.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  PaintBox1Paint(Sender);
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
  Procedure Draw;
  var
    nTrigLevel: SmallInt;
    nSlope: SmallInt;
    nHTrigPos: SmallInt;
    nTrigPoint: Cardinal;
    nRe: SmallInt;
  begin
    nTrigLevel := 64;
    nSlope := 0; // 0:Rise; 1: Fall
    nHTrigPos := 50; // 0 ~ 100
    nTrigPoint := 0;
    nRe := dsoReadHardData(m_nDevIndex, @m_nCH1Data, @m_nCH2Data, mReadLen,
      @m_nCalData, m_nCH1VoltDIV, m_nCH2VoltDIV, 0 { TrigAuto } ,
      0 { TrigSCh1 } , nTrigLevel, nSlope, m_nTimeDIV, nHTrigPos, mDrawLen,
      @nTrigPoint, 0);
    if (nRe > 0) then
    begin
      // Draw Grid
      HTDrawGrid(PaintBox1.canvas.Handle, rc.Left, rc.Top, rc.Right, rc.Bottom,
        10, 5, 500, 900);
      // Draw Border
      HTDrawGridBorder(PaintBox1.canvas.Handle, rc.Left+3, rc.Top+3, rc.Right-3,
      rc.Bottom-3);
      // Draw CH1
      HTDrawWaveInYT(PaintBox1.canvas.Handle, rc, RGB(255, 255, 0), 0,
        @m_nCH1Data, mReadLen, mDrawLen, mReadLen div 2, 64, 1.0, 1.0, 1, 0);
      // Draw CH2
      HTDrawWaveInYT(PaintBox1.canvas.Handle, rc, RGB(0, 255, 0), 0,
        @m_nCH2Data, mReadLen, mDrawLen, mReadLen div 2, 192, 1.0, 1.0, 1, 0);
    end;
  end; // Procedure Draw;

begin
  Draw;
end;

procedure TForm1.rgDeviceClick(Sender: TObject);
begin
  m_nDevIndex := rgDevice.ItemIndex;
end;

[EWeiss]

Zitat:

Das gute ist ich brauch nix per Canvas selbst zeichnen das macht alles die DLL

Ja aber nur wenn du ihr das HDC übergibst.
Ohne weiß er halt nicht wo er hinzeichnen soll.

Aber gut ist egal jetzt.. (geht ja).

Kann aber jetzt nicht das DC sehen das du initialisiert hast wie in deinem Bild zu sehen.

Auf 'dc' zugewiesener Wert wird niemals benutzt.
Das hätte mich interessiert scheinst du aber schon behoben zu haben.

Fehlt aber noch das FillSolidRect.. FloodFill kommt dem am nächsten.


gruss

[Horst0815]

Ist alles noch etwas wirr ich entecke grad so viele Dinge in den Dll´s hab überall Baustellen da wird schon mal was vergessen

Sollte eig eher ne Machbarkeits Studie werden aber ich glaub da bleib ich ne Weile dran.

[EWeiss]

Zitat von Horst0815:

Ist alles noch etwas wirr ich entecke grad so viele Dinge in den Dll´s hab überall Baustellen da wird schon mal was vergessen

Sollte eig eher ne Machbarkeits Studie werden aber ich glaub da bleib ich ne Weile dran.

Auf jeden Fall kann nichts schaden
Viel Spass

gruss

[Horst0815]

Danke nochmal

[EWeiss]

Zitat von Horst0815:

Danke nochmal

Ah Jo
Kein Problem wir helfen uns ja hier gegenseitig.
Ich weiß auch einiges nicht ... LOL

gruss