void __fastcall TForm1::Button1Click(TObject *Sender) { // Panel1 ist das Panel was eingefärbt werden soll HDC hdc = GetDC(Panel1->Handle); TCanvas* canvas = new TCanvas; canvas->Handle = hdc; canvas->Pen->Color = clRed; canvas->PenPos = Point(0, Panel1->Height - 2); canvas->LineTo(Panel1->Width - 2, Panel1->Height - 2); canvas->LineTo(Panel1->Width - 2, 0); canvas->PenPos = Point(Panel1->Width - 1, 0); canvas->LineTo(Panel1->Width - 1, Panel1->Height - 1); canvas->LineTo(0, Panel1->Height - 1); delete canvas; ReleaseDC(Panel1->Handle, hdc); }
Kategorien
-
Neueste Beiträge
- [RAP] ODATA V4 Service und Fiori Elements App implementieren
- [ABAP] Übernahme von Dokumenteninfosätzen beim Anlegen von Einkaufsbelegen unterdrücken
- [ABAP] OpenSQL: Stringfunktionen
- [ABAP] OpenSQL: NULL-Indicator zum Anzeigen von leeren Rückgabemengen
- [ABAP] OpenSQL: Set-Indicator für das Aktualisieren von Spalten
- [ABAP] Repository-Infosystem: Views zu Objekten
- [ABAP] SALV-Table – Gruppen für Spaltenvorrat im SALV-Layout
- [ABAP] Retourenumlagerungsbestellungen lesen
- [SAP] Fabrikkalender / Feiertagskalender einrichten
- [ABAP] ABAP2XLSX: CSV-Datei schreiben