« Ultimo post da antonio63 il Maggio 11, 2024, 07:27:06 pm »
grazie per avermi risposto mi fai un esempio di come collocare il tuo codice ti scrivo il mio procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var datamatricola:string; begin CellFont := Form2.DBGrid1.Canvas.Font; Form2.DBGrid1.Canvas.Font.Color:=clblue; Form2.DBGrid1.Canvas.Brush.Color:=clWhite; QUI VORREI DIRE SE RECORD E CANCELLATO scrivi in rosso Form2.DBGrid1.Canvas.Font.Color:=clRED; Form2.DBGrid1.Canvas.Brush.Color:=clWhite; Form2.DBGrid1.Canvas.FillRect(Rect); Form2.DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;
« Ultimo post da antonio63 il Maggio 11, 2024, 06:26:05 pm »
Buongiorno vorrei chiedere il dbf quale marker di cancellazione usa. Ovvero se in un dbgrid alle proprietà del dbf metto showdelete su True vedo anche i record cancellati. Ora io vorrei colorare di rosso quelli cancellati nel dbgrid nell'evento OnDrawColumnCell. Non riesco però a capire come riconoscere la marcatura a quelli cancellati.
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin if key = #8 then // <- lascia usare il backspace (modificato) exit; if Memo1.Lines.Count > 6 then Key := #0; end;
Così funziona, se si eccede con le linee si può rimediare con il Backspace. In qualche raro caso però mi sono trovato con l'impossibilità di modificare il testo anche se le linee erano 6.
Anche questa soluzione funziona anche se è un po' più complicata da produrre e mantenere:
Ciao, la butto lì: ti crei un'altra memo nascosta, in cui copi la memo originale quando questa è ok. Nel momento in cui ad esempio l'utente aggiunge una riga in testa, tu fai il check, e questo da esito negativo, copi il contenuto della memo nascosta in quella originale. Se invece la modifica passa il check, fai il contrario
in alternativa si potrebbe fare il conto delle righe nel momento del salvataggio (ed impedire di andare avanti se il memo ha più dighe di quelle consentite)
Ho deciso di mettere anche questo controllo, non si sa mai. Con la differenza che impedisco di stampare se le linee eccedono il massimo.
« Ultimo post da DragoRosso il Maggio 07, 2024, 12:10:39 pm »
Ciao, se sei in vena di ricerca e sviluppo c'è un vecchio progetto demo Pas2Js fatto con Lazarus (viene creato un node.js) con cui puoi generare interfacce WEB.
Questo blog non rappresenta una testata giornalistica poiché viene
aggiornato senza alcuna periodicità. Non può pertanto considerarsi un
prodotto editoriale ai sensi della legge n. 62/2001.
Questo sito utilizza cookie, anche di terze parti, per offriti servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina, cliccando su un link o proseguendo la navigazione in altra maniera, acconsenti all’uso dei cookie.